ToolTip.def: Translation to Stony Brook Modula-2

Last updated: 22.12.1997, 23:53

DEFINITION MODULE ToolTip;
(*---------------------------------------
   TOOLTIP.C    -- Gadgets for a frame window.
                   (c) Paul Yao, 1996
   ToolTip.mod  -- Translation to Stony Brook-Modula-2
                   (c) Peter Stadler, 30.05.1997
  ---------------------------------------*)
IMPORT WINUSER;
IMPORT WINGDI;
IMPORT WIN32;
IMPORT WINX;
IMPORT SYSTEM;
IMPORT comcthlp;
IMPORT h2d_gadgets;
IMPORT COMMCTRL;

VAR
  bComboBox      :  BOOLEAN;
  hwndEdit       :  WIN32.HWND;
  hwndTT         :  WIN32.HWND;

(* Map toolbar button command to string index.*)
 TYPE
  CommandArray  = ARRAY[0..12] OF INTEGER;
CONST
  CommandToString = CommandArray
     { h2d_gadgets.IDM_FILE_NEW, h2d_gadgets.IDM_FILE_OPEN, h2d_gadgets.IDM_FILE_SAVE, h2d_gadgets.IDM_FILE_PRINT,
       h2d_gadgets.IDM_FILE_PREVIEW, h2d_gadgets.IDM_EDIT_CUT, h2d_gadgets.IDM_EDIT_COPY, h2d_gadgets.IDM_EDIT_PASTE,
       h2d_gadgets.IDM_EDIT_UNDO, h2d_gadgets.IDM_EDIT_PROP, h2d_gadgets.IDM_TB_HELP, h2d_gadgets.IDM_TB_DELETE, -1
     };

(*++++*****************************************************************)
PROCEDURE InitToolTip(hwndToolBar : WIN32.HWND; hwndComboBox : WIN32.HWND) : BOOLEAN;
(**********************************************************************)
(*++++*****************************************************************)
PROCEDURE CopyToolTipText(lpttt : COMMCTRL.LPTOOLTIPTEXT);
(**********************************************************************)
END ToolTip.