equal
deleted
inserted
replaced
9593 |someCategories| |
9593 |someCategories| |
9594 |
9594 |
9595 someCategories := actualClass categories asOrderedCollection sort. |
9595 someCategories := actualClass categories asOrderedCollection sort. |
9596 box := self |
9596 box := self |
9597 listBoxTitle:'' |
9597 listBoxTitle:'' |
9598 okText:'change' |
9598 okText:'Change' |
9599 list:someCategories. |
9599 list:someCategories. |
9600 ]. |
9600 ]. |
9601 |
9601 |
9602 box title:(resources string:'Change category from ''%1'' to:' with:currentMethod category). |
9602 box title:(resources string:'Change category from ''%1'' to:' with:currentMethod category). |
9603 lastMethodCategory isNil ifTrue:[ |
9603 lastMethodCategory isNil ifTrue:[ |
9620 ]. |
9620 ]. |
9621 box label:(resources string:'Change category'). |
9621 box label:(resources string:'Change category'). |
9622 box open |
9622 box open |
9623 |
9623 |
9624 "Created: / 29.10.1995 / 19:59:22 / cg" |
9624 "Created: / 29.10.1995 / 19:59:22 / cg" |
9625 "Modified: / 16.11.2001 / 11:49:38 / cg" |
9625 "Modified: / 16.11.2001 / 12:07:47 / cg" |
9626 ! |
9626 ! |
9627 |
9627 |
9628 methodCompareSource |
9628 methodCompareSource |
9629 "compare with some other methods source" |
9629 "compare with some other methods source" |
9630 |
9630 |
10369 "/ ^ self |
10369 "/ ^ self |
10370 "/ ]. |
10370 "/ ]. |
10371 "/ newClassName := (holders at:#className) value. |
10371 "/ newClassName := (holders at:#className) value. |
10372 |
10372 |
10373 newClassName := Dialog |
10373 newClassName := Dialog |
10374 request:(resources string:'move this method to which class:') |
10374 request:(resources string:'Move this method to which class:') |
10375 initialAnswer:initial |
10375 initialAnswer:initial |
10376 okLabel:(resources string:'move') |
10376 okLabel:(resources string:'Move') |
10377 title:(resources string:'move method') |
10377 title:(resources string:'Move method') |
10378 onCancel:nil |
10378 onCancel:nil |
10379 list:list. |
10379 list:list. |
10380 newClassName isNil ifTrue:[^ self]. |
10380 newClassName isNil ifTrue:[^ self]. |
10381 (newClassName startsWith:'---- ') ifTrue:[^ self]. |
10381 (newClassName startsWith:'---- ') ifTrue:[^ self]. |
10382 |
10382 |
10410 ^ self |
10410 ^ self |
10411 ]. |
10411 ]. |
10412 |
10412 |
10413 self methodRemove |
10413 self methodRemove |
10414 |
10414 |
10415 "Created: 13.12.1995 / 10:56:42 / cg" |
10415 "Created: / 13.12.1995 / 10:56:42 / cg" |
10416 "Modified: 25.6.1997 / 13:58:56 / cg" |
10416 "Modified: / 16.11.2001 / 12:10:00 / cg" |
10417 ! |
10417 ! |
10418 |
10418 |
10419 methodNewImageSpec |
10419 methodNewImageSpec |
10420 "open a BitmapEditor" |
10420 "open a BitmapEditor" |
10421 |
10421 |
14948 ! ! |
14948 ! ! |
14949 |
14949 |
14950 !BrowserView class methodsFor:'documentation'! |
14950 !BrowserView class methodsFor:'documentation'! |
14951 |
14951 |
14952 version |
14952 version |
14953 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.693 2001-11-16 10:53:24 cg Exp $' |
14953 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.694 2001-11-16 11:35:31 cg Exp $' |
14954 ! ! |
14954 ! ! |
14955 BrowserView initialize! |
14955 BrowserView initialize! |