Class ::xowiki::formfield::MI
::xowiki::formfield::MI
create ...
Class Relations
- class: ::xotcl::Class
![[i]](/resources/acs-subsite/ZoomIn16.gif)
- superclass: ::xowiki::formfield::select
![[i]](/resources/acs-subsite/ZoomIn16.gif)
::xotcl::Class create ::xowiki::formfield::MI \
-superclass ::xowiki::formfield::select
Methods (to be applied on instances)
initialize (scripted)
set :options {
{00 0} {05 5} {10 10} {15 15} {20 20} {25 25}
{30 30} {35 35} {40 40} {45 45} {50 50} {55 55}
}
nextvalue (scripted)
if {[llength $args] == 0} {return ${:value}} else {
set v [lindex $args 0]
if {$v eq ""} {
set :value ""
} else {
set :value [lindex ${:options} [expr {($v + 2) / 5}] 1]
}
}