Lines Matching refs:index
5 # selecting, and deselecting of checkbuttons by tag and index.
64 method insert {index tag args}
65 method delete {index}
66 method get {{index ""}}
67 method index {index}
68 method select {index}
69 method deselect {index}
70 method flash {index}
71 method toggle {index}
72 method buttonconfigure {index args}
77 method gettag {index} ;# Get the tag of the checkbutton associated
78 ;# with a numeric index
132 # METHOD: index index
135 # requested tag, numerical index, or keyword "end". Returns the
136 # choices's numerical index if found, otherwise error.
138 itcl::body iwidgets::Checkbox::index {index} {
140 if {[regexp {(^[0-9]+$)} $index]} {
141 if {$index < [llength $_buttons]} {
142 return $index
144 error "Checkbox index \"$index\" is out of range"
147 } elseif {$index == "end"} {
151 if {[set idx [lsearch $_buttons $index]] != -1} {
155 error "bad Checkbox index \"$index\": must be number, end,\
200 # METHOD: insert index tag ?option value option value ...?
203 # one given by index. Any additional options are passed on to the
207 itcl::body iwidgets::Checkbox::insert {index tag args} {
221 set index [index $index]
222 set before [lindex $_buttons $index]
223 set _buttons [linsert $_buttons $index $tag]
231 # METHOD: delete index
235 itcl::body iwidgets::Checkbox::delete {index} {
237 set tag [gettag $index]
238 set index [index $index]
240 set _buttons [lreplace $_buttons $index $index]
248 # METHOD: select index
252 itcl::body iwidgets::Checkbox::select {index} {
253 set tag [gettag $index]
269 # METHOD: toggle index
273 itcl::body iwidgets::Checkbox::toggle {index} {
274 set tag [gettag $index]
281 # Return the value of the checkbutton with the given index, or a
282 # list of all checkbutton values in increasing order by index.
284 itcl::body iwidgets::Checkbox::get {{index ""}} {
287 if {$index == ""} {
294 set tag [gettag $index]
302 # METHOD: deselect index
306 itcl::body iwidgets::Checkbox::deselect {index} {
307 set tag [gettag $index]
312 # METHOD: flash index
316 itcl::body iwidgets::Checkbox::flash {index} {
317 set tag [gettag $index]
322 # METHOD: buttonconfigure index ?option? ?value option value ...?
328 itcl::body iwidgets::Checkbox::buttonconfigure {index args} {
329 set tag [gettag $index]
334 # METHOD: gettag index
337 # numeric index
339 itcl::body iwidgets::Checkbox::gettag {index} {
340 return [lindex $_buttons [index $index]]