home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Environments / Clean 1.2.4 / IOInterface / dialogAbout.dcl < prev    next >
Encoding:
Modula Definition  |  1995-03-10  |  548 b   |  25 lines  |  [TEXT/3PRM]
  1. definition module dialogAbout;
  2.  
  3. //    Version 0.8 to 1.0
  4.  
  5.  
  6. import    ioState;
  7.  
  8.  
  9. AboutDialogID    :== -1;
  10.  
  11.  
  12. //    AboutDialogToDialogHandle converts an AboutDialog into a DialogHandle.
  13.  
  14. AboutDialogToDialogHandle :: !(DialogDef s (IOState s)) -> DialogHandle s (IOState s);
  15.  
  16. //    OpenAboutDialog opens the About... dialog
  17.  
  18. OpenAboutDialog :: !*s !(IOState *s) -> (!*s, !IOState *s);
  19.  
  20. DeviceCloseDialog :: !(IOState s) -> IOState s;
  21.  
  22. //    Return the application name as defined in the AboutDialog.
  23.  
  24. IOStateGetApplicationName :: !(IOState s) -> (!String, !IOState s);
  25.