5 puts stderr "bad usage: $msg"
11 badusage "unknown option $msg"
17 if {![llength $argv]} { badusage "$lastarg needs a value" }
18 set arg [lindex $argv 0]
19 set argv [lrange $argv 1 end]
26 if {[catch { eval {$arg + 0} } emsg]} {
27 badusage "$lastargv value must be a number ($emsg)"
33 set orientation horizontal
39 -width { set w [next_num] }
40 -height { set h [next_num] }
41 -horizontal - -vertical { set orientation $arg }
42 -borderColour - -borderColor { set bc [next] }
43 -borderWidth { set bw [next_num] }
51 if {![llength $argv]} { return 0 }
52 if {![regexp {^-} [lindex $argv 0]]} { return 0 }
56 proc next_special {va} {
61 if {[generalarg $arg]} continue