home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / Mops 2.7 / Mops source / Toolbox classes / Dialog < prev    next >
Encoding:
Text File  |  1995-04-14  |  811 b   |  44 lines  |  [TEXT/MSET]
  1. \ Modal dialog support.
  2.  
  3. \ July 91  mrh    Dialog class moved to module DialogMod.
  4. \ Jan  95  mrh  Removed CALLER - can't bind to a word name any more
  5.  
  6. \ : X    ^base  ;        \ A non-inline version we can use in a vect
  7.  
  8. \ ' x    vect    CALLER
  9.  
  10. : CLOSER    ^base  close: []  ;
  11.  
  12.     int    THEITEM
  13.     var    ITEMHANDLE
  14.     int    ITEMTYPE
  15.  
  16. false    value    RTM
  17.  
  18. : RETURNTOMODAL        \ Signals modal: method to re-enter ModalDialog.
  19.     true -> rtm  ;
  20.  
  21. from DialogMod  import{  DIALOG  TOGITEM  PARAMTEXT  }
  22.  
  23. compile: dialogMod
  24.  
  25. endload
  26.  
  27. \ testing:
  28.  
  29.     6    dialog    D1    2 setbold: d1
  30.  
  31. : QQQ        20 beep  returnToModal  ;
  32. : WWW         1 beep  returnToModal  ;
  33. : ZZZ        ." useritem hit" cr  returnToModal  ;
  34.  
  35. : CLOSE1    close: d1  ;
  36.  
  37. XTS{ qqq www close1 togitem  zzz  zzz }    300  init: d1
  38.  
  39. : GO
  40.     " MLDtest.rsrc" openresfile        \ ***
  41.     getnew: d1  modal: d1  ;
  42.  
  43. : zz  close: d1  ;
  44.