equal
deleted
inserted
replaced
471 |
471 |
472 "Modified: 30.8.1995 / 22:49:49 / claus" |
472 "Modified: 30.8.1995 / 22:49:49 / claus" |
473 ! |
473 ! |
474 |
474 |
475 classCategoryMenu |
475 classCategoryMenu |
|
476 |
|
477 <resource: #keyboard ( #Find ) > |
|
478 |
476 |specialMenu m labels selectors shorties| |
479 |specialMenu m labels selectors shorties| |
477 |
480 |
478 currentClassCategory notNil ifTrue:[ |
481 currentClassCategory notNil ifTrue:[ |
479 labels := #( |
482 labels := #( |
480 'fileOut each binary ...' |
483 'fileOut each binary ...' |
615 |
618 |
616 m subMenuAt:#otherMenu put:specialMenu. |
619 m subMenuAt:#otherMenu put:specialMenu. |
617 ^ m |
620 ^ m |
618 |
621 |
619 "Created: 14.9.1995 / 10:50:17 / claus" |
622 "Created: 14.9.1995 / 10:50:17 / claus" |
620 "Modified: 2.3.1996 / 16:20:33 / cg" |
623 "Modified: 7.3.1996 / 13:43:55 / cg" |
621 ! |
624 ! |
622 |
625 |
623 classCategoryNewCategory |
626 classCategoryNewCategory |
624 |box| |
627 |box| |
625 |
628 |
3890 "/ but only if not already present. |
3893 "/ but only if not already present. |
3891 |
3894 |
3892 (cls includesSelector:#version) ifFalse:[ |
3895 (cls includesSelector:#version) ifFalse:[ |
3893 Compiler compile: |
3896 Compiler compile: |
3894 'version |
3897 'version |
3895 ^ ''$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.110 1996-03-07 10:06:56 cg Exp $'' |
3898 ^ ''$' , 'Header$'' |
3896 ' forClass:cls |
3899 ' forClass:cls |
3897 inCategory:'documentation'. |
3900 inCategory:'documentation'. |
3898 ]. |
3901 ]. |
3899 |
3902 |
3900 "/ add documentation method containing doc template |
3903 "/ add documentation method containing doc template |
3943 self switchToMethodNamed:#documentation |
3946 self switchToMethodNamed:#documentation |
3944 "/ self updateMethodCategoryListWithScroll:false. |
3947 "/ self updateMethodCategoryListWithScroll:false. |
3945 "/ self updateMethodListWithScroll:false |
3948 "/ self updateMethodListWithScroll:false |
3946 ] |
3949 ] |
3947 |
3950 |
3948 "Modified: 7.3.1996 / 10:13:15 / cg" |
3951 "Modified: 7.3.1996 / 13:41:18 / cg" |
3949 ! |
3952 ! |
3950 |
3953 |
3951 methodCategoryFileOut |
3954 methodCategoryFileOut |
3952 "fileOut all methods in the selected methodcategory of |
3955 "fileOut all methods in the selected methodcategory of |
3953 the current class" |
3956 the current class" |
4685 ! |
4688 ! |
4686 |
4689 |
4687 methodMenu |
4690 methodMenu |
4688 "return a popupmenu as appropriate for the methodList" |
4691 "return a popupmenu as appropriate for the methodList" |
4689 |
4692 |
|
4693 <resource: #keyboard ( #Cmds #Cmdi ) > |
|
4694 |
4690 |specialMenu m labels selectors shorties |
4695 |specialMenu m labels selectors shorties |
4691 newLabels newSelectors |
4696 newLabels newSelectors |
4692 mthdLabels mthdSelectors |
4697 mthdLabels mthdSelectors |
4693 brkLabels brkSelectors |
4698 brkLabels brkSelectors |
4694 fileLabels fileSelectors |
4699 fileLabels fileSelectors |
4977 ]. |
4982 ]. |
4978 ^ m |
4983 ^ m |
4979 |
4984 |
4980 "Created: 23.11.1995 / 12:02:29 / cg" |
4985 "Created: 23.11.1995 / 12:02:29 / cg" |
4981 "Modified: 18.12.1995 / 16:20:07 / stefan" |
4986 "Modified: 18.12.1995 / 16:20:07 / stefan" |
4982 "Modified: 2.3.1996 / 16:20:12 / cg" |
4987 "Modified: 7.3.1996 / 13:42:44 / cg" |
4983 ! |
4988 ! |
4984 |
4989 |
4985 methodMove |
4990 methodMove |
4986 "move the current method into another class; typically a superclass" |
4991 "move the current method into another class; typically a superclass" |
4987 |
4992 |
6934 ! ! |
6939 ! ! |
6935 |
6940 |
6936 !BrowserView class methodsFor:'documentation'! |
6941 !BrowserView class methodsFor:'documentation'! |
6937 |
6942 |
6938 version |
6943 version |
6939 ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.110 1996-03-07 10:06:56 cg Exp $' |
6944 ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.111 1996-03-07 12:45:36 cg Exp $' |
6940 ! ! |
6945 ! ! |
6941 BrowserView initialize! |
6946 BrowserView initialize! |