! Modulen skapar ett subf÷nster iv typen BUTTON en meny.

! AB DATERRA 1994-06-02.
! Thomas Hellner.

GLOBAL DRAWING MODULE men_button(
     INT    bidn:=1       > "bid number";
     VECTOR pos:=vec(0,0) > "Button corner (uper left)";
     FLOAT  b:=90         > "Button width in pixels";
     FLOAT  h:=40         > "Button heigth in pixels";
     FLOAT  r:=3          > "Frame thicknes in pixels";
     STRING s1*132:="P  " > "Text ""ON"" ";
     STRING s2*132:="AV " > "Text ""OFF"" ";
     STRING font*132:=" " > "Textfont ";
     INT    fpen:=3       > "Subwindow color";
     INT    tpen:=1       > "Text color"
     );

     string    tx*132;
     file      ut;

BEGINMODULE

     if finds(font,"FONT")=0 then font:="""""";endif;

     tx:="bid"+str(bidn,-1,0)+":=cre_button(main_id,vec("+
               str(pos.x,4,0)+","+str(-pos.y,4,0)+"),"+
               str(b,4,0)+","+str(h,4,0)+","+str(r,3,0)+",";
     set(pen=fpen);

     if r=0 then set(level=0);endif;

     part(#10,m_box(pos,pos+vec(b,-h)));
     part(#20,m_box(pos+vec(-r,r),pos+vec(b+r,-h-r)));
     
     set(level=1);
     xhatch(#21,3,45,#10#11,#10#13,#10#10,#10#12);
     text(#30,pos+vec(b*.4,-h*.6),0,s1:tsize=6,pen=tpen);

ENDMODULE