Class.st
changeset 12415 4fc8895fb7aa
parent 12361 58f46d1d341b
child 12507 41ac4792b598
equal deleted inserted replaced
12414:993cce8ede77 12415:4fc8895fb7aa
   428     ^ self == Class class or:[self == Class]
   428     ^ self == Class class or:[self == Class]
   429 
   429 
   430     "Created: 15.4.1996 / 17:17:13 / cg"
   430     "Created: 15.4.1996 / 17:17:13 / cg"
   431     "Modified: 23.4.1996 / 15:56:58 / cg"
   431     "Modified: 23.4.1996 / 15:56:58 / cg"
   432 ! !
   432 ! !
   433 
       
   434 
   433 
   435 !Class methodsFor:'Compatibility-Dolphin'!
   434 !Class methodsFor:'Compatibility-Dolphin'!
   436 
   435 
   437 defaultCategoryForDolphinClasses
   436 defaultCategoryForDolphinClasses
   438     ^ DefaultCategoryForDolphin ? 'Dolphin classes'.
   437     ^ DefaultCategoryForDolphin ? 'Dolphin classes'.
  3537     "
  3536     "
  3538 
  3537 
  3539     "Modified: / 06-03-2007 / 11:55:39 / cg"
  3538     "Modified: / 06-03-2007 / 11:55:39 / cg"
  3540 !
  3539 !
  3541 
  3540 
       
  3541 hasUnsavedChanges
       
  3542     "return true, if there are changes for this class in the current changeSet"
       
  3543 
       
  3544     ^ ChangeSet current includesChangeForClassOrMetaclassOrPrivateClassOf:self
       
  3545 
       
  3546     "
       
  3547      Class hasUnsavedChanges
       
  3548      Array hasUnsavedChanges
       
  3549     "
       
  3550 !
       
  3551 
  3542 isBrowserStartable
  3552 isBrowserStartable
  3543     "return true, if this is an application class,
  3553     "return true, if this is an application class,
  3544      which can be started from the browser"
  3554      which can be started from the browser"
  3545 
  3555 
  3546     ^ self isVisualStartable or:[self isStartableWithStart or:[ self isStartableWithMain ]]
  3556     ^ self isVisualStartable or:[self isStartableWithStart or:[ self isStartableWithMain ]]
  4991 ! !
  5001 ! !
  4992 
  5002 
  4993 !Class class methodsFor:'documentation'!
  5003 !Class class methodsFor:'documentation'!
  4994 
  5004 
  4995 version
  5005 version
  4996     ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.558 2009-10-26 16:52:59 cg Exp $'
  5006     ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.559 2009-10-31 12:27:34 cg Exp $'
  4997 !
  5007 !
  4998 
  5008 
  4999 version_CVS
  5009 version_CVS
  5000     ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.558 2009-10-26 16:52:59 cg Exp $'
  5010     ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.559 2009-10-31 12:27:34 cg Exp $'
  5001 ! !
  5011 ! !