Class.st
changeset 7261 f35fc9cee675
parent 7258 9ccdbee7d1ad
child 7276 a7a29a4074e1
equal deleted inserted replaced
7260:edfa8d6a6046 7261:f35fc9cee675
   259 
   259 
   260     "Created: 15.4.1996 / 17:17:13 / cg"
   260     "Created: 15.4.1996 / 17:17:13 / cg"
   261     "Modified: 23.4.1996 / 15:56:58 / cg"
   261     "Modified: 23.4.1996 / 15:56:58 / cg"
   262 ! !
   262 ! !
   263 
   263 
   264 !Class methodsFor:'Compatibility - Dolphin'!
   264 !Class methodsFor:'Compatibility-Dolphin'!
   265 
   265 
   266 defaultCategoryForDolphinClasses
   266 defaultCategoryForDolphinClasses
   267     ^ DefaultCategoryForDolphin ? 'Dolphin classes'.
   267     ^ DefaultCategoryForDolphin ? 'Dolphin classes'.
   268 !
   268 !
   269 
   269 
   297 
   297 
   298     "Modified: / 15.6.1998 / 21:31:34 / cg"
   298     "Modified: / 15.6.1998 / 21:31:34 / cg"
   299     "Modified: / 18.3.1999 / 18:16:11 / stefan"
   299     "Modified: / 18.3.1999 / 18:16:11 / stefan"
   300 ! !
   300 ! !
   301 
   301 
   302 !Class methodsFor:'Compatibility - ST/V and V''Age'!
   302 !Class methodsFor:'Compatibility-ST/V and V''Age'!
   303 
   303 
   304 defaultCategoryForSTVorVAGEClasses
   304 defaultCategoryForSTVorVAGEClasses
   305     |cat app|
   305     |cat app|
   306 
   306 
   307     DefaultApplicationQuerySignal isHandled ifTrue:[
   307     DefaultApplicationQuerySignal isHandled ifTrue:[
   390            classVariableNames:d
   390            classVariableNames:d
   391            poolDictionaries:s
   391            poolDictionaries:s
   392            category:(self defaultCategoryForSTVorVAGEClasses)
   392            category:(self defaultCategoryForSTVorVAGEClasses)
   393 ! !
   393 ! !
   394 
   394 
   395 !Class methodsFor:'Compatibility - ST80'!
   395 !Class methodsFor:'Compatibility-ST80'!
   396 
   396 
   397 fileOutSourceOn:aStream
   397 fileOutSourceOn:aStream
   398     self fileOutOn:aStream withTimeStamp:false
   398     self fileOutOn:aStream withTimeStamp:false
   399 
   399 
   400     "Created: 20.6.1997 / 17:18:14 / cg"
   400     "Created: 20.6.1997 / 17:18:14 / cg"
   408 "/    ^ self renameTo:newName
   408 "/    ^ self renameTo:newName
   409 
   409 
   410     "Created: / 18.6.1998 / 22:08:45 / cg"
   410     "Created: / 18.6.1998 / 22:08:45 / cg"
   411 ! !
   411 ! !
   412 
   412 
   413 !Class methodsFor:'Compatibility - VW'!
   413 !Class methodsFor:'Compatibility-VW'!
   414 
   414 
   415 isVisualStartable
   415 isVisualStartable
   416     "return true, if this is an application class,
   416     "return true, if this is an application class,
   417      which can be started via #open"
   417      which can be started via #open"
   418 
   418 
  4813 ! !
  4813 ! !
  4814 
  4814 
  4815 !Class class methodsFor:'documentation'!
  4815 !Class class methodsFor:'documentation'!
  4816 
  4816 
  4817 version
  4817 version
  4818     ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.430 2003-05-07 14:10:50 cg Exp $'
  4818     ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.431 2003-05-07 14:31:13 cg Exp $'
  4819 ! !
  4819 ! !