home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / self / contrib.lha / contrib / 491 / newerX / loadX.self < prev    next >
Encoding:
Text File  |  1993-06-06  |  419 b   |  21 lines
  1. _AddSlotsIfAbsent: (| oldDirPath. |)
  2. oldDirPath: _DirPath
  3. _DirPath: ((unix environmentVariable: 'AATREE'),'/newerX') canonicalize
  4. 'xlib' _RunScript
  5. 'xBitmapMaker' _RunScript
  6. 'eventWatcher' _RunScript
  7.  
  8. "a REAL quick hack"
  9. defaultBehavior  _AddSlotsIfAbsent: (|
  10.     testing* = (|
  11.         ^ isNil = ( == nil ). "should fix this"
  12.         ^ notNil = ( !== nil ). "should fix this"
  13.  
  14.     |)
  15. |)
  16.  
  17. _DirPath: oldDirPath
  18. _RemoveSlot: 'oldDirPath'
  19.  
  20.  
  21.