home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Environments / Clean 1.2.4 / IOInterface / Window2.dcl < prev    next >
Encoding:
Modula Definition  |  1995-03-07  |  1.2 KB  |  26 lines  |  [TEXT/3PRM]
  1. definition module Window2;
  2.  
  3. //    Version 0.8 to 1.0
  4.  
  5. import    deltaIOSystem, deltaEventIO;
  6.  
  7.  
  8. ::    ScrollBarChange
  9.     =    ChangeThumbs    Int Int | ChangeHThumb    Int | ChangeVThumb  Int
  10.     |    ChangeScrolls    Int Int | ChangeHScroll    Int | ChangeVScroll Int
  11.     |    ChangeHBar        Int Int | ChangeVBar    Int Int;
  12.  
  13.  
  14. ChangeScrollBar                :: !WindowId !ScrollBarChange        !*s !(IOState *s) -> (!*s,     !IOState *s);
  15. ChangePictureDomain            :: !WindowId !PictureDomain            !*s !(IOState *s) -> (!*s,    !IOState *s);
  16. DrawInWindowFrame            :: !WindowId !(UpdateFunction *s)    !*s !(IOState *s) -> (!*s,    !IOState *s);
  17. WindowGetFrame                :: !WindowId                !(IOState *s) -> (!PictureDomain,    !IOState *s);
  18. WindowGetPos                :: !WindowId                !(IOState *s) -> (!WindowPos,        !IOState *s);
  19. GetActiveWindow                ::                            !(IOState *s) -> (!Bool, !WindowId,    !IOState *s);
  20.  
  21. ChangeActiveScrollBar        :: !ScrollBarChange        !*s    !(IOState *s) -> (!*s,                !IOState *s);
  22. ChangeActivePictureDomain    :: !PictureDomain        !*s    !(IOState *s) -> (!*s,                !IOState *s);
  23. DrawInActiveWindowFrame        :: !(UpdateFunction *s)    !*s    !(IOState *s) -> (!*s,                !IOState *s);
  24. ActiveWindowGetFrame        ::                            !(IOState *s) -> (!PictureDomain,    !IOState *s);
  25. ActiveWindowGetPos            ::                            !(IOState *s) -> (!WindowPos,        !IOState *s);
  26.