equal
deleted
inserted
replaced
123 |
123 |
124 delayedUpdate:something with:someArgument from:changedObject |
124 delayedUpdate:something with:someArgument from:changedObject |
125 |list selector oldMethod| |
125 |list selector oldMethod| |
126 |
126 |
127 (changedObject == Smalltalk) ifTrue:[ |
127 (changedObject == Smalltalk) ifTrue:[ |
128 allNamespaces := nil. |
128 self updateNamespaceList. |
129 namespaceList notNil ifTrue:[ |
|
130 self setListOfNamespaces |
|
131 ]. |
|
132 |
129 |
133 something == #newClass ifTrue:[ |
130 something == #newClass ifTrue:[ |
134 (currentClass notNil |
131 (currentClass notNil |
135 and:[someArgument name = currentClass name]) ifTrue:[ |
132 and:[someArgument name = currentClass name]) ifTrue:[ |
136 " |
133 " |
336 |
333 |
337 (changedObject isMethod) ifTrue:[ |
334 (changedObject isMethod) ifTrue:[ |
338 ] |
335 ] |
339 |
336 |
340 "Created: 4.1.1997 / 13:54:00 / cg" |
337 "Created: 4.1.1997 / 13:54:00 / cg" |
341 "Modified: 4.1.1997 / 14:33:34 / cg" |
338 "Modified: 8.1.1997 / 10:54:16 / cg" |
342 ! |
339 ! |
343 |
340 |
344 refetchClass |
341 refetchClass |
345 "after a class definition change in another browser, |
342 "after a class definition change in another browser, |
346 this is sent to update (otherwise, we'd still refer to the obsolete class)" |
343 this is sent to update (otherwise, we'd still refer to the obsolete class)" |
996 methodCategoryListView setSelectElement:oldMethodCategory. |
993 methodCategoryListView setSelectElement:oldMethodCategory. |
997 currentMethodCategory := oldMethodCategory. |
994 currentMethodCategory := oldMethodCategory. |
998 self methodCategorySelectionChanged |
995 self methodCategorySelectionChanged |
999 ] |
996 ] |
1000 ] |
997 ] |
1001 ] |
998 ]. |
|
999 |
|
1000 self updateNamespaceList |
1002 ] |
1001 ] |
1003 |
1002 |
1004 "Modified: 20.12.1996 / 18:58:27 / cg" |
1003 "Modified: 8.1.1997 / 10:57:57 / cg" |
1005 ! ! |
1004 ! ! |
1006 |
1005 |
1007 !BrowserView methodsFor:'class category source administration'! |
1006 !BrowserView methodsFor:'class category source administration'! |
1008 |
1007 |
1009 classCategoryCheckinEach |
1008 classCategoryCheckinEach |
1361 "Modified: 1.9.1995 / 01:39:58 / claus" |
1360 "Modified: 1.9.1995 / 01:39:58 / claus" |
1362 "Modified: 28.5.1996 / 16:54:42 / cg" |
1361 "Modified: 28.5.1996 / 16:54:42 / cg" |
1363 ! |
1362 ! |
1364 |
1363 |
1365 updateClassCategoryList |
1364 updateClassCategoryList |
1366 self updateClassCategoryListWithScroll:true |
1365 self updateClassCategoryListWithScroll:true. |
|
1366 |
|
1367 "Modified: 8.1.1997 / 10:58:06 / cg" |
1367 ! |
1368 ! |
1368 |
1369 |
1369 updateClassCategoryListWithScroll:scroll |
1370 updateClassCategoryListWithScroll:scroll |
1370 |oldClassCategory oldClass oldMethodCategory oldMethod |
1371 |oldClassCategory oldClass oldMethodCategory oldMethod |
1371 oldSelector newCategoryList| |
1372 oldSelector newCategoryList| |
7487 |
7488 |
7488 ^ Array with:currentNamespace |
7489 ^ Array with:currentNamespace |
7489 |
7490 |
7490 "Created: 26.10.1996 / 11:25:39 / cg" |
7491 "Created: 26.10.1996 / 11:25:39 / cg" |
7491 "Modified: 20.12.1996 / 19:18:18 / cg" |
7492 "Modified: 20.12.1996 / 19:18:18 / cg" |
|
7493 ! |
|
7494 |
|
7495 setListOfNamespaces |
|
7496 |l hasSmalltalk| |
|
7497 |
|
7498 namespaceList isNil ifTrue:[ ^ self ]. |
|
7499 |
|
7500 l := self listOfAllNamespaces collect:[:ns | ns name]. |
|
7501 l := l asOrderedCollection. |
|
7502 hasSmalltalk := true. |
|
7503 l remove:'Smalltalk' ifAbsent:[hasSmalltalk := false]. |
|
7504 l sort. |
|
7505 l addFirst:'-'. |
|
7506 hasSmalltalk ifTrue:[ |
|
7507 l addFirst:'Smalltalk' |
|
7508 ]. |
|
7509 l addFirst:'* all *'. |
|
7510 namespaceList list:l |
|
7511 |
|
7512 "Modified: 20.12.1996 / 19:18:29 / cg" |
|
7513 ! |
|
7514 |
|
7515 updateNamespaceList |
|
7516 allNamespaces := nil. |
|
7517 namespaceList notNil ifTrue:[ |
|
7518 self setListOfNamespaces |
|
7519 ]. |
|
7520 |
|
7521 "Created: 8.1.1997 / 10:54:03 / cg" |
7492 ! ! |
7522 ! ! |
7493 |
7523 |
7494 !BrowserView methodsFor:'private'! |
7524 !BrowserView methodsFor:'private'! |
7495 |
7525 |
7496 askAndBrowseMethodCategory:title action:aBlock |
7526 askAndBrowseMethodCategory:title action:aBlock |
8253 logged:false |
8283 logged:false |
8254 ifFail:nil |
8284 ifFail:nil |
8255 ]. |
8285 ]. |
8256 |
8286 |
8257 "Modified: 3.1.1997 / 15:46:44 / cg" |
8287 "Modified: 3.1.1997 / 15:46:44 / cg" |
8258 ! |
|
8259 |
|
8260 setListOfNamespaces |
|
8261 |l hasSmalltalk| |
|
8262 |
|
8263 namespaceList isNil ifTrue:[ ^ self ]. |
|
8264 |
|
8265 l := self listOfAllNamespaces collect:[:ns | ns name]. |
|
8266 l := l asOrderedCollection. |
|
8267 hasSmalltalk := true. |
|
8268 l remove:'Smalltalk' ifAbsent:[hasSmalltalk := false]. |
|
8269 l sort. |
|
8270 l addFirst:'-'. |
|
8271 hasSmalltalk ifTrue:[ |
|
8272 l addFirst:'Smalltalk' |
|
8273 ]. |
|
8274 l addFirst:'* all *'. |
|
8275 namespaceList list:l |
|
8276 |
|
8277 "Modified: 20.12.1996 / 19:18:29 / cg" |
|
8278 ! |
8288 ! |
8279 |
8289 |
8280 setSearchPattern:aString |
8290 setSearchPattern:aString |
8281 codeView setSearchPattern:aString |
8291 codeView setSearchPattern:aString |
8282 ! |
8292 ! |
9146 ! ! |
9156 ! ! |
9147 |
9157 |
9148 !BrowserView class methodsFor:'documentation'! |
9158 !BrowserView class methodsFor:'documentation'! |
9149 |
9159 |
9150 version |
9160 version |
9151 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.247 1997-01-07 22:05:04 cg Exp $' |
9161 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.248 1997-01-08 09:59:45 cg Exp $' |
9152 ! ! |
9162 ! ! |
9153 BrowserView initialize! |
9163 BrowserView initialize! |