Changeset 5679 for branches/uq/gui/scripts/pushbutton.tcl
- Timestamp:
- Jun 9, 2015 1:55:08 PM (9 years ago)
- Location:
- branches/uq
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/uq
- Property svn:mergeinfo changed
-
branches/uq/gui/scripts/pushbutton.tcl
r3330 r5679 1 # -*- mode: tcl; indent-tabs-mode: nil -*- 2 1 # -*- mode: tcl; indent-tabs-mode: nil -*- 3 2 # ---------------------------------------------------------------------- 4 5 6 3 # COMPONENT: PushButton - widget for entering a choice of strings 7 4 # … … 32 29 itk_option define -offbackground offBackground OffBackground "grey85" 33 30 34 constructor {args} { 35 # defined below 31 constructor {args} { 32 # defined below 36 33 } 37 destructor { 38 # defined below 34 destructor { 35 # defined below 39 36 } 40 37 … … 63 60 itk::usual PushButton { 64 61 keep -cursor -font 65 keep -foreground -background 62 keep -foreground -background 66 63 } 67 64 … … 71 68 itcl::body Rappture::PushButton::constructor {args} { 72 69 itk_component add button { 73 label $itk_interior.button -borderwidth 1 -relief sunken 70 label $itk_interior.button -borderwidth 1 -relief sunken 74 71 } { 75 72 usual
Note: See TracChangeset
for help on using the changeset viewer.