home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / vismalta.zip / FIXES / FIXP3053.ST
Text File  |  1994-02-28  |  2KB  |  55 lines
  1.  
  2.     "fixp3053.st  2.28.94"
  3.     | app saveUser oldDefault emUser appMgr cls clsVer appVer |
  4.     clsVer := 'V1.0.0-P3053'.
  5.     appVer := 'V1.0.0-P3053'.
  6.     cls := Application.
  7.     app := AbtEditPackagesApp.
  8.     emUser := Smalltalk classAt: #EmUser.
  9.     emUser notNil ifTrue:[
  10.         appMgr := app manager.
  11.         emUser current uniqueName = appMgr uniqueName ifFalse:[
  12.             saveUser := emUser current.
  13.             (emUser classPool declareVariable: 'CurrentUser') value: appMgr.]. 
  14.  
  15.     app newEdition.
  16.     ].
  17.     
  18.     oldDefault := Application default.
  19.     app becomeDefault.
  20.     EmFileOutInterface fileInSourceFrom: (ReadStream on: 
  21. '!!Application class privateMethods !!
  22.  
  23. abePackageFileName
  24.     "Public - Answer our package filename"
  25.     
  26.     "The default implementation tries to use the application name
  27.         if the file system will accept it.  Otherwise it will use a timestamp.
  28.         By convention the file extension is always ''.cch'', which is an
  29.         abbreviation for ''cache''.  "
  30.  
  31.     | fname seconds |
  32.     (AbtFileSpec deviceRequiresDOSFATNames: '''')
  33.         ifFalse:[ ^self name, ''.cch'' ].
  34.  
  35.     seconds := Time now asSeconds. 
  36.     fname := ''pk'', seconds printString, ''.cch''.
  37.     [fname asFileSpec exists] whileTrue:[
  38.         seconds := seconds + 1.
  39.         fname := ''pk'', seconds printString, ''.cch''.             
  40.         ].
  41.     ^fname
  42. !! !!').
  43.     oldDefault becomeDefault.
  44.  
  45.     emUser notNil ifTrue:[
  46.         EtTools managerInterface versionClass: cls
  47.             in: app withName: clsVer.
  48.         app releaseEachClassIn: (Array with: cls).
  49.         EtTools managerInterface versionApplication: app
  50.             withName: appVer.
  51.         saveUser notNil ifTrue:[
  52.             (emUser classPool declareVariable: 'CurrentUser') value: saveUser.].
  53.  
  54.     ].
  55. !