equal
deleted
inserted
replaced
3503 nameSpaceList do:[:aNamespace | |
3503 nameSpaceList do:[:aNamespace | |
3504 aNamespace allClassesDo:[:aClass | |
3504 aNamespace allClassesDo:[:aClass | |
3505 aClass isMeta ifFalse:[ |
3505 aClass isMeta ifFalse:[ |
3506 aClass isRealNameSpace ifFalse:[ |
3506 aClass isRealNameSpace ifFalse:[ |
3507 (allNameSpaces or:[aClass nameSpace == aNamespace]) ifTrue:[ |
3507 (allNameSpaces or:[aClass nameSpace == aNamespace]) ifTrue:[ |
3508 cat := aClass category. |
3508 cat := aClass category ? '* no category *'. |
3509 cat isNil ifTrue:[ |
|
3510 cat := '* no category *' |
|
3511 ]. |
|
3512 cat ~= 'obsolete' ifTrue:[ |
3509 cat ~= 'obsolete' ifTrue:[ |
3513 newList add:cat |
3510 newList add:cat |
3514 ] |
3511 ] |
3515 ] |
3512 ] |
3516 ] |
3513 ] |
3523 ]. |
3520 ]. |
3524 |
3521 |
3525 ^ newList asOrderedCollection sort. |
3522 ^ newList asOrderedCollection sort. |
3526 |
3523 |
3527 "Modified: / 10-11-2006 / 17:09:16 / cg" |
3524 "Modified: / 10-11-2006 / 17:09:16 / cg" |
|
3525 "Modified: / 03-03-2019 / 22:23:21 / Claus Gittinger" |
3528 ! |
3526 ! |
3529 |
3527 |
3530 renameCurrentClassCategoryTo:aString |
3528 renameCurrentClassCategoryTo:aString |
3531 "helper - do the rename" |
3529 "helper - do the rename" |
3532 |
3530 |
6785 theClass isBehavior ifTrue:[ |
6783 theClass isBehavior ifTrue:[ |
6786 classCategoryListView notNil ifTrue:[ |
6784 classCategoryListView notNil ifTrue:[ |
6787 currentClassHierarchy isNil ifTrue:[ |
6785 currentClassHierarchy isNil ifTrue:[ |
6788 ((newCat := theClass category) ~= currentClassCategory) ifTrue:[ |
6786 ((newCat := theClass category) ~= currentClassCategory) ifTrue:[ |
6789 currentClassCategory := newCat. |
6787 currentClassCategory := newCat. |
6790 newCat isNil ifTrue:[ |
6788 element := newCat ? '* no category *'. |
6791 element := '* no category *' |
|
6792 ] ifFalse:[ |
|
6793 element := newCat. |
|
6794 ]. |
|
6795 classCategoryListView setSelectElement:element. |
6789 classCategoryListView setSelectElement:element. |
6796 "/ classCategoryListView makeSelectionVisible. |
6790 "/ classCategoryListView makeSelectionVisible. |
6797 ] |
6791 ] |
6798 ] |
6792 ] |
6799 ]. |
6793 ]. |
6832 ] |
6826 ] |
6833 |
6827 |
6834 "Modified: / 01-09-1995 / 01:41:35 / claus" |
6828 "Modified: / 01-09-1995 / 01:41:35 / claus" |
6835 "Modified: / 17-06-1996 / 16:54:55 / stefan" |
6829 "Modified: / 17-06-1996 / 16:54:55 / stefan" |
6836 "Modified: / 10-11-2006 / 17:10:15 / cg" |
6830 "Modified: / 10-11-2006 / 17:10:15 / cg" |
|
6831 "Modified: / 03-03-2019 / 22:24:14 / Claus Gittinger" |
6837 ! |
6832 ! |
6838 |
6833 |
6839 updateClassList |
6834 updateClassList |
6840 self updateClassListWithScroll:true |
6835 self updateClassListWithScroll:true |
6841 ! |
6836 ! |
7380 s := cls name , ' ' , sel allBold. |
7375 s := cls name , ' ' , sel allBold. |
7381 mthd isNil ifTrue:[ |
7376 mthd isNil ifTrue:[ |
7382 s := s , ' ???' |
7377 s := s , ' ???' |
7383 ] ifFalse:[ |
7378 ] ifFalse:[ |
7384 ShowMethodCategoryInClassMethodList == true ifTrue:[ |
7379 ShowMethodCategoryInClassMethodList == true ifTrue:[ |
7385 s := s , ' {' , mthd category allItalic, '}' |
7380 s := s , ' {' , (mthd category ? '* no category *') allItalic, '}' |
7386 ]. |
7381 ]. |
7387 s := (self |
7382 s := (self |
7388 listEntryForMethod:mthd |
7383 listEntryForMethod:mthd |
7389 selector:s) |
7384 selector:s) |
7390 ] |
7385 ] |
7393 newList add:s. |
7388 newList add:s. |
7394 ]. |
7389 ]. |
7395 classMethodListView setList:newList. |
7390 classMethodListView setList:newList. |
7396 classMethodListView setSelection:selection. |
7391 classMethodListView setSelection:selection. |
7397 |
7392 |
7398 "Modified: / 18.12.1995 / 22:54:04 / stefan" |
7393 "Modified: / 18-12-1995 / 22:54:04 / stefan" |
7399 "Created: / 3.3.1997 / 15:10:15 / cg" |
7394 "Created: / 03-03-1997 / 15:10:15 / cg" |
7400 "Modified: / 17.10.1998 / 11:30:35 / cg" |
7395 "Modified: / 17-10-1998 / 11:30:35 / cg" |
|
7396 "Modified: / 03-03-2019 / 22:25:01 / Claus Gittinger" |
7401 ! ! |
7397 ! ! |
7402 |
7398 |
7403 !BrowserView methodsFor:'event handling'! |
7399 !BrowserView methodsFor:'event handling'! |
7404 |
7400 |
7405 handlesKeyPress:key inView:view |
7401 handlesKeyPress:key inView:view |
8887 currentClass notNil ifTrue:[ |
8883 currentClass notNil ifTrue:[ |
8888 AbortOperationRequest catch:[ |
8884 AbortOperationRequest catch:[ |
8889 class methodDictionary do:[:aMethod | |
8885 class methodDictionary do:[:aMethod | |
8890 |source| |
8886 |source| |
8891 |
8887 |
8892 (category match:aMethod category) ifTrue:[ |
8888 (category match:(aMethod category ? '')) ifTrue:[ |
8893 source := aMethod source. |
8889 source := aMethod source. |
8894 codeView contents:source; modified:false. |
8890 codeView contents:source; modified:false. |
8895 codeModified := false. |
8891 codeModified := false. |
8896 actualClass compilerClass |
8892 actualClass compilerClass |
8897 compile:source |
8893 compile:source |
8903 ] |
8899 ] |
8904 ] |
8900 ] |
8905 ] |
8901 ] |
8906 ] |
8902 ] |
8907 |
8903 |
8908 "Modified: / 7.6.1996 / 09:02:35 / stefan" |
8904 "Modified: / 07-06-1996 / 09:02:35 / stefan" |
8909 "Modified: / 16.11.2001 / 17:37:40 / cg" |
8905 "Modified: / 16-11-2001 / 17:37:40 / cg" |
|
8906 "Modified: / 03-03-2019 / 22:23:00 / Claus Gittinger" |
8910 ! |
8907 ! |
8911 |
8908 |
8912 listOfAllMethodCategoriesInClass:aClass |
8909 listOfAllMethodCategoriesInClass:aClass |
8913 "answer a list of all method categories of the argument, aClass" |
8910 "answer a list of all method categories of the argument, aClass" |
8914 |
8911 |
10942 method := dict at:aSelector ifAbsent:nil |
10939 method := dict at:aSelector ifAbsent:nil |
10943 ]. |
10940 ]. |
10944 ]. |
10941 ]. |
10945 |
10942 |
10946 method notNil ifTrue:[ |
10943 method notNil ifTrue:[ |
10947 cat := method category. |
10944 cat := method category ? '* all *'. |
10948 cat isNil ifTrue:[cat := '* all *']. |
|
10949 methodCategoryListView setSelectElement:cat. |
10945 methodCategoryListView setSelectElement:cat. |
10950 currentMethodCategory := cat. |
10946 currentMethodCategory := cat. |
10951 self updateMethodCategoryListWithScroll:false. |
10947 self updateMethodCategoryListWithScroll:false. |
10952 self methodCategorySelectionChanged. |
10948 self methodCategorySelectionChanged. |
10953 |
10949 |
10970 ^ self |
10966 ^ self |
10971 ] |
10967 ] |
10972 ]. |
10968 ]. |
10973 self beepInEditor. |
10969 self beepInEditor. |
10974 |
10970 |
10975 "Modified: / 28.6.1996 / 20:28:56 / stefan" |
10971 "Modified: / 28-06-1996 / 20:28:56 / stefan" |
10976 "Modified: / 27.7.1998 / 11:01:55 / cg" |
10972 "Modified: / 27-07-1998 / 11:01:55 / cg" |
|
10973 "Modified: / 03-03-2019 / 22:24:32 / Claus Gittinger" |
10977 ! |
10974 ! |
10978 |
10975 |
10979 updateMethodList |
10976 updateMethodList |
10980 self updateMethodListWithScroll:true keepSelection:false |
10977 self updateMethodListWithScroll:true keepSelection:false |
10981 ! |
10978 ! |