--- a/BrowserView.st Wed Dec 13 20:03:36 1995 +0100
+++ b/BrowserView.st Wed Dec 13 20:49:45 1995 +0100
@@ -404,18 +404,26 @@
classCategoryMenu
|labels selectors|
- (device ctrlDown
- and:[currentClassCategory notNil]) ifTrue:[
- labels := #(
- 'overall history'
- '-'
- 'checkin each'
- ).
- selectors := #(
- classCategoryRepositoryHistory
- nil
- classCategoryCheckinEach
- ).
+ device ctrlDown ifTrue:[
+ currentClassCategory notNil ifTrue:[
+ labels := #(
+ 'overall history'
+ '-'
+ 'checkin each'
+ ).
+ selectors := #(
+ classCategoryRepositoryHistory
+ nil
+ classCategoryCheckinEach
+ ).
+ ] ifFalse:[
+ labels := #(
+ 'overall history'
+ ).
+ selectors := #(
+ classCategoryRepositoryHistory
+ ).
+ ]
] ifFalse:[
currentClassCategory isNil ifTrue:[
labels := #(
@@ -483,7 +491,7 @@
selectors:selectors
"Created: 14.9.1995 / 10:50:17 / claus"
- "Modified: 13.12.1995 / 10:27:46 / cg"
+ "Modified: 13.12.1995 / 17:59:45 / cg"
!
classCategoryNewCategory
@@ -4377,26 +4385,39 @@
methodListView flash.
^ nil
].
- labels := #(
- 'inspect method'
- 'compile to machine code'
- 'decompile'
- '-'
- 'make private'
- 'make protected'
- 'make public'
- 'make ignored'
- ).
- selectors := #(
- methodInspect
- methodSTCCompile
- methodDecompile
- nil
- methodMakePrivate
- methodMakeProtected
- methodMakePublic
- methodMakeIgnored
- )
+ Method methodPrivacySupported ifTrue:[
+ labels := #(
+ 'inspect method'
+ 'compile to machine code'
+ 'decompile'
+ '-'
+ 'make private'
+ 'make protected'
+ 'make public'
+ 'make ignored'
+ ).
+ selectors := #(
+ methodInspect
+ methodSTCCompile
+ methodDecompile
+ nil
+ methodMakePrivate
+ methodMakeProtected
+ methodMakePublic
+ methodMakeIgnored
+ )
+ ] ifFalse:[
+ labels := #(
+ 'inspect method'
+ 'compile to machine code'
+ 'decompile'
+ ).
+ selectors := #(
+ methodInspect
+ methodSTCCompile
+ methodDecompile
+ )
+ ]
] ifFalse:[
sepLocalLabels := sepLocalSelectors := #().
@@ -4618,7 +4639,7 @@
^ m
"Created: 23.11.1995 / 12:02:29 / cg"
- "Modified: 13.12.1995 / 14:00:52 / cg"
+ "Modified: 13.12.1995 / 18:47:53 / cg"
!
methodMove
@@ -6428,6 +6449,6 @@
!BrowserView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.72 1995-12-13 16:53:04 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.73 1995-12-13 19:49:45 cg Exp $'
! !
BrowserView initialize!
--- a/BrwsrView.st Wed Dec 13 20:03:36 1995 +0100
+++ b/BrwsrView.st Wed Dec 13 20:49:45 1995 +0100
@@ -404,18 +404,26 @@
classCategoryMenu
|labels selectors|
- (device ctrlDown
- and:[currentClassCategory notNil]) ifTrue:[
- labels := #(
- 'overall history'
- '-'
- 'checkin each'
- ).
- selectors := #(
- classCategoryRepositoryHistory
- nil
- classCategoryCheckinEach
- ).
+ device ctrlDown ifTrue:[
+ currentClassCategory notNil ifTrue:[
+ labels := #(
+ 'overall history'
+ '-'
+ 'checkin each'
+ ).
+ selectors := #(
+ classCategoryRepositoryHistory
+ nil
+ classCategoryCheckinEach
+ ).
+ ] ifFalse:[
+ labels := #(
+ 'overall history'
+ ).
+ selectors := #(
+ classCategoryRepositoryHistory
+ ).
+ ]
] ifFalse:[
currentClassCategory isNil ifTrue:[
labels := #(
@@ -483,7 +491,7 @@
selectors:selectors
"Created: 14.9.1995 / 10:50:17 / claus"
- "Modified: 13.12.1995 / 10:27:46 / cg"
+ "Modified: 13.12.1995 / 17:59:45 / cg"
!
classCategoryNewCategory
@@ -4377,26 +4385,39 @@
methodListView flash.
^ nil
].
- labels := #(
- 'inspect method'
- 'compile to machine code'
- 'decompile'
- '-'
- 'make private'
- 'make protected'
- 'make public'
- 'make ignored'
- ).
- selectors := #(
- methodInspect
- methodSTCCompile
- methodDecompile
- nil
- methodMakePrivate
- methodMakeProtected
- methodMakePublic
- methodMakeIgnored
- )
+ Method methodPrivacySupported ifTrue:[
+ labels := #(
+ 'inspect method'
+ 'compile to machine code'
+ 'decompile'
+ '-'
+ 'make private'
+ 'make protected'
+ 'make public'
+ 'make ignored'
+ ).
+ selectors := #(
+ methodInspect
+ methodSTCCompile
+ methodDecompile
+ nil
+ methodMakePrivate
+ methodMakeProtected
+ methodMakePublic
+ methodMakeIgnored
+ )
+ ] ifFalse:[
+ labels := #(
+ 'inspect method'
+ 'compile to machine code'
+ 'decompile'
+ ).
+ selectors := #(
+ methodInspect
+ methodSTCCompile
+ methodDecompile
+ )
+ ]
] ifFalse:[
sepLocalLabels := sepLocalSelectors := #().
@@ -4618,7 +4639,7 @@
^ m
"Created: 23.11.1995 / 12:02:29 / cg"
- "Modified: 13.12.1995 / 14:00:52 / cg"
+ "Modified: 13.12.1995 / 18:47:53 / cg"
!
methodMove
@@ -6428,6 +6449,6 @@
!BrowserView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.72 1995-12-13 16:53:04 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.73 1995-12-13 19:49:45 cg Exp $'
! !
BrowserView initialize!