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: Horiz1

                 Horiz1_X  Horiz1_Y Horiz1_W Horiz1_H  Move: Horiz1

                ;M