Searched refs:argument_dialogbox (Results 1 - 6 of 6) sorted by relevance
| /macosx-10.9.5/tcl-102/tcl_ext/tcllib/tcllib/examples/tepam/ |
| H A D | 2a_argument_dialogbox_all_widgets.demo | 21 # argument_dialogbox.
33 if {[tepam::argument_dialogbox \
53 if {[tepam::argument_dialogbox \
74 if {[tepam::argument_dialogbox \
92 if {[tepam::argument_dialogbox \
109 if {[tepam::argument_dialogbox \
129 if {[tepam::argument_dialogbox \
151 if {[tepam::argument_dialogbox \
169 if {[tepam::argument_dialogbox \
187 if {[tepam::argument_dialogbox \
[all...] |
| H A D | 2b_argument_dialogbox_context.demo | 44 if {[tepam::argument_dialogbox \
63 if {[tepam::argument_dialogbox \
|
| H A D | 2_argument_dialogbox_introduction.demo | 20 # TEPAM provides the flexible entry form generator argument_dialogbox. A first
22 # argument_dialogbox. A second example provides an overview of the entry types,
23 # features and options that are available with argument_dialogbox.
27 namespace import -force tepam::*; # Import tepam::procedure and tepam::argument_dialogbox
40 # The argument_dialogbox returns 0 when the entered data are validated and 1
42 # argument_dialogbox defines all the specified variables with the entered data
45 # A pair of arguments has to be provided to argument_dialogbox for each variable
50 set Result [tepam::argument_dialogbox \
88 set Result [tepam::argument_dialogbox \
|
| /macosx-10.9.5/tcl-102/tcl_ext/tcllib/tcllib/modules/tepam/ |
| H A D | adbox_all.test | 7 # test. It verifies the argument_dialogbox in conjunction with all its different
58 set tepam::argument_dialogbox(test,status) cancel
59 set tepam::argument_dialogbox(test,script) ""
62 test tepam-adbox.all.$ShortType.cr1 "argument_dialogbox with $WidgetType widget - create 1" \
63 -body "tepam::argument_dialogbox -$WidgetType \{$Attributes\} " \
67 test tepam-adbox.all.$ShortType.re1 "argument_dialogbox with $WidgetType widget - result 1" \
74 set tepam::argument_dialogbox(test,status) ok
75 set tepam::argument_dialogbox(test,script) ""
79 test tepam-adbox.all.$ShortType.cr2 "argument_dialogbox with $WidgetType widget - create 2" \
80 -body "tepam::argument_dialogbox
[all...] |
| H A D | proc_interactive.test | 114 set tepam::argument_dialogbox(test,status) cancel
121 set tepam::argument_dialogbox(test,status) ok
236 set tepam::argument_dialogbox(test,status) cancel
243 set tepam::argument_dialogbox(test,status) ok
302 set tepam::argument_dialogbox(test,script) "ad_form($EntryWidget) \$WChild($ArgPos).f set \"$Value\""
303 set tepam::argument_dialogbox(test,status) ok
311 # set tepam::argument_dialogbox(test,script) ""
312 # set tepam::argument_dialogbox(test,status) ok
357 set tepam::argument_dialogbox(test,script) ""
358 set tepam::argument_dialogbox(tes
[all...] |
| H A D | tepam.tcl | 27 namespace export procedure argument_dialogbox
631 #### Call an argument_dialogbox if the procedure has been called with'-interactive' ####
635 # Start creating the argument_dialogbox's argument list with the title attribute:
638 # Create for each of the procedure arguments an entry for the argument_dialogbox:
769 # puts "argument_dialogbox \{$DialogBoxArguments\}"
770 if {[argument_dialogbox $DialogBoxArguments]=="cancel"} {
1318 # argument_dialogbox #
1325 # argument_dialogbox($W,<sub_index>):
1326 array set argument_dialogbox {}
1332 set argument_dialogbox(tes
1437 proc argument_dialogbox {args} { procedure
[all...] |
Completed in 163 milliseconds