home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Environments / Clean 1.2.4 / IOInterface / dialogAccess.dcl < prev    next >
Encoding:
Modula Definition  |  1995-02-24  |  1.9 KB  |  37 lines  |  [TEXT/3PRM]
  1. definition module dialogAccess;
  2.  
  3. //    Version 0.8 to 1.0
  4.  
  5. //
  6. //    Access rules on the dialog device.
  7. //
  8.  
  9. import    mac_types;
  10. import    dialogDef, ioState;
  11.  
  12. RetrieveEditTexts :: !(!DialogRep s (IOState s), !Toolbox) -> (!DialogRep s (IOState s), !Toolbox);
  13.  
  14. IOStateGetDialogs            :: !(IOState s) -> (!DialogHandles s, !IOState s);
  15. IOStateSetDialogs            :: !(DialogHandles s) !(IOState s) -> IOState s;
  16.  
  17. IOStateGetActiveDialogInfo    ::                !(IOState s) -> (!Bool, !DialogInfo, !IOState s);
  18. IOStateGetDialogInfo        :: !DialogId    !(IOState s) -> (!Bool, !DialogInfo, !IOState s);
  19. IOStateGetDialog    :: !DialogId    !(IOState s)    -> (!Bool, !DialogRep s (IOState s), !IOState s);
  20. IOStateGetDialogPtr    :: !DialogPtr    !(IOState s)    -> (!Bool, !DialogRep s (IOState s), !IOState s);
  21. GetDialog            :: !DialogId !(DialogHandles s)    -> (!Bool, !DialogRep s (IOState s));
  22.  
  23. IOStateRemoveActiveDialog    ::                !(IOState s) -> (!Bool, !DialogRep s (IOState s), !IOState s);
  24. IOStateRemoveActiveDialogPtr:: !DialogPtr    !(IOState s) -> (!Bool, !DialogRep s (IOState s), !IOState s);
  25. IOStateRemoveDialog            :: !DialogId    !(IOState s) -> (!Bool, !DialogRep s (IOState s), !IOState s);
  26. IOStateRemoveDialogPtr        :: !DialogPtr    !(IOState s) -> (!Bool, !DialogRep s (IOState s), !IOState s);
  27. RemoveDialogPtr                :: !DialogPtr !(DialogHandles s) -> (!Bool, !DialogRep s (IOState s), !DialogHandles s);
  28.  
  29. IOStateAddDialog            :: !(DialogRep s (IOState s))            !(IOState s) -> IOState s;
  30. IOStateAddInactiveDialog    :: !(DialogRep s (IOState s))            !(IOState s) -> IOState s;
  31. IOStateReplaceDialog        :: !DialogId !(DialogRep s (IOState s))    !(IOState s) -> IOState s;
  32. IOStateSetDialogInFront        :: !DialogId                            !(IOState s) -> (!Bool, !IOState s);
  33. SetDialogInFront            :: !DialogId !(DialogHandles s) -> (!Bool, !DialogHandles s);
  34.  
  35. IOStateModalDialogActive    :: !(IOState s)                    -> (!Bool,!DialogPtr,!IOState s);
  36. IsModalDialog                :: !(DialogRep s (IOState s))    -> (!Bool,!DialogPtr);
  37.