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

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

GLOBAL DRAWING MODULE men_icon(
     INT       icon:=1        > "Icon number";
     VECTOR    pos:=vec(0,0)  > "Icon corner (uper left)";
     FLOAT     b:=64;    !    > "Icon width in pixels";
     FLOAT     h:=64;    !    > "Icon heigth in pixels";
     FLOAT     r:=3           > "Frame thicknes in pixels";
     STRING    ikon*132:=" "  > "Iconfilename ";
     INT       fpen:=3        > "Subwindow color";
     INT       tpen:=1        > "Icon color"
     );

     string    tx*132;

BEGINMODULE

     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);

ENDMODULE