equal
deleted
inserted
replaced
7299 mthdLabels mthdSelectors |
7299 mthdLabels mthdSelectors |
7300 brkLabels brkSelectors |
7300 brkLabels brkSelectors |
7301 fileLabels fileSelectors |
7301 fileLabels fileSelectors |
7302 searchLabels searchSelectors searchShorties |
7302 searchLabels searchSelectors searchShorties |
7303 sepLocalLabels sepLocalSelectors |
7303 sepLocalLabels sepLocalSelectors |
|
7304 sepMthdLabels sepMthdSelectors |
7304 localSearchLabels localSearchSelectors| |
7305 localSearchLabels localSearchSelectors| |
7305 |
7306 |
7306 currentMethod notNil ifTrue:[ |
7307 currentMethod notNil ifTrue:[ |
7307 currentMethod isWrapped ifTrue:[ |
7308 currentMethod isWrapped ifTrue:[ |
7308 (MessageTracer notNil |
7309 (MessageTracer notNil |
7466 ^ specialMenu |
7467 ^ specialMenu |
7467 ]. |
7468 ]. |
7468 |
7469 |
7469 |
7470 |
7470 sepLocalLabels := sepLocalSelectors := #(). |
7471 sepLocalLabels := sepLocalSelectors := #(). |
|
7472 sepMthdLabels := sepMthdSelectors := #(). |
7471 |
7473 |
7472 searchLabels := #( |
7474 searchLabels := #( |
7473 'senders ...' |
7475 'senders ...' |
7474 'implementors ...' |
7476 'implementors ...' |
7475 'globals ...' |
7477 'globals ...' |
7521 and:[currentClass isSubclassOf:ApplicationModel]]) ifTrue:[ |
7523 and:[currentClass isSubclassOf:ApplicationModel]]) ifTrue:[ |
7522 newLabels := #( |
7524 newLabels := #( |
7523 'new method' |
7525 'new method' |
7524 'new window spec' |
7526 'new window spec' |
7525 'new menu spec' |
7527 'new menu spec' |
7526 '-' |
|
7527 ). |
7528 ). |
7528 |
7529 |
7529 newSelectors := #( |
7530 newSelectors := #( |
7530 methodNewMethod |
7531 methodNewMethod |
7531 methodNewWindowSpec |
7532 methodNewWindowSpec |
7532 methodNewMenuSpec |
7533 methodNewMenuSpec |
7533 nil |
|
7534 ). |
7534 ). |
7535 ] ifFalse:[ |
7535 ] ifFalse:[ |
7536 newLabels := #( |
7536 newLabels := #( |
7537 'new method' |
7537 'new method' |
7538 '-' |
|
7539 ). |
7538 ). |
7540 |
7539 |
7541 newSelectors := #( |
7540 newSelectors := #( |
7542 methodNewMethod |
7541 methodNewMethod |
7543 nil |
|
7544 ). |
7542 ). |
7545 ] |
7543 ]. |
|
7544 sepMthdLabels := #('-'). sepMthdSelectors := #(nil). |
7546 ] ifFalse:[ |
7545 ] ifFalse:[ |
7547 newLabels := newSelectors := #() |
7546 newLabels := newSelectors := #() |
7548 ]. |
7547 ]. |
7549 |
7548 |
7550 currentMethod notNil ifTrue:[ |
7549 currentMethod notNil ifTrue:[ |
7585 ). |
7584 ). |
7586 |
7585 |
7587 ] ifFalse:[ |
7586 ] ifFalse:[ |
7588 fileLabels := fileSelectors := #(). |
7587 fileLabels := fileSelectors := #(). |
7589 mthdLabels := mthdSelectors := #(). |
7588 mthdLabels := mthdSelectors := #(). |
|
7589 sepMthdLabels := sepMthdSelectors := #(). |
7590 ]. |
7590 ]. |
7591 |
7591 |
7592 |
7592 |
7593 |
7593 |
7594 labels := |
7594 labels := |
7595 fileLabels , |
7595 fileLabels , |
7596 searchLabels , |
7596 searchLabels , |
7597 "/ localSearchLabels , |
7597 "/ localSearchLabels , |
7598 sepLocalLabels , |
7598 sepLocalLabels , |
7599 newLabels , |
7599 newLabels , |
|
7600 sepMthdLabels , |
7600 mthdLabels. |
7601 mthdLabels. |
7601 |
7602 |
7602 selectors := |
7603 selectors := |
7603 fileSelectors , |
7604 fileSelectors , |
7604 searchSelectors , |
7605 searchSelectors , |
7605 "/ localSearchSelectors , |
7606 "/ localSearchSelectors , |
7606 sepLocalSelectors , |
7607 sepLocalSelectors , |
7607 newSelectors , |
7608 newSelectors , |
|
7609 sepMthdSelectors , |
7608 mthdSelectors . |
7610 mthdSelectors . |
7609 |
7611 |
7610 shorties := (Array new:(fileSelectors size)) |
7612 shorties := (Array new:(fileSelectors size)) |
7611 , searchShorties |
7613 , searchShorties |
7612 , (Array new:(localSearchSelectors size |
7614 , (Array new:(localSearchSelectors size |
7613 + sepLocalSelectors size |
7615 + sepLocalSelectors size |
7614 + newSelectors size |
7616 + newSelectors size |
|
7617 + sepMthdSelectors size |
7615 + mthdSelectors size)). |
7618 + mthdSelectors size)). |
7616 |
7619 |
7617 |
7620 |
7618 specialMenu notNil ifTrue:[ |
7621 specialMenu notNil ifTrue:[ |
7619 labels := labels , #( |
7622 labels := labels , #( |
7666 ^ m |
7669 ^ m |
7667 |
7670 |
7668 "Created: / 23.11.1995 / 12:02:29 / cg" |
7671 "Created: / 23.11.1995 / 12:02:29 / cg" |
7669 "Modified: / 18.12.1995 / 16:20:07 / stefan" |
7672 "Modified: / 18.12.1995 / 16:20:07 / stefan" |
7670 "Modified: / 29.4.1997 / 11:20:59 / dq" |
7673 "Modified: / 29.4.1997 / 11:20:59 / dq" |
7671 "Modified: / 28.10.1997 / 12:35:15 / cg" |
7674 "Modified: / 29.10.1997 / 22:14:02 / cg" |
7672 ! |
7675 ! |
7673 |
7676 |
7674 methodMove |
7677 methodMove |
7675 "move the current method into another class; typically a superclass" |
7678 "move the current method into another class; typically a superclass" |
7676 |
7679 |
11136 ! ! |
11139 ! ! |
11137 |
11140 |
11138 !BrowserView class methodsFor:'documentation'! |
11141 !BrowserView class methodsFor:'documentation'! |
11139 |
11142 |
11140 version |
11143 version |
11141 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.346 1997-10-29 16:02:53 cg Exp $' |
11144 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.347 1997-10-29 21:44:12 cg Exp $' |
11142 ! ! |
11145 ! ! |
11143 BrowserView initialize! |
11146 BrowserView initialize! |