Home
last modified time | relevance | path

Searched refs:validatecommand (Results 1 – 25 of 179) sorted by relevance

12345678

/dports/devel/tcllib/tcllib-1.20/examples/tepam/
H A D1d_procedure_validation.demo21 # the -validatecommand attribute.
34 # -validatecommand argument attribute (specifying the argument types
36 # Furthermore, an additional procedure attribute -validatecommand
43 {a -validatecommand {string is integer %P}}
44 {b -validatecommand {string is integer %P}}
46 -validatecommand {expr {($a % $b)==0}}
76 … {a -validatecommand {string is integer %P} -validatecommand_error_text "Integer required for 'a'"}
77 … {b -validatecommand {string is integer %P} -validatecommand_error_text "Integer required for 'b'"}
79 …-validatecommand {expr {($a % $b)==0}} -validatecommand_error_text "'a' divided by 'b' has a remin…
/dports/devel/tcllibc/tcllib-1.20/examples/tepam/
H A D1d_procedure_validation.demo21 # the -validatecommand attribute.
34 # -validatecommand argument attribute (specifying the argument types
36 # Furthermore, an additional procedure attribute -validatecommand
43 {a -validatecommand {string is integer %P}}
44 {b -validatecommand {string is integer %P}}
46 -validatecommand {expr {($a % $b)==0}}
76 … {a -validatecommand {string is integer %P} -validatecommand_error_text "Integer required for 'a'"}
77 … {b -validatecommand {string is integer %P} -validatecommand_error_text "Integer required for 'b'"}
79 …-validatecommand {expr {($a % $b)==0}} -validatecommand_error_text "'a' divided by 'b' has a remin…
/dports/cad/netgen/netgen-6.2.2105/ng/
H A Ddialog.tcl957 -validatecommand "my_validate %W 0 1e9 %P 0" \
1147 -validatecommand "my_validate %W 0 1e9 %P 0" \
1157 -validatecommand "my_validate %W 0 1e9 %P 0" \
1243 -validatecommand "my_validatespinbox %W %P 0" \
1251 -validatecommand "my_validatespinbox %W %P 0" \
1258 -validatecommand "my_validatespinbox %W %P 0" \
1429 -validatecommand "my_validate %W 0 1e9 %P 0" \
1439 -validatecommand "my_validate %W 0 1e9 %P 4" \
1458 -validatecommand "my_validate %W -1e9 1e9 %P 10" \
1618 -validatecommand "my_validatespinbox %W %P 0" \
[all …]
H A Dngvisual.tcl405 …ble visoptions.lineplotxmin -width 6 -increment 0.1 -validate focus -validatecommand "my_validates…
417 …ble visoptions.lineplotxmax -width 6 -increment 0.1 -validate focus -validatecommand "my_validates…
429 …ble visoptions.lineplotymin -width 6 -increment 0.1 -validate focus -validatecommand "my_validates…
441 …ble visoptions.lineplotymax -width 6 -increment 0.1 -validate focus -validatecommand "my_validates…
789 -validatecommand "popupcheckredraw3 fieldlinesdialog_pop1;my_validate %W 0 1 %P 0" \
1218 -validatecommand "popupcheckredraw visual_dialog_pop3;my_validate %W 0 1 %P 2" \
1221 -validatecommand "popupcheckredraw visual_dialog_pop4;my_validate %W 0 1 %P 2" \
1247 … -validate focusout -validatecommand { Ng_Vis_Set parameters; redraw; string is double %P } \
1276 -validatecommand "my_validatespinbox %W %P 10" \
1282 -validatecommand "Ng_Vis_Set parameters; redraw;my_validatespinbox %W %P 10" \
[all …]
/dports/x11-toolkits/tk87/tk8.7a5/library/demos/
H A Dentry3.tcl67 entry $w.l1.e -validate focus -validatecommand {string is integer %P}
73 entry $w.l2.e -validate key -invcmd bell -validatecommand {expr {[string length %P]<10}}
164 -validatecommand {validatePhoneChange %W %v %i %S}
177 entry $w.l4.e -validate key -show "*" -validatecommand {expr {[string length %P]<=8}}
H A Dspin.tcl41 -validatecommand {string is integer %P}
/dports/x11-toolkits/p5-Tk/Tk-804.035/demos/demos/widget_lib/
H A Dentry3.pl24 -validatecommand => sub {
39 -validatecommand => sub {
71 -validatecommand => [\&entry3_validate_phone, $e3, \%l2n],
89 -validatecommand => sub {
H A Dspin.pl20 -validatecommand => sub {
/dports/devel/tcllib/tcllib-1.20/modules/tepam/
H A Dproc_call_arg_valid.test173 {-string_size_3 -type string -optional -validatecommand "StringLength_Is_3 %P"}
174 {-integer_size_3 -type integer -optional -validatecommand "StringLength_Is_3 %P"}
175 {-nonvalid -optional -validatecommand "expr 0"}
176 {-valid -optional -validatecommand "expr 1"}
177 {-m_string_size_3 -type string -optional -multiple -validatecommand "StringLength_Is_3 %P"}
178 … {-m_integer_size_3 -type integer -optional -multiple -validatecommand "StringLength_Is_3 %P"}
179 {-m_nonvalid -optional -multiple -validatecommand "expr 0"}
180 {-m_valid -optional -multiple -validatecommand "expr 1"}
H A DChangeLog20 - New procedure attributes: -validatecommand_error_text, -validatecommand
21 - Updated argument attribute: -validatecommand (the command is now
30 - New global attributes: -validatecommand_error_text, -validatecommand
31 - New argument attributes: -validatecommand_error_text, -validatecommand,
46 …id.test.test (made adaptations for the new error message related to the -validatecommand attribute)
H A Dtepam.tcl87 [-validatecommand <ValidateCommand>]
98 [-validatecommand <ValidateCommand>]
297 -validatecommand -
491 -validatecommand -
1444 [-validatecommand <Script>]
1468 [-validatecommand <Script>]
1568 -validatecommand {} -validatecommand2 {}
1585 -validatecommand -
1627 -validatecommand -validatecommand2
1827 if {[info exists Option(-validatecommand)]} {
[all …]
/dports/devel/tcllibc/tcllib-1.20/modules/tepam/
H A Dproc_call_arg_valid.test173 {-string_size_3 -type string -optional -validatecommand "StringLength_Is_3 %P"}
174 {-integer_size_3 -type integer -optional -validatecommand "StringLength_Is_3 %P"}
175 {-nonvalid -optional -validatecommand "expr 0"}
176 {-valid -optional -validatecommand "expr 1"}
177 {-m_string_size_3 -type string -optional -multiple -validatecommand "StringLength_Is_3 %P"}
178 … {-m_integer_size_3 -type integer -optional -multiple -validatecommand "StringLength_Is_3 %P"}
179 {-m_nonvalid -optional -multiple -validatecommand "expr 0"}
180 {-m_valid -optional -multiple -validatecommand "expr 1"}
H A DChangeLog20 - New procedure attributes: -validatecommand_error_text, -validatecommand
21 - Updated argument attribute: -validatecommand (the command is now
30 - New global attributes: -validatecommand_error_text, -validatecommand
31 - New argument attributes: -validatecommand_error_text, -validatecommand,
46 …id.test.test (made adaptations for the new error message related to the -validatecommand attribute)
H A Dtepam.tcl87 [-validatecommand <ValidateCommand>]
98 [-validatecommand <ValidateCommand>]
297 -validatecommand -
491 -validatecommand -
1444 [-validatecommand <Script>]
1468 [-validatecommand <Script>]
1568 -validatecommand {} -validatecommand2 {}
1585 -validatecommand -
1627 -validatecommand -validatecommand2
1827 if {[info exists Option(-validatecommand)]} {
[all …]
/dports/games/scid/scid/tcl/tools/
H A Dsergame.tcl136 …ackground white -width 2 -from 1 -to 120 -increment 1 -validate all -validatecommand { regexp {^[0…
140 …background white -width 2 -from 0 -to 60 -increment 1 -validate all -validatecommand { regexp {^[0…
148 …ackground white -width 2 -from 1 -to 120 -increment 1 -validate all -validatecommand { regexp {^[0…
152 …background white -width 2 -from 0 -to 60 -increment 1 -validate all -validatecommand { regexp {^[0…
165 …background white -width 3 -from 1 -to 20 -increment 1 -validate all -validatecommand { regexp {^[0…
174 …kground white -width 3 -from 5 -to 10000 -increment 5 -validate all -validatecommand { regexp {^[0…
183 …ackground white -width 3 -from 1 -to 120 -increment 1 -validate all -validatecommand { regexp {^[0…
/dports/cad/tkgate/tkgate-2.1/scripts/
H A Ddropbox.tcl247 …eight -command -value -variable -entry -bd -highlightthickness -state -validatecommand -takefocus}
263 if {[info exists validatecommand]} {
264 …$w.e configure -validatecommand "$validatecommand %W %d %s %S %P" -validate key -invalidcommand be…
/dports/x11-fm/filerunner/filerunner/packages/unix/
H A Dchmod.tcl65 -validatecommand "chmod_valoct %d %i %S %W"
72 -validatecommand "chmod_valrwx %d %i %S %W"
109 -validatecommand chmod_ownargSet\
116 -validatecommand chmod_ownargSet\
/dports/net-im/coccinella/Coccinella-0.96.20Src/jabber/
H A DAutoAway.tcl292 -validate key -validatecommand {::Utils::ValidMinutes %S} \
315 -validate key -validatecommand {::Utils::ValidMinutes %S} \
338 -validate key -validatecommand {::Utils::ValidMinutes %S} \
376 -validate key -validatecommand {::Utils::ValidMinutes %S} \
H A DSetupAss.tcl139 -validate key -validatecommand {::Jabber::ValidateDomainStr %S}
171 -validate key -validatecommand {::Jabber::ValidateUsernameStr %S}
173 -validate key -validatecommand {::Jabber::ValidatePasswordStr %S}
175 -validate key -validatecommand {::Jabber::ValidatePasswordStr %S}
/dports/games/zangband/zangband/lib/script/tk/library/
H A Dutils.tcl232 -validatecommand "expr [string is integer %P] && (\[string length %P] <= $maxLen)" \
236 -validatecommand "string is integer %P" \
241 -validatecommand "expr \[string length %P] <= $maxLen" \
/dports/science/jstrack/jstrack/extlib/tcllib1.19/tepam/
H A Dtepam.tcl87 [-validatecommand <ValidateCommand>]
98 [-validatecommand <ValidateCommand>]
297 -validatecommand -
491 -validatecommand -
1444 [-validatecommand <Script>]
1468 [-validatecommand <Script>]
1568 -validatecommand {} -validatecommand2 {}
1585 -validatecommand -
1627 -validatecommand -validatecommand2
1827 if {[info exists Option(-validatecommand)]} {
[all …]
/dports/x11-toolkits/tk86/tk8.6.12/tests/ttk/
H A Dvalidate.test28 -validatecommand [list doval %W %d %i %P %s %S %v %V] \
225 test validate-2.2 "configure in -validatecommand" -body {
230 ttk::entry .e -textvariable var -validatecommand {validate-2.2 %W %P}
241 -validatecommand {string is integer -strict %P} \
/dports/x11-toolkits/tk85/tk8.5.19/tests/ttk/
H A Dvalidate.test28 -validatecommand [list doval %W %d %i %P %s %S %v %V] \
216 test validate-2.2 "configure in -validatecommand" -body {
221 ttk::entry .e -textvariable var -validatecommand {validate-2.2 %W %P}
232 -validatecommand {string is integer -strict %P} \
/dports/x11-toolkits/tk87/tk8.7a5/tests/ttk/
H A Dvalidate.test28 -validatecommand [list doval %W %d %i %P %s %S %v %V] \
225 test validate-2.2 "configure in -validatecommand" -body {
230 ttk::entry .e -textvariable var -validatecommand {validate-2.2 %W %P}
241 -validatecommand {string is integer -strict %P} \
/dports/devel/git-svn/git-2.34.1/git-gui/lib/
H A Dline.tcl22 -validatecommand [cb _validate %P]

12345678