home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #1 / NN_1993_1.iso / spool / comp / sys / mac / programm / 21101 < prev    next >
Encoding:
Text File  |  1993-01-09  |  1.3 KB  |  49 lines
  1. Newsgroups: comp.sys.mac.programmer
  2. Path: sparky!uunet!zaphod.mps.ohio-state.edu!cs.utexas.edu!hellgate.utah.edu!fcom.cc.utah.edu!quadra.chem.utah.edu!dmitry
  3. From: Dmitry Boldyrev <dmitry@chemistry.chem.utah.edu>
  4. Subject: Dialog & Window
  5. Message-ID: <1993Jan10.021218.29536@fcom.cc.utah.edu>
  6. X-Xxmessage-Id: <A5924FA81801C4C9@quadra.chem.utah.edu>
  7. X-Xxdate: Thu, 9 Jan 92 16:14:48 GMT
  8. Sender: news@fcom.cc.utah.edu
  9. Organization: University of Utah
  10. X-Useragent: Nuntius v1.1.1d16
  11. Date: Sun, 10 Jan 93 02:12:18 GMT
  12. Lines: 35
  13.  
  14. Hi Folks,
  15. Does anyone know how to keep "Dialog" window and
  16. work window active ?
  17. For example:
  18. var
  19.     MyWindow: WindowPtr;
  20.     MyDialog: DialogPtr;
  21.     ItemHit: Integer;
  22. begin 
  23.     MyWindow := GetNewWindow(128, nil, Pointer(-1));
  24.     ShowWindow(MyWindow);
  25.     SetPort(MyWindow);
  26.     
  27.     MyDialog := GetNewDialog(129, nil, Pointer(-1));
  28.     While ItemHit<>ok do
  29.     begin                                    { MyDlgFilter is my Dialog Filter proc }
  30.         ModalDialog(MyDlgFilter, ItemHit);    { My Window became *INACTIVE* }
  31.         case ItemHit of
  32.         ......
  33.         end;
  34.     end;
  35.     
  36.     DisposeDialog(MyDialog);
  37.     DisposeWindow(MyWindow);
  38. end.
  39.  
  40.  
  41. I would like to keep two windows "active" .. 
  42. So that I'll be able to move them ... MyWindow and MyDialog's window..
  43.  
  44. Any information will be very appreciated!
  45. My E-Mail: dmitry@chemistry.chem.utah.edu
  46.  
  47. --- Thank you ---
  48. Dmitry.
  49.