# Assorted useful wish routines.

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
proc Raise w {raise $w; wm deiconify $w}

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
proc Min {m args} {foreach y $args {if {$y < $m} {set m $y}}; return $m}
proc Max {m args} {foreach y $args {if {$y > $m} {set m $y}}; return $m}

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
proc min {m args} {foreach y $args {if {$y < $m} {set m $y}}; return $m}
proc max {m args} {foreach y $args {if {$y > $m} {set m $y}}; return $m}