On_Init.f

:M On_Init:     ( -- )

                On_Init: Super

                s" MS Sans Serif" SetFaceName: WinFont

                8 Width: WinFont

                Create: WinFont 

                \ set form color to system color

                COLOR_BTNFACE Call GetSysColor NewColor: FrmColor

                self Start: Vert1

                 Vert1_X  Vert1_Y Vert1_W Vert1_H  Move: Vert1

                ;M