#=================================================
#  Macro: windowLabel  
#  Descr: Place in the Default Label for Windows
#  BT
#=================================================
label = ""

if defined?($FtIn).nil? then
$FtIn = NumberFormatter.new
$FtIn.unit = "'-\""
$FtIn.use_fractions = true
$FtIn.denominator = 8
$FtIn.show_trailing_zeros = true
end

referenced ? obj = referenced : obj = owner
dim = $FtIn.apply(obj.width.round(0)) + "w x " + $FtIn.apply(obj.height.round(0).to_s) + "h"
begin
  if obj.schedule_number == ""
    label = label + obj.automatic_label.to_i.to_s
  else
    label = label + obj.schedule_number + " - "
    label = label + obj.automatic_label.sub(owner.schedule_number,"").to_i.to_s
    label = label.sub("- -","- ")
  end

  begin
    label = label + " " + obj.type_code
  rescue
    label = label + " " + obj.type_name
  end
 
  label = label + "\n"  + dim

    if obj.is_tempered
      label = label + " Temp"
    end
    begin
      if obj.is_egress
        label = label + " Egr"
      end
    rescue
    end	 
rescue
end
label