equal
deleted
inserted
replaced
2194 self busyLabel:'writing: %1' with:fileName. |
2194 self busyLabel:'writing: %1' with:fileName. |
2195 aClass isLoaded ifFalse:[ |
2195 aClass isLoaded ifFalse:[ |
2196 self warn:'cannot fileOut unloaded class: %1\\skipped.' with:aClass name allBold. |
2196 self warn:'cannot fileOut unloaded class: %1\\skipped.' with:aClass name allBold. |
2197 ] ifTrue:[ |
2197 ] ifTrue:[ |
2198 aClass fileOutOn:aStream withTimeStamp:true withInitialize:false. |
2198 aClass fileOutOn:aStream withTimeStamp:true withInitialize:false. |
2199 (aClass theMetaclass implements:#initialize) ifTrue:[ |
2199 (aClass theMetaclass includesSelector:#initialize) ifTrue:[ |
2200 classesToInitialize add:aClass |
2200 classesToInitialize add:aClass |
2201 ]. |
2201 ]. |
2202 aStream cr. |
2202 aStream cr. |
2203 ] |
2203 ] |
2204 ] |
2204 ] |
3804 ]. |
3804 ]. |
3805 |
3805 |
3806 (words size > 1 |
3806 (words size > 1 |
3807 and:[(words last) ~= 'class']) ifTrue:[ |
3807 and:[(words last) ~= 'class']) ifTrue:[ |
3808 selector := words last asSymbolIfInterned. |
3808 selector := words last asSymbolIfInterned. |
3809 (selector notNil and:[actualClass implements:selector]) |
3809 (selector notNil and:[actualClass includesSelector:selector]) |
3810 ifTrue:[ |
3810 ifTrue:[ |
3811 self switchToMethodNamed: selector. |
3811 self switchToMethodNamed: selector. |
3812 ] |
3812 ] |
3813 ]. |
3813 ]. |
3814 |
3814 |
8938 codeMenu := PopUpMenu itemList:items resources:resources. |
8938 codeMenu := PopUpMenu itemList:items resources:resources. |
8939 |
8939 |
8940 disableFlag ifTrue:[ |
8940 disableFlag ifTrue:[ |
8941 codeMenu disableAll:#(methodCategoryCreateAccessMethods methodCategoryCreateAccessMethodsWithChange). |
8941 codeMenu disableAll:#(methodCategoryCreateAccessMethods methodCategoryCreateAccessMethodsWithChange). |
8942 ]. |
8942 ]. |
8943 (actualClass implements:#'update:with:from:') ifTrue:[ |
8943 (actualClass includesSelector:#'update:with:from:') ifTrue:[ |
8944 codeMenu disable:#methodCategoryCreateUpdateMethod |
8944 codeMenu disable:#methodCategoryCreateUpdateMethod |
8945 ] |
8945 ] |
8946 ]. |
8946 ]. |
8947 |
8947 |
8948 currentMethodCategory notNil ifTrue:[ |
8948 currentMethodCategory notNil ifTrue:[ |
8998 |
8998 |
8999 codeMenu notNil ifTrue:[ |
8999 codeMenu notNil ifTrue:[ |
9000 m subMenuAt:#codeMenu put:codeMenu. |
9000 m subMenuAt:#codeMenu put:codeMenu. |
9001 ]. |
9001 ]. |
9002 |
9002 |
9003 self isSimulatedEnvironment ifTrue:[ |
9003 self isReadOnlyEnvironment ifTrue:[ |
9004 m disableAll:#(methodCategoryNewCategory methodCategoryCreateAccessMethods methodCategoryRemove |
9004 m disableAll:#(methodCategoryNewCategory methodCategoryCreateAccessMethods methodCategoryRemove |
9005 methodCategoryRename codeMenu methodCategoryCopyCategory |
9005 methodCategoryRename codeMenu methodCategoryCopyCategory |
9006 methodCategorySpawnCategory |
|
9007 ) |
9006 ) |
9008 ]. |
9007 ]. |
9009 |
9008 |
9010 ^ m |
9009 ^ m |
9011 |
9010 |
9784 newClass isMeta ifFalse:[ |
9783 newClass isMeta ifFalse:[ |
9785 newClass := newClass theMetaclass |
9784 newClass := newClass theMetaclass |
9786 ] |
9785 ] |
9787 ]. |
9786 ]. |
9788 |
9787 |
9789 (newClass implements:currentSelector) ifTrue:[ |
9788 (newClass includesSelector:currentSelector) ifTrue:[ |
9790 (self confirm:(newClass name allBold , ' already implements ' , currentSelector |
9789 (self confirm:(newClass name allBold , ' already implements ' , currentSelector |
9791 , '\\Redefine anyway ?' withCRs)) ifFalse:[ |
9790 , '\\Redefine anyway ?' withCRs)) ifFalse:[ |
9792 ^ self |
9791 ^ self |
9793 ] |
9792 ] |
9794 ]. |
9793 ]. |
10416 newClass isMeta ifFalse:[ |
10415 newClass isMeta ifFalse:[ |
10417 newClass := newClass theMetaclass |
10416 newClass := newClass theMetaclass |
10418 ] |
10417 ] |
10419 ]. |
10418 ]. |
10420 |
10419 |
10421 (newClass implements:currentSelector) ifTrue:[ |
10420 (newClass includesSelector:currentSelector) ifTrue:[ |
10422 (self confirm:(newClass name allBold , ' already implements ' , currentSelector |
10421 (self confirm:(newClass name allBold , ' already implements ' , currentSelector |
10423 , '\\Move anyway ?' withCRs)) ifFalse:[ |
10422 , '\\Move anyway ?' withCRs)) ifFalse:[ |
10424 ^ self |
10423 ^ self |
10425 ] |
10424 ] |
10426 ]. |
10425 ]. |
10452 ]. |
10451 ]. |
10453 currentMethodCategory isNil ifTrue:[ |
10452 currentMethodCategory isNil ifTrue:[ |
10454 ^ self warn:'select/create a method category first'. |
10453 ^ self warn:'select/create a method category first'. |
10455 ]. |
10454 ]. |
10456 |
10455 |
10457 (actualClass implements:#someImageSpec) ifFalse:[ |
10456 (actualClass includesSelector:#someImageSpec) ifFalse:[ |
10458 specSel := #someImageSpec |
10457 specSel := #someImageSpec |
10459 ]. |
10458 ]. |
10460 ImageEditor openOnClass:currentClass andSelector:specSel |
10459 ImageEditor openOnClass:currentClass andSelector:specSel |
10461 |
10460 |
10462 "Created: / 28.10.1997 / 12:42:00 / cg" |
10461 "Created: / 28.10.1997 / 12:42:00 / cg" |
10472 ]. |
10471 ]. |
10473 currentMethodCategory isNil ifTrue:[ |
10472 currentMethodCategory isNil ifTrue:[ |
10474 ^ self warn:'select/create a method category first'. |
10473 ^ self warn:'select/create a method category first'. |
10475 ]. |
10474 ]. |
10476 |
10475 |
10477 (actualClass implements:#menuSpec) ifFalse:[ |
10476 (actualClass includesSelector:#menuSpec) ifFalse:[ |
10478 specSel := #menuSpec |
10477 specSel := #menuSpec |
10479 ]. |
10478 ]. |
10480 MenuEditor openOnClass:currentClass andSelector:specSel |
10479 MenuEditor openOnClass:currentClass andSelector:specSel |
10481 |
10480 |
10482 "Created: / 28.10.1997 / 12:42:00 / cg" |
10481 "Created: / 28.10.1997 / 12:42:00 / cg" |
10509 "open GUI Painter" |
10508 "open GUI Painter" |
10510 |
10509 |
10511 |specSel| |
10510 |specSel| |
10512 |
10511 |
10513 currentClass isNil ifTrue:[ |
10512 currentClass isNil ifTrue:[ |
10514 ^ self warn:'select/create a class first'. |
10513 ^ self warn:'select/create a class first'. |
10515 ]. |
10514 ]. |
10516 currentMethodCategory isNil ifTrue:[ |
10515 currentMethodCategory isNil ifTrue:[ |
10517 ^ self warn:'select/create a method category first'. |
10516 ^ self warn:'select/create a method category first'. |
10518 ]. |
10517 ]. |
10519 |
10518 |
10520 (actualClass implements:#windowSpec) ifFalse:[ |
10519 (actualClass includesSelector:#windowSpec) ifFalse:[ |
10521 specSel := #windowSpec |
10520 specSel := #windowSpec |
10522 ]. |
10521 ]. |
10523 UIPainter openOnClass:currentClass andSelector:specSel |
10522 UIPainter openOnClass:currentClass andSelector:specSel |
10524 |
10523 |
10525 "Modified: / 28.10.1997 / 12:40:35 / cg" |
10524 "Modified: / 28.10.1997 / 12:40:35 / cg" |
10526 ! |
10525 ! |
14953 ! ! |
14952 ! ! |
14954 |
14953 |
14955 !BrowserView class methodsFor:'documentation'! |
14954 !BrowserView class methodsFor:'documentation'! |
14956 |
14955 |
14957 version |
14956 version |
14958 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.714 2002-02-22 10:18:49 cg Exp $' |
14957 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.715 2002-02-26 10:58:16 cg Exp $' |
14959 ! ! |
14958 ! ! |
14960 BrowserView initialize! |
14959 BrowserView initialize! |