equal
deleted
inserted
replaced
1400 "/ should we disable the returnDefault here ? |
1400 "/ should we disable the returnDefault here ? |
1401 ]. |
1401 ]. |
1402 |
1402 |
1403 box confirm ifTrue:[ |
1403 box confirm ifTrue:[ |
1404 "after querying user - do really remove classes in list1 and list2" |
1404 "after querying user - do really remove classes in list1 and list2" |
1405 |keep idx| |
1405 |keep idx oldPosition| |
1406 |
1406 |
1407 keep := false. |
1407 keep := false. |
1408 (subclassesRemoved asOrderedCollection |
1408 (subclassesRemoved asOrderedCollection |
1409 , classesToRemove asOrderedCollection) do:[:aClassToRemove | |
1409 , classesToRemove asOrderedCollection) do:[:aClassToRemove | |
1410 |
1410 |
1416 ] ifFalse:[ |
1416 ] ifFalse:[ |
1417 keep := true. |
1417 keep := true. |
1418 ] |
1418 ] |
1419 ]. |
1419 ]. |
1420 |
1420 |
1421 self updateClassCategoryList. |
1421 "/ self updateClassCategoryList. |
|
1422 self updateClassCategoryListWithScroll:false. |
|
1423 |
1422 (classCategoryListView list includes:currentClassCategory) ifFalse:[ |
1424 (classCategoryListView list includes:currentClassCategory) ifFalse:[ |
1423 currentClassCategory := nil. |
1425 currentClassCategory := nil. |
1424 ]. |
1426 ]. |
1425 self classCategorySelectionChanged. |
1427 self classCategorySelectionChanged. |
1426 |
1428 |
1435 "/ ]. |
1437 "/ ]. |
1436 ]. |
1438 ]. |
1437 box destroy |
1439 box destroy |
1438 |
1440 |
1439 "Modified: / 19.8.1996 / 23:22:35 / stefan" |
1441 "Modified: / 19.8.1996 / 23:22:35 / stefan" |
1440 "Modified: / 10.4.1998 / 12:25:32 / cg" |
1442 "Modified: / 18.6.1998 / 15:08:42 / cg" |
1441 ! |
1443 ! |
1442 |
1444 |
1443 classCategoryRename |
1445 classCategoryRename |
1444 "launch an enterBox to rename current class category" |
1446 "launch an enterBox to rename current class category" |
1445 |
1447 |
4436 ! |
4438 ! |
4437 |
4439 |
4438 allClassesInSelectedNamespacesDo:aBlock |
4440 allClassesInSelectedNamespacesDo:aBlock |
4439 |nameSpacesConsidered| |
4441 |nameSpacesConsidered| |
4440 |
4442 |
|
4443 currentNamespace = '* all *' ifTrue:[ |
|
4444 Smalltalk allBehaviorsDo:aBlock. |
|
4445 ^ self |
|
4446 ]. |
|
4447 |
4441 nameSpacesConsidered := self listOfNamespaces asIdentitySet. |
4448 nameSpacesConsidered := self listOfNamespaces asIdentitySet. |
4442 |
4449 |
4443 Smalltalk allBehaviorsDo:[:aClass | |
4450 Smalltalk allBehaviorsDo:[:aClass | |
4444 (nameSpacesConsidered includes:aClass nameSpace) |
4451 (nameSpacesConsidered includes:aClass nameSpace) |
4445 ifTrue:[ |
4452 ifTrue:[ |
4446 aBlock value:aClass |
4453 aBlock value:aClass |
4447 ] |
4454 ] |
4448 ] |
4455 ] |
4449 |
4456 |
4450 "Created: 16.1.1997 / 20:18:47 / cg" |
4457 "Created: / 16.1.1997 / 20:18:47 / cg" |
4451 "Modified: 16.1.1997 / 20:20:24 / cg" |
4458 "Modified: / 18.6.1998 / 15:06:23 / cg" |
4452 ! |
4459 ! |
4453 |
4460 |
4454 changeCurrentClass:newClass |
4461 changeCurrentClass:newClass |
4455 "change the current class to some other class; |
4462 "change the current class to some other class; |
4456 keep instance protocol as it was. |
4463 keep instance protocol as it was. |
11716 ! ! |
11723 ! ! |
11717 |
11724 |
11718 !BrowserView class methodsFor:'documentation'! |
11725 !BrowserView class methodsFor:'documentation'! |
11719 |
11726 |
11720 version |
11727 version |
11721 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.419 1998-06-18 12:32:50 cg Exp $' |
11728 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.420 1998-06-18 13:11:17 cg Exp $' |
11722 ! ! |
11729 ! ! |
11723 BrowserView initialize! |
11730 BrowserView initialize! |