上一页 1 ··· 41 42 43 44 45 46 47 48 49 ··· 82 下一页
摘要: iwidgets::regexpfield .fname \ -labeltext "Enter First Name:" \ -fixed 12 \ -regexp {^[a-zA-Z]+$}iwidgets::Labeledwidget::alignlabels .fnamepack .fname\ -fill x \ -expand 1 阅读全文
posted @ 2011-05-03 22:19 greencolor 阅读(161) 评论(0) 推荐(0)
摘要: iwidgets::pushbutton .pb \-text "Go ahead, hit me..." \-command {puts OUCH!!} \-defaultring 1pack .pb \-padx 12 \-pady 12 阅读全文
posted @ 2011-05-03 21:57 greencolor 阅读(154) 评论(0) 推荐(0)
摘要: iwidgets::promptdialog .pd \-labeltext "Enter your security key" \-title "Accessing Security Site" \-modality application####Hide Apply; don't need it. Bring##back Help though; it is hidden by##default##.pd show Help.pd hide Apply.pd buttonconfigure Help \-command {puts " 阅读全文
posted @ 2011-05-03 21:41 greencolor 阅读(209) 评论(0) 推荐(0)
摘要: proc selectProc {} {set os [.om get]puts "The OS chosen is $os"return}; # end selectProc prociwidgets::optionmenu .om \-labeltext "Operating Systems:" \-command selectProcpack .om \-padx 10 \-pady 10####Insert items into the list##foreach o {SunOS HP/UX AIX OS/2 Windows DOS Linux 阅读全文
posted @ 2011-05-03 21:02 greencolor 阅读(224) 评论(0) 推荐(0)
摘要: foreach m {file edit view} { puts $m}fileeditviewset aa [list ab te se]foreach g $aa {puts $g}abtese 阅读全文
posted @ 2011-05-02 19:17 greencolor 阅读(259) 评论(0) 推荐(0)
摘要: iwidgets::hyperhelp .hh \ -topics demo \ -helpdir [file join /home/you/Desktop] \ -maxhistory 30####display the topic in the iwidget##when the iwidget is activated##.hh showtopic demo####Activate the iwidget##update idletasks.hh activate.hh configure \ -title "aaHyperhelp Example" 阅读全文
posted @ 2011-05-02 18:37 greencolor 阅读(199) 评论(0) 推荐(0)
摘要: package require Iwidgetswm title . "Feedback Example"wm geometry . 225x75##=========================================================## Create a Feedback iwidget##=========================================================##iwidgets::feedback .fb \ -steps 50 \ -labeltext "Loading File... 阅读全文
posted @ 2011-05-01 16:41 greencolor 阅读(197) 评论(0) 推荐(0)
摘要: iwidgets::extfileselectionbox .efsb \ -mask "*.html" \ -directory "../" \ -fileslabel "HTML Files" \ -dirslabel "Iwidgets HTML Dir" \ -selectdircommand {print dir} \ -selectfilecommand {print file}pack .efsb \ -fill both \ -expand true 阅读全文
posted @ 2011-05-01 16:05 greencolor 阅读(191) 评论(0) 推荐(0)
摘要: iwidgets::toolbar .tb \ -balloonbackground \ -ballonforeground \ -balloondelay1 \ -balloondelay2 \ -helpvariable .tb add iwidgets::extbutton $b \ -balloonstr \ -helpstr \ -text \ -imagepos \ -command \ -relief \ -image label .stat \ -textvariable \ -relief \ -background \ -foreground \ -width pack . 阅读全文
posted @ 2011-05-01 15:27 greencolor 阅读(195) 评论(0) 推荐(0)
摘要: package require Iwidgetswm title . "Checkbox Example"####wrap in a dialog user interaction##iwidgets::dialog .d \-title "Checkbox Example"#.d hide Help#.d hide Apply.d buttonconfigure OK \-text "Update"set cs [.d childsite]##============================================= 阅读全文
posted @ 2011-05-01 11:09 greencolor 阅读(156) 评论(0) 推荐(0)
上一页 1 ··· 41 42 43 44 45 46 47 48 49 ··· 82 下一页