📄 spinint
字号:
#!/bin/sh# ----------------------------------------------------------------------# DEMO: spinint in [incr Widgets]# ----------------------------------------------------------------------#\exec itkwish "$0" ${1+"$@"}package require Iwidgets 3.0# itkwish interprets the rest...# ----------------------------------------------------------------------option add *textBackground seashell. configure -background whiteiwidgets::spinint .times -labeltext "Countdown:" -range {0 10} -width 3pack .times -padx 10 -pady 10.times delete 0 end.times insert end "5"frame .testpack .test -padx 10 -pady 10button .test.go -text "Go" -command { set count [.times get] while {$count >= 0} { .test.readout configure -text $count update after 200 incr count -1 } .test.readout configure -text "blast-off!"}pack .test.go -side leftlabel .test.readout -width 15 -background seashellpack .test.readout -side left -padx 4 -pady 4
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -