arduino-0018-windows
This commit is contained in:
parent
157fd6f1a1
commit
f39fc49523
5182 changed files with 950586 additions and 0 deletions
|
@ -0,0 +1,47 @@
|
|||
# ----------------------------------------------------------------------
|
||||
# DEMO: labeledframe in [incr Widgets]
|
||||
# ----------------------------------------------------------------------
|
||||
package require Iwidgets 4.0
|
||||
|
||||
set tk_strictMotif 1
|
||||
|
||||
iwidgets::Labeledframe .pr -labelpos ne -labeltext "Print range"
|
||||
set cs [.pr childsite]
|
||||
|
||||
radiobutton $cs.all \
|
||||
-highlightthickness 0 \
|
||||
-anchor w \
|
||||
-justify left \
|
||||
-text "All" \
|
||||
-underline 0 \
|
||||
-value 1
|
||||
|
||||
radiobutton $cs.range \
|
||||
-highlightthickness 0 \
|
||||
-anchor w \
|
||||
-justify left \
|
||||
-text "Pages" \
|
||||
-underline 2 \
|
||||
-value 0
|
||||
|
||||
iwidgets::entryfield $cs.from \
|
||||
-highlightthickness 0 \
|
||||
-labelpos w \
|
||||
-labeltext "from:" \
|
||||
-width 10
|
||||
|
||||
[$cs.from component label] configure -justify left -underline 0
|
||||
|
||||
iwidgets::entryfield $cs.to \
|
||||
-highlightthickness 0 \
|
||||
-labelpos w \
|
||||
-labeltext "to:" \
|
||||
-width 10
|
||||
|
||||
[$cs.to component label] configure -justify left -underline 0
|
||||
|
||||
pack $cs.all -side top -fill x -anchor w
|
||||
pack $cs.range -side left -fill x -anchor w
|
||||
pack $cs.from -side left -fill x -anchor w
|
||||
pack $cs.to -side left -fill x -anchor w
|
||||
pack .pr -fill both
|
Reference in a new issue