/dports/devel/tcllib/tcllib-1.20/examples/tepam/ |
H A D | 1d_procedure_validation.demo | 21 # 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 D | 1d_procedure_validation.demo | 21 # 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 D | dialog.tcl | 957 -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 D | ngvisual.tcl | 405 …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 D | entry3.tcl | 67 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 D | spin.tcl | 41 -validatecommand {string is integer %P}
|
/dports/x11-toolkits/p5-Tk/Tk-804.035/demos/demos/widget_lib/ |
H A D | entry3.pl | 24 -validatecommand => sub { 39 -validatecommand => sub { 71 -validatecommand => [\&entry3_validate_phone, $e3, \%l2n], 89 -validatecommand => sub {
|
H A D | spin.pl | 20 -validatecommand => sub {
|
/dports/devel/tcllib/tcllib-1.20/modules/tepam/ |
H A D | proc_call_arg_valid.test | 173 {-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 D | ChangeLog | 20 - 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 D | tepam.tcl | 87 [-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 D | proc_call_arg_valid.test | 173 {-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 D | ChangeLog | 20 - 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 D | tepam.tcl | 87 [-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 D | sergame.tcl | 136 …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 D | dropbox.tcl | 247 …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 D | chmod.tcl | 65 -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 D | AutoAway.tcl | 292 -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 D | SetupAss.tcl | 139 -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 D | utils.tcl | 232 -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 D | tepam.tcl | 87 [-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 D | validate.test | 28 -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 D | validate.test | 28 -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 D | validate.test | 28 -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 D | line.tcl | 22 -validatecommand [cb _validate %P]
|