--- a/MenuPanel.st Sat Jul 26 17:09:54 1997 +0200
+++ b/MenuPanel.st Sat Jul 26 17:14:49 1997 +0200
@@ -311,201 +311,11 @@
!MenuPanel class methodsFor:'tests'!
-st80test
-"
-MenuPanel st80test
-"
- |menu|
-
- menu := #(#Menu #( #(#MenuItem
- #rawLabel: '&File'
- #submenu: #(#Menu #(
- #(#MenuItem
- #rawLabel: '&Save As...'
- #indication: true
- #value: #imageSaveAs )
- #(#MenuItem
- #rawLabel: '&Perm Save As...'
- #value: #filePermSaveAs )
- #(#MenuItem
- #rawLabel: 'Perm &Undo As...'
- #value: #filePermUndoAs )
- #(#MenuItem
- #rawLabel: '&Collect Garbage'
- #value: #collectGarbage )
- #(#MenuItem
- #rawLabel: 'Collect All &Garbage'
- #value: #collectAllGarbage )
- #(#MenuItem
- #rawLabel: 'Se&ttings'
- #value: #visualWorksSettings )
- #(#MenuItem
- #rawLabel: 'E&xit VisualWorks...'
- #value: #visualWorksExit )
- ) #(3 2 1 1 ) nil ) )
- #(#MenuItem
- #rawLabel: '&Browse'
- #submenu: #(#Menu #(
- #(#MenuItem
- #rawLabel: '&All Classes'
- #value: #browseAllClasses
- #labelImage: #(#ResourceRetriever nil #allClassesIcon ) )
- #(#MenuItem
- #rawLabel: 'Class &Named...'
- #value: #browseClassNamed )
- #(#MenuItem
- #rawLabel: '&Resources'
- #value: #browseApplications
- #labelImage: #(#ResourceRetriever nil #finderIcon ) )
- #(#MenuItem
- #rawLabel: 'References &To...'
- #value: #browseSendersOf )
- #(#MenuItem
- #rawLabel: '&Implementors Of...'
- #value: #browseImplementorsOf )
- ) #(3 2 ) nil ) )
- #(#MenuItem
- #rawLabel: '&Tools'
- #submenu: #(#Menu #(
- #(#MenuItem
- #rawLabel: '&File List'
- #value: #openFileList
- #labelImage: #(#ResourceRetriever nil #fileListIcon ) )
- #(#MenuItem
- #rawLabel: 'File &Editor...'
- #value: #openFileEditor )
- #(#MenuItem
- #rawLabel: '&Workspace'
- #value: #toolsNewWorkspace
- #labelImage: #(#ResourceRetriever nil #workspaceIcon ) )
- #(#MenuItem
- #rawLabel: 'Parcel &List'
- #value: #openParcelList )
- #(#MenuItem
- #rawLabel: '&New Canvas'
- #value: #toolsNewCanvas
- #labelImage: #(#ResourceRetriever nil #newCanvasIcon ) )
- #(#MenuItem
- #rawLabel: '&Palette'
- #value: #toolsPalette )
- #(#MenuItem
- #rawLabel: '&Canvas Tool'
- #value: #toolsCanvasTool )
- #(#MenuItem
- #rawLabel: '&Image Editor'
- #value: #toolsMaskEditor )
- #(#MenuItem
- #rawLabel: '&Menu Editor'
- #value: #toolsMenuEditor )
- #(#MenuItem
- #rawLabel: '&Advanced'
- #nameKey: #advanced )
- #(#MenuItem
- #rawLabel: '&DLL and C Connect'
- #nameKey: #dllcc
- #value: #openExternalFinder
- #labelImage: #(#ResourceRetriever nil #extFinderIcon ) )
- #(#MenuItem
- #rawLabel: 'System &Transcript'
- #nameKey: #transcript
- #value: #toggleSystemTranscript
- #indication: true )
- ) #(4 5 2 1 ) nil ) )
- #(#MenuItem
- #rawLabel: '&Changes'
- #submenu: #(#Menu #(
- #(#MenuItem
- #rawLabel: 'Open Change &List'
- #value: #changesOpenChangeList )
- #(#MenuItem
- #rawLabel: '&File Out Changes...'
- #value: #changesFileOutChanges )
- #(#MenuItem
- #rawLabel: '&Empty Changes...'
- #value: #changesEmptyChanges )
- #(#MenuItem
- #rawLabel: 'Changed &Methods'
- #value: #changesChangedMethods )
- #(#MenuItem
- #rawLabel: 'Inspect &ChangeSet'
- #value: #changesInspectChangeSet )
- #(#MenuItem
- #rawLabel: 'Open &Project'
- #value: #changesOpenProject )
- #(#MenuItem
- #rawLabel: 'E&xit Project'
- #value: #changesExitProject )
- ) #(1 4 2 ) nil ) )
- #(#MenuItem
- #rawLabel: '&Database'
- #submenu: #(#Menu #(
- #(#MenuItem
- #rawLabel: 'Ad Hoc &SQL'
- #nameKey: #adHoc
- #value: #openAdHocQuery )
- #(#MenuItem
- #rawLabel: 'Data &Modeler'
- #nameKey: #dataModeler
- #value: #openDataModelBrowser
- #labelImage: #(#ResourceRetriever nil #dbToolIcon ) )
- #(#MenuItem
- #rawLabel: 'Canvas &Composer'
- #nameKey: #canvasComposer
- #value: #openCanvasComposer )
- #(#MenuItem
- #rawLabel: 'New Data &Form...'
- #nameKey: #dataForm
- #value: #newDataForm )
- #(#MenuItem
- #rawLabel: 'New Database &Application...'
- #nameKey: #dataBaseAp
- #value: #newDataMain )
- ) #(1 4 ) nil ) )
- #(#MenuItem
- #rawLabel: '&Window'
- #submenu: #(#Menu #(
- #(#MenuItem
- #rawLabel: 'Re&fresh All'
- #value: #winRefreshAll )
- #(#MenuItem
- #rawLabel: '&Collapse All'
- #value: #winCollapseAll )
- #(#MenuItem
- #rawLabel: 'Re&store All'
- #value: #winRestoreAll )
- #(#MenuItem
- #rawLabel: '&Windows'
- #nameKey: #windowsMenu )
- ) #(3 1 ) nil ) )
- #(#MenuItem
- #rawLabel: '&Help'
- #submenu: #(#Menu #(
- #(#MenuItem
- #rawLabel: 'Open Online &Documentation'
- #value: #openHelpBrowser
- #labelImage: #(#ResourceRetriever nil #helpIcon ) )
- #(#MenuItem
- #rawLabel: '&Quick Start Guides...'
- #value: #openGuidingDialog )
- #(#MenuItem
- #rawLabel: 'About &VisualWorks...'
- #value: #helpAbout )
- ) #(2 1 ) nil ) )
- ) #(7 ) nil
- )
- decodeAsLiteralArray.
-
- Transcript showCR:(menu startUp).
-
-
-
-!
-
test
"
self test
"
- |top subView mview desc s1 s2 s3 img lbs labels|
+ |top mview s1 s2 s3 img lbs labels|
top := StandardSystemView new.
@@ -559,7 +369,7 @@
accept:anItem
"this is the topMenu: accept item
"
- |value item topMenu|
+ |value item|
self superMenu notNil ifTrue:[
^ self topMenu accept:anItem
@@ -2198,8 +2008,6 @@
menuAdornmentAt:aSymbol put:something
"sets a value for the specific menu
"
- |adm|
-
(self menuAdornmentAt:aSymbol) ~~ something ifTrue:[
adornment isNil ifTrue:[
adornment := DefaultAdornment copy
@@ -2212,8 +2020,6 @@
onEachPerform:aSelector withArgList:aList
"on each item perform selector with an argument derived from aList
"
- |size|
-
aList isCollection ifTrue:[
items size >= aList size ifTrue:[
aList keysAndValuesDo:[:anIndex :anArg|
@@ -2652,7 +2458,7 @@
accessCharacterPosition:anIndex
"set the access character position or nil
"
- |idx lbl|
+ |lbl|
( (accessCharacterPosition ~~ anIndex)
and:[(lbl := self textLabel) notNil]
@@ -2712,7 +2518,7 @@
"set a new label; if the label changed, a redraw is performed;
handle characters $& (ST-80 compatibility)
"
- |type form i rest s|
+ |i rest s|
accessCharacterPosition := nil.
label := aLabel value.
@@ -3006,7 +2812,7 @@
preferredExtentY
"compute my preferred extent y
"
- |s y|
+ |y|
y := VerticalInset + VerticalInset.
@@ -3621,7 +3427,7 @@
shortcutKeyAsString
"converts shortcutKey to a text object
"
- |nm x key|
+ |nm key|
"/ this is somewhat complicated: we have the symbolic key at hand,
"/ but want to show the untranslated (inverse keyBoardMapped) key & modifier
@@ -3675,7 +3481,7 @@
hideSubmenu
"hide submenu
"
- |windowGrp subMenu|
+ |subMenu|
subMenu := self submenu.
@@ -3801,6 +3607,6 @@
!MenuPanel class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.23 1997-07-21 08:51:42 ca Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.24 1997-07-26 15:14:49 cg Exp $'
! !
MenuPanel initialize!