--- a/BrowserView.st Fri Nov 16 00:48:59 2001 +0100
+++ b/BrowserView.st Fri Nov 16 11:53:24 2001 +0100
@@ -696,22 +696,33 @@
#(#Menu
#(
#(#MenuItem
- #label: 'FileOut As...'
- #translateLabel: true
- #value: #classCategoryFileOutAs
- #enabled: #hasClassCategorySelected
- )
- #(#MenuItem
- #label: 'FileOut Each in...'
+ #label: 'FileOut'
#translateLabel: true
- #value: #classCategoryFileOutEachIn
- #enabled: #hasClassCategorySelected
- )
- #(#MenuItem
- #label: 'FileOut Each Binary in...'
- #translateLabel: true
- #value: #classCategoryFileOutBinaryEach
- #enabled: #hasClassCategorySelected
+ #submenu:
+ #(#Menu
+ #(
+ #(#MenuItem
+ #label: 'FileOut As...'
+ #translateLabel: true
+ #value: #classCategoryFileOutAs
+ #enabled: #hasClassCategorySelected
+ )
+ #(#MenuItem
+ #label: 'FileOut Each in...'
+ #translateLabel: true
+ #value: #classCategoryFileOutEachIn
+ #enabled: #hasClassCategorySelected
+ )
+ #(#MenuItem
+ #label: 'FileOut Each Binary in...'
+ #translateLabel: true
+ #value: #classCategoryFileOutBinaryEach
+ #enabled: #hasClassCategorySelected
+ )
+ )
+ nil
+ nil
+ )
)
#(#MenuItem
#label: 'PrintOut'
@@ -842,16 +853,27 @@
#(#Menu
#(
#(#MenuItem
- #label: 'FileOut As...'
+ #label: 'FileOut'
#translateLabel: true
- #value: #classFileOutAs
- #enabled: #hasLoadedClassSelected
- )
- #(#MenuItem
- #label: 'FileOut Binary as...'
- #translateLabel: true
- #value: #classFileOutBinaryAs
- #enabled: #hasLoadedClassSelected
+ #submenu:
+ #(#Menu
+ #(
+ #(#MenuItem
+ #label: 'FileOut As...'
+ #translateLabel: true
+ #value: #classFileOutAs
+ #enabled: #hasLoadedClassSelected
+ )
+ #(#MenuItem
+ #label: 'FileOut Binary as...'
+ #translateLabel: true
+ #value: #classFileOutBinaryAs
+ #enabled: #hasLoadedClassSelected
+ )
+ )
+ nil
+ nil
+ )
)
#(#MenuItem
#label: 'PrintOut'
@@ -1437,16 +1459,16 @@
#(#MenuItem
#label: 'Remove Breakpoint'
#translateLabel: true
+ #isVisible: #selectedMethodIsBreakpointed
#value: #methodRemoveBreakOrTrace
#enabled: #selectedMethodIsBreakpointed
- #isVisible: #selectedMethodIsBreakpointed
)
#(#MenuItem
#label: 'Remove Trace'
#translateLabel: true
+ #isVisible: #selectedMethodIsTraced
#value: #methodRemoveBreakOrTrace
#enabled: #selectedMethodIsTraced
- #isVisible: #selectedMethodIsTraced
)
)
nil
@@ -1568,7 +1590,7 @@
nil
)
- "Modified: / 15.11.2001 / 17:27:41 / cg"
+ "Modified: / 16.11.2001 / 10:00:50 / cg"
! !
!BrowserView methodsFor:'change & update'!
@@ -9536,9 +9558,9 @@
box := ListSelectionBox new.
box noEnterField.
box list:processNames.
- box label:(resources string:'process selection').
+ box label:(resources string:'Process selection').
box title:(resources
- string:'stop if method is executed by process:\\(current process is %1)'
+ string:'Stop if method is executed by process:\\(current process is %1)'
with:(Processor activeProcess id)
with:(Processor activeProcess nameOrId)) withCRs.
box action:[:selection |
@@ -9549,8 +9571,8 @@
box destroy
"Created: / 14.10.1996 / 15:40:53 / cg"
- "Modified: / 12.1.1998 / 19:14:37 / cg"
"Modified: / 2.2.1998 / 12:39:38 / stefan"
+ "Modified: / 16.11.2001 / 11:49:23 / cg"
!
methodChangeCategory
@@ -9565,8 +9587,8 @@
actualClass isNil ifTrue:[
box := self
enterBoxTitle:''
- okText:'change'
- label:'change category'.
+ okText:'Change'
+ label:'Change category'.
] ifFalse:[
|someCategories|
@@ -9577,7 +9599,7 @@
list:someCategories.
].
- box title:(resources string:'change category from ''%1'' to:' with:currentMethod category).
+ box title:(resources string:'Change category from ''%1'' to:' with:currentMethod category).
lastMethodCategory isNil ifTrue:[
txt := currentMethod category.
] ifFalse:[
@@ -9596,11 +9618,11 @@
self updateMethodListWithScroll:false
]
].
- box label:(resources string:'change category').
+ box label:(resources string:'Change category').
box open
- "Created: 29.10.1995 / 19:59:22 / cg"
- "Modified: 16.1.1997 / 00:16:29 / cg"
+ "Created: / 29.10.1995 / 19:59:22 / cg"
+ "Modified: / 16.11.2001 / 11:49:38 / cg"
!
methodCompareSource
@@ -9725,10 +9747,10 @@
"/ newClassName := (holders at:#className) value.
newClassName := Dialog
- request:(resources string:'copy this method to which class:')
+ request:(resources string:'Copy this method to which class:')
initialAnswer:initial
- okLabel:(resources string:'copy')
- title:(resources string:'copy method')
+ okLabel:(resources string:'Copy')
+ title:(resources string:'Copy method')
onCancel:nil
list:list.
newClassName isNil ifTrue:[^ self].
@@ -9763,6 +9785,8 @@
self warn:'not copied - compilation failed due to an error'.
^ self
].
+
+ "Modified: / 16.11.2001 / 10:10:27 / cg"
!
methodDecompile
@@ -14926,6 +14950,6 @@
!BrowserView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.692 2001-11-15 20:02:23 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.693 2001-11-16 10:53:24 cg Exp $'
! !
BrowserView initialize!