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

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

GLOBAL DRAWING MODULE men_edit(
     INT       editn:=1      > "Edit number";
     VECTOR    pos:=vec(0,0) > "Edit corner (uper left)";
     FLOAT     b:=90         > "Edit width in pixels";
     FLOAT     h:=40         > "Edit heigth in pixels";
     FLOAT     r:=3          > "Frame thicknes in pixels";
     STRING    s*132:="Text" > "Text ""ON"" ";
     INT       ntkn:=45      > "Number of chars"
     );

     string    tx*132;
     file ut;

BEGINMODULE

     part(#10,m_box(pos,pos+vec(b,-h)));
     if r>0 then
      part(#20,m_box(pos+vec(r,-r),pos+vec(b-r,-h+r)));
     endif;
     
     set(level=1);

     text(#30,pos+vec(b*.4,-h*.6),0,s:tsize=5);

ENDMODULE