home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Environments / Clean 1.2.4 / IO Examples / Turing / tmdialog.dcl < prev    next >
Encoding:
Modula Definition  |  1997-04-25  |  997 b   |  45 lines  |  [TEXT/3PRM]
  1. definition module tmdialog
  2.  
  3. from    StdFile            import Files
  4. from    deltaEventIO    import IOState
  5. from    tmfile            import Disk
  6. import    tm
  7.  
  8. HelpFile        :== "TuringHelp"
  9. FileMenuId        :== 2
  10. NewItemId            :== 21
  11. OpenItemId            :== 22
  12. SaveItemId            :== 23
  13. SvAsItemId            :== 24
  14. HelpItemId            :== 25
  15. QuitItemId            :== 26
  16. MachineMenuId    :== 3
  17. StepItemId            :== 31
  18. RunItemId            :== 32
  19. HaltItemId            :== 34
  20. DelayItemId            :== 35
  21. VerSId                    :== 351
  22. SlowId                    :== 352
  23. NormId                    :== 353
  24. FastId                    :== 354
  25. VerFId                    :== 355
  26. WindowID        :== 1
  27. TapeWdID        :== 3
  28.  
  29. TimerID            :== 1
  30.  
  31. ::    *Tm
  32.     =    {    tmstate    :: !TmState
  33.         ,    name    :: !String
  34.         ,    delay    :: !Int
  35.         ,    disk    :: !Disk
  36.         ,    saved    :: !Bool
  37.         }
  38.  
  39. AlterCell        :: Int                Tm    (IOState Tm) -> (Tm,IOState Tm)
  40. AlterTransition    :: Int                Tm    (IOState Tm) -> (Tm,IOState Tm)
  41. AlterState        ::                    Tm    (IOState Tm) -> (Tm,IOState Tm)
  42. ReDraw            ::                    Tm    (IOState Tm) -> (Tm,IOState Tm)
  43. Alert            :: String String    Tm    (IOState Tm) -> (Tm,IOState Tm)
  44. SaveBeforeClose    :: String            Tm    (IOState Tm) -> (Bool,Tm,IOState Tm)
  45.