Miscellany

Alias drawbut {
  ;Syntax : Drawbut <@window> <outline colour> <fill colour> <x> <y> <text> <textcolour>
  if (!$hget(drawbut)) { hmake drawbut 1000 }
  hadd drawbut $6 $4 $5 $calc($4 + $calc($width($6,Tahoma,11) + 6)) $calc($5 + $calc($height($6,Tahoma,11) + 3))
  drawrect -fr $1 $3 1 $4 $5 $calc($width($6,Tahoma,11) + 6) $calc($height($6,Tahoma,11) + 3)
  drawrect -r $1 $2 1 $4 $5 $calc($width($6,Tahoma,11) + 6) $calc($height($6,Tahoma,11) + 3)
  drawtext -r $1 $7 Tahoma 11 $calc($4 + 3) $calc($5 + 1) $6
  drawline -r $1 $rgb(157,157,146) 1 $4 $iif(%curbut != $6,$calc($5 + $calc($height($6,Tahoma,11) + 2)),$5) $calc($4 + $calc($width($6,Tahoma,11) + 6)) $iif(%curbut != $6,$calc($5 + $calc($height($6,Tahoma,11) + 2)),$5)
  drawline -r $1 $rgb(157,157,146) 1 $iif(%curbut != $6,$calc($4 + $calc($width($6,Tahoma,11) + 5)),$4) $5 $iif(%curbut != $6,$calc($4 + $calc($width($6,Tahoma,11) + 5)),$4) $calc($5 + $calc($height($6,Tahoma,11) + 3))
  %sbut = $calc($4 + $calc($width($6,Tahoma,11) + 15))
  drawpic $1
}