home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Environments / Clean 1.2.4 / IOInterface / dialogInternal.dcl < prev    next >
Encoding:
Modula Definition  |  1995-03-02  |  1.4 KB  |  38 lines  |  [TEXT/3PRM]
  1. definition module dialogInternal;
  2.  
  3. //    Version 0.8 to 1.0
  4.  
  5.  
  6. import    dialogDef, ioState;
  7. from    Picture    import Rectangle, DrawFunction;
  8.  
  9.  
  10. PopUpMenuID            :== 235;
  11.  
  12. ::    Response *s        =    Final        (ButtonFunction s (IOState s))
  13.                     |    RadioBox    (DialogFunction s (IOState s))
  14.                     |    Void_new;
  15.  
  16. OpenAnyDialog        :: !DialogMode !DialogPtr !(DialogDef s (IOState s)) !Toolbox
  17.                     ->    (!DialogRep s (IOState s), !Toolbox);
  18. DoNotice            :: !NoticeDef !(IOState s) -> (!NoticeButtonId, !IOState s);
  19. DeactivateDialog    :: !(DialogRep s (IOState s)) !(IOState s) -> IOState s;
  20.  
  21. HandleDialogEvent    :: !(DialogHandle s (IOState s)) !DialogPtr !Toolbox !Int
  22.                     -> (!DialogRep s (IOState s), !Response s, !Toolbox);
  23.  
  24. DrawDefButtonOutline:: !ItemPos                                !DialogPtr !Toolbox -> Toolbox;
  25. RedrawPopUp            :: !ItemPos !SelectState !String        !DialogPtr !Toolbox -> Toolbox;
  26. RedrawPopUpItemText    :: !ItemPos                 !String        !DialogPtr !Toolbox -> Toolbox;
  27. DrawPopUpAbility    :: !ItemPos !SelectState                !DialogPtr !Toolbox -> Toolbox;
  28. DrawIconOrControl    :: !ItemPos !Rectangle ![DrawFunction]    !DialogPtr !Toolbox -> Toolbox;
  29. RedrawIconOrControl    :: !ItemPos !Rectangle ![DrawFunction]    !DialogPtr !Toolbox -> Toolbox;
  30.  
  31. GetDialogDefId        :: !(DialogDef s io) -> DialogId;
  32. GetPopUpHandle        :: !DialogItemId ![PopUpHandle] -> PopUpHandle;
  33.  
  34. ActivateDialog        :: !(DialogHandles s) !Toolbox -> Toolbox;
  35.  
  36. Hilite                :: !DialogPtr !Int !Toolbox -> Toolbox;
  37. Unhilite            :: !DialogPtr !Int !Toolbox -> Toolbox;
  38.