/macosx-10.9.5/tcl-102/tcl_ext/bwidget/bwidget/ |
H A D | separator.tcl | 18 {-relief Enum groove 0 {ridge groove}} 43 if { [string equal [Widget::cget $path -relief] "groove"] } { 44 $path configure -relief sunken 46 $path configure -relief raised 59 if { [Widget::hasChanged $path -relief relief] } { 60 if { $relief == "groove" } { 61 $path:cmd configure -relief sunken 63 $path:cmd configure -relief raised
|
H A D | button.tcl | 27 set remove [list -command -relief -text -textvariable -underline -state] 47 {-relief Enum raised 0 {raised sunken flat ridge solid groove link}} 91 set args [Widget::getArgument $args "-relief" relief] 107 set relief [Widget::getMegawidgetOption $path -relief] 109 if { ![BWidget::using ttk] && [string equal $relief "link"] } { 110 set relief "flat" 139 if { $relief != "raised" && 141 $path configure -style "BW${relief} [all...] |
H A D | titleframe.tcl | 18 {-relief TkResource groove 0 frame} 41 -background {} -relief {} -borderwidth {} 57 -class TitleFrame -relief flat] 60 -relief flat] 63 -relief flat] 65 -relief flat] 67 -relief flat] 72 -class TitleFrame -relief flat -bd 0 -highlightthickness 0] 75 -relief flat -borderwidth 0] 79 -relief fla [all...] |
/macosx-10.9.5/tcl-102/tk84/tk/library/ |
H A D | button.tcl | 148 # If the mouse button is down, set the relief to sunken on entry. 149 # Overwise, if there's an -overrelief value, set the relief to that. 151 set Priv($w,relief) [$w cget -relief] 153 $w configure -relief sunken -state active 156 $w configure -relief $over 166 # Restore any modified relief too. 177 # Restore the original button relief if it was changed by Tk. 180 if {[info exists Priv($w,relief)]} { 182 $Priv($w,prelief) eq [$w cget -relief]} { [all...] |
H A D | optMenu.tcl | 37 -relief raised -bd 2 -highlightthickness 2 -anchor c \
|
/macosx-10.9.5/tcl-102/tk/tk/library/ |
H A D | button.tcl | 154 # If the mouse button is down, set the relief to sunken on entry. 155 # Overwise, if there's an -overrelief value, set the relief to that. 157 set Priv($w,relief) [$w cget -relief] 159 $w configure -relief sunken -state active 162 $w configure -relief $over 172 # Restore any modified relief too. 183 # Restore the original button relief if it was changed by Tk. 186 if {[info exists Priv($w,relief)]} { 188 $Priv($w,prelief) eq [$w cget -relief]} { [all...] |
H A D | optMenu.tcl | 37 -relief raised -highlightthickness 1 -anchor c \
|
/macosx-10.9.5/tcl-102/tk/tk/library/ttk/ |
H A D | classicTheme.tcl | 48 -anchor center -padding "3m 1m" -relief raised -shiftrelief 1 49 ttk::style map TButton -relief [list {!disabled pressed} sunken] 65 ttk::style configure TMenubutton -relief raised -padding "3m 1m" 67 ttk::style configure TEntry -relief sunken -padding 1 -font TkTextFont 74 -relief solid -borderwidth 1 80 ttk::style configure TLabelframe -borderwidth 2 -relief groove 82 ttk::style configure TScrollbar -relief raised 83 ttk::style map TScrollbar -relief {{pressed !disabled} sunken} 95 ttk::style configure Heading -font TkHeadingFont -relief raised 104 ttk::style configure Toolbutton -padding 2 -relief fla [all...] |
H A D | altTheme.tcl | 40 -relief raised -shiftrelief 1 \ 43 ttk::style map TButton -relief { 56 -width -11 -padding "3 3" -relief raised 65 -relief solid -borderwidth 1 72 ttk::style configure Toolbutton -relief flat -padding 2 73 ttk::style map Toolbutton -relief \ 78 ttk::style configure TScrollbar -relief raised 80 ttk::style configure TLabelframe -relief groove -borderwidth 2 91 ttk::style configure Heading -font TkHeadingFont -relief raised
|
H A D | winTheme.tcl | 23 -anchor center -width -11 -relief raised -shiftrelief 1 27 -padding "8 4" -arrowsize 3 -relief raised 29 ttk::style map TButton -relief {{!disabled pressed} sunken} 56 -borderwidth 1 -relief solid 60 ttk::style configure TLabelframe -borderwidth 2 -relief groove 62 ttk::style configure Toolbutton -relief flat -padding {8 4} 63 ttk::style map Toolbutton -relief \ 73 ttk::style configure Heading -font TkHeadingFont -relief raised
|
H A D | defaults.tcl | 44 -relief raised -shiftrelief 1 45 ttk::style map TButton -relief [list {!disabled pressed} sunken] 58 -relief raised -padding "10 3" 61 -relief sunken -fieldbackground white -padding 1 75 -relief groove -borderwidth 2 94 ttk::style configure Heading -font TkHeadingFont -relief raised 107 -borderwidth 1 -relief solid 121 -padding 2 -relief flat 122 ttk::style map Toolbutton -relief \
|
H A D | clamTheme.tcl | 49 -anchor center -width -11 -padding 5 -relief raised 61 -anchor center -padding 2 -relief flat 63 -relief [list \ 90 -width -11 -padding 5 -relief raised 109 -relief solid -borderwidth 1 125 -font TkHeadingFont -relief raised -padding {3} 133 -borderwidth 2 -relief raised
|
/macosx-10.9.5/ruby-104/ruby/ext/tk/sample/tkextlib/tile/ |
H A D | toolbutton.tcl | 21 # -indicatoron false -selectcolor {} -relief flat -overrelief raised 71 style default Toolbutton -width 0 -padding 1 -relief flat -borderwidth 2 75 # resource values. We want a flat relief if the widget is 81 style map Toolbutton -relief { 102 -width 0 -relief flat -borderwidth 2 \ 106 # Configure state-specific values for -relief, as before: 108 style map Toolbutton -relief { 144 # is on, the relief continues to be hard-coded to sunken. For symmetry,
|
/macosx-10.9.5/tcl-102/tcl_ext/bwidget/bwidget/demo/ |
H A D | basic.tcl | 75 -helptext "This is a Button widget" -relief link] 84 -width 25 -height 25 -relief sunken -ipadx 0 -ipady 0 \ 100 -anchor w -relief sunken -borderwidth 1] 114 -anchor w -relief sunken -borderwidth 1] 125 -anchor w -relief sunken -borderwidth 1] 130 foreach relief $lrelief { 131 set rad [BWidget::wrap radiobutton $f.$relief -text $relief \ 132 -variable DemoBasic::var(brelief) -value $relief \ 149 proc DemoBasic::_brelief { relief bu [all...] |
/macosx-10.9.5/tcl-102/tcl_ext/tklib/tklib/modules/tkpiechart/ |
H A D | canlabel.tcl | 61 error "border width greater than 1 is not supported with $switched::($this,-selectrelief) select relief" 96 error "bad relief value \"$value\": must be flat, raised or sunken" 102 error "border width greater than 1 is not supported with $value select relief" 109 if {[info exists ($this,relief)]} { 110 ::stooop::delete $($this,relief) 111 unset ($this,relief) 117 set relief $switched::($this,-selectrelief) 118 if {[string equal $relief flat]} { 122 if {![info exists ($this,relief)]} { 123 set ($this,relief) [ [all...] |
/macosx-10.9.5/tcl-102/tk/tk/library/demos/ |
H A D | label.tcl | 33 label $w.left.l2 -text "Second label, raised" -relief raised 34 label $w.left.l3 -text "Third label, sunken" -relief sunken 38 label $w.right.bitmap -borderwidth 2 -relief sunken \
|
H A D | check.tcl | 28 checkbutton $w.b0 -text "Safety Check" -variable safety -relief flat \ 32 checkbutton $w.b1 -text "Wipers OK" -variable wipers -relief flat 33 checkbutton $w.b2 -text "Brakes OK" -variable brakes -relief flat 34 checkbutton $w.b3 -text "Driver Sober" -variable sober -relief flat
|
H A D | image1.tcl | 30 label $w.l1 -image image1a -bd 1 -relief sunken 35 label $w.l2 -image image1b -bd 1 -relief sunken
|
/macosx-10.9.5/tcl-102/tk84/tk/library/demos/ |
H A D | check.tcl | 30 checkbutton $w.b1 -text "Wipers OK" -variable wipers -relief flat 31 checkbutton $w.b2 -text "Brakes OK" -variable brakes -relief flat 32 checkbutton $w.b3 -text "Driver Sober" -variable sober -relief flat
|
/macosx-10.9.5/ruby-104/ruby/ext/tk/sample/tkextlib/iwidgets/sample/ |
H A D | labeledwidget.rb | 9 cw = TkCanvas.new(lw.child_site, :relief=>:raised, :width=>200, :height=>200,
|
/macosx-10.9.5/ruby-104/ruby/ext/tk/sample/ |
H A D | cd_timer.rb | 21 f = TkFrame.new(:relief=>:ridge, :borderwidth=>2).pack(:fill=>:x) 22 TkLabel.new(f, :relief=>:flat, :pady=>3, 25 now = TkLabel.new(f, :width=>width, :relief=>:flat, :pady=>3, :anchor=>:w, 43 f = TkFrame.new(:relief=>:ridge, :borderwidth=>2).pack(:fill=>:x) 44 TkLabel.new(f, :relief=>:flat, :pady=>3, 46 l = TkLabel.new(f, :width=>width, :relief=>:flat, :pady=>3, :anchor=>:w,
|
H A D | tkdialog.rb | 6 relief 'raised' 21 relief 'raised' 26 relief 'sunken'
|
/macosx-10.9.5/ruby-104/ruby/ext/tk/sample/tkextlib/vu/ |
H A D | canvItems.rb | 13 :bitmap=>"@#{xbm}", :relief=>:groove).pack(:side=>:left) 18 :relief=>:ridge).place(:in=>l0, :relx=>0.5, :rely=>0.5, 32 :bitmap=>"@#{xbm}", :relief=>:groove).pack(:side=>:left) 37 :relief=>:ridge).place(:in=>l1, :relx=>0.5, :rely=>0.5, 54 :bitmap=>"@#{xbm}", :relief=>:groove).pack(:side=>:left) 59 :relief=>:ridge).place(:in=>l2, :relx=>0.5, :rely=>0.5,
|
/macosx-10.9.5/tcl-102/tcl_ext/tklib/tklib/modules/widget/ |
H A D | stext.tcl | 27 set st [widget::scrolledtext $f.sw -borderwidth 1 -relief sunken] 50 delegate option -relief to hull 53 # You want the outer scrolledwindow to display bd/relief 56 -borderwidth 0 -relief flat -highlightthickness 1
|
/macosx-10.9.5/tcl-102/tcl_ext/snack/snack/demos/tcl/ |
H A D | record.tcl | 126 .f1.bp configure -relief raised 127 .f1.br configure -relief groove 135 .f1.bp configure -relief groove 136 .f1.br configure -relief raised 137 .f1.bu configure -relief raised 144 .f1.bp configure -relief raised 145 .f1.br configure -relief raised 146 .f1.bu configure -relief raised 152 if {[.f1.bu cget -relief] == "raised"} { 153 .f1.bu configure -relief groov [all...] |