Helper.mod: Translation to Stony Brook Modula-2

Last updated: 11. 1.1998, 17: 2

<*/NOWARN:F*>
(*--------------------------------
   HELPER.C        --- Helper routines
                   (c) Paul Yao,      1996
   Helper.mod      --- Translation to Stony Brook Modula-2
                   (c) Peter Stadler, 1997
  --------------------------------*)
IMPLEMENTATION MODULE Helper;
IMPORT WIN32;
IMPORT SYSTEM;
IMPORT WINUSER;
IMPORT COMMCTRL;
IMPORT WINX;
IMPORT h2d_property;


(*-------------------------------------------------------------------          *)
PROCEDURE SetButtonCheck ( hwndDlg  :  WIN32.HWND;
                           CtrlID   :  INTEGER;
                           bCheck   :  BOOLEAN);
(*-------------------------------------------------------------------          *)
VAR
  hwndCtrl  :  WIN32.HWND;
BEGIN
     hwndCtrl := WINUSER.GetDlgItem (hwndDlg, CtrlID) ;
     IF (bCheck) THEN
          WINX.Button_SetCheck (hwndCtrl, SYSTEM.CAST(WIN32.BOOL,WINUSER.BST_CHECKED));
     END;
END SetButtonCheck;

(*-------------------------------------------------------------------          *)
PROCEDURE QueryButtonCheck ( hwndDlg  :  WIN32.HWND;
                             CtrlID   :  INTEGER) : BOOLEAN;
(*-------------------------------------------------------------------          *)
VAR
  hwndCtrl  :  WIN32.HWND;
  nCheck    :  INTEGER;
BEGIN
     hwndCtrl := WINUSER.GetDlgItem (hwndDlg, CtrlID);
     nCheck := WINX.Button_GetCheck (hwndCtrl);
     RETURN (nCheck = WINUSER.BST_CHECKED);
END QueryButtonCheck;
BEGIN
END Helper.