home *** CD-ROM | disk | FTP | other *** search
/ Windoware / WINDOWARE_1_6.iso / miscprog / actormdi / mdifilea.cls < prev    next >
Encoding:
Text File  |  1990-12-06  |  977 b   |  31 lines
  1. /* MDIFILEA.CLS  - This class contains all necessary
  2.   methods to initialize an MDI File Window application.
  3.   It can be used to seal off the MDI File Window
  4.   classes and create a stand alone application. */!!
  5.  
  6. inherit(Application, #MDIFileApp, nil, 2, nil)!!
  7.  
  8. now(class(MDIFileApp))!!
  9.  
  10. /* Remove unwanted Globals and Classes that are
  11.   part of the Actor development environment. */
  12. Def removeActor(self)
  13. { do(#(ClassList MethodList VarList ClVarDialog
  14.     ClassDialog DebugDialog DirtyCLD SealDialog
  15.     AboutWindow WorkWindow
  16.     ToolWindow Browser MethodBrowser DebugWindow
  17.     Inspector BrowEdit DBBrowEdit DebugEdit WorkSpace),
  18.   {using(g) removeGlobal(self, g);
  19.   });
  20. }!!
  21.  
  22. now(MDIFileApp)!!
  23.  
  24. /* Create and show the application mainWindow
  25.    Load a data file, if necessary. */
  26. Def init(self, cmdLine)
  27. { init(self:ancestor, cmdLine);
  28.   mainWindow := newMain(MDIFileFrame, "FileEditMenu", "File Editor", nil);
  29.   show(mainWindow, CmdShow);
  30. }!!
  31.