home *** CD-ROM | disk | FTP | other *** search
/ Dream 41 / Amiga_Dream_41.iso / Amiga / Programmation / c / gcc / objam02.lha / objam / objtriton / TRWindow.m < prev   
Encoding:
Text File  |  1995-04-16  |  1.5 KB  |  102 lines
  1. /*
  2. ** ObjectiveAmiga: Implementation of class TRWindow
  3. ** See GNU:lib/libobjam/ReadMe for details
  4. */
  5.  
  6.  
  7. #import <objtriton/TRWindow.h>
  8. #import <objam/Application.h>
  9.  
  10.  
  11. @implementation TRWindow
  12.  
  13. // Create and delete instances
  14.  
  15. - open:(ULONG)tags,...
  16. {
  17.   if(!(project=TR_OpenProject(__Triton_Support_App,(struct TagItem *)&tags))) return [self free];
  18.   modalLevel=[TRApp modalLevel];
  19.   if(![TRApp add:self]) return [self free];
  20.   return self;
  21. }
  22.  
  23. - openModal:(ULONG)tags,...
  24. {
  25.   if(!(project=TR_OpenProject(__Triton_Support_App,(struct TagItem *)&tags))) return [self free];
  26.   modalLevel=[TRApp modalLevel]+1;
  27.   if(![TRApp addModal:self]) return [self free];
  28.   return self;
  29. }
  30.  
  31. - close
  32. {
  33.   [TRApp remove:self];
  34.   TR_CloseProject(project);
  35.   project=NULL;
  36.   return self;
  37. }
  38.  
  39. - free
  40. {
  41.   if(project) [self close];
  42.   return [super free];
  43. }
  44.  
  45. // Provide information to TRApp
  46.  
  47. - (struct TR_Project *)project
  48. {
  49.   return project;
  50. }
  51.  
  52. - (unsigned int)modalLevel
  53. {
  54.   return modalLevel;
  55. }
  56.  
  57. // Process Triton messages
  58.  
  59. - tritonMessage:(struct TR_Message *)trMsg
  60. {
  61.   if(trMsg->trm_Class==TRMS_CLOSEWINDOW) [self free];
  62.   return self;
  63. }
  64.  
  65. // Lock and unlock window
  66.  
  67. - lock
  68. {
  69.   TR_LockProject(project);
  70.   return self;
  71. }
  72.  
  73. - unlock
  74. {
  75.   TR_UnlockProject(project);
  76.   return self;
  77. }
  78.  
  79. // Reactivate window
  80.  
  81. - activate
  82. {
  83.   struct Window *win;
  84.  
  85.   if(!(win=TR_ObtainWindow(project))) return nil;
  86.   ActivateWindow(win);
  87.   TR_ReleaseWindow(win);
  88.   return self;
  89. }
  90.  
  91. - toFront
  92. {
  93.   struct Window *win;
  94.  
  95.   if(!(win=TR_ObtainWindow(project))) return nil;
  96.   WindowToFront(win);
  97.   TR_ReleaseWindow(win);
  98.   return self;
  99. }
  100.  
  101. @end
  102.