--- a/Launcher.st Sat Mar 02 15:48:52 1996 +0100
+++ b/Launcher.st Sat Mar 02 18:59:00 1996 +0100
@@ -798,64 +798,64 @@
selectionForwarder := Plug new.
selectionForwarder respondTo:#showFunction
- with:[
- |raw|
- raw := list1 selection.
- list2 retractInterestsFor:selectionForwarder.
- list2 selection:(mappings at:raw asSymbol) asString.
- list2 onChangeSend:#showRawKey to:selectionForwarder.
- ].
+ with:[
+ |raw|
+ raw := list1 selection.
+ list2 retractInterestsFor:selectionForwarder.
+ list2 selection:(mappings at:raw asSymbol) asString.
+ list2 onChangeSend:#showRawKey to:selectionForwarder.
+ ].
selectionForwarder respondTo:#showRawKey
- with:[
- |f raw|
+ with:[
+ |f raw|
- f := list2 selection.
- list1 retractInterestsFor:selectionForwarder.
- raw := mappings keyAtValue:f asString.
- raw isNil ifTrue:[
- raw := mappings keyAtValue:f first.
- raw isNil ifTrue:[
- raw := mappings keyAtValue:f asSymbol.
- ]
- ].
- list1 selection:raw.
- list1 onChangeSend:#showFunction to:selectionForwarder.
- ].
+ f := list2 selection.
+ list1 retractInterestsFor:selectionForwarder.
+ raw := mappings keyAtValue:f asString.
+ raw isNil ifTrue:[
+ raw := mappings keyAtValue:f first.
+ raw isNil ifTrue:[
+ raw := mappings keyAtValue:f asSymbol.
+ ]
+ ].
+ list1 selection:raw.
+ list1 onChangeSend:#showFunction to:selectionForwarder.
+ ].
macroForwarder := Plug new.
macroForwarder respondTo:#showMacro
- with:[
- |f macro indent|
- f := list2 selection.
- (f startsWith:'Cmd') ifTrue:[
- f := f copyFrom:4
- ].
- macro := FunctionKeySequences at:(f asSymbol) ifAbsent:nil.
- macro notNil ifTrue:[
- macro := macro asStringCollection.
- indent := macro
- inject:99999 into:[:min :element |
- |stripped|
+ with:[
+ |f macro indent|
+ f := list2 selection.
+ (f startsWith:'Cmd') ifTrue:[
+ f := f copyFrom:4
+ ].
+ macro := FunctionKeySequences at:(f asSymbol) ifAbsent:nil.
+ macro notNil ifTrue:[
+ macro := macro asStringCollection.
+ indent := macro
+ inject:99999 into:[:min :element |
+ |stripped|
- stripped := element withoutLeadingSeparators.
- stripped size == 0 ifTrue:[
- min
- ] ifFalse:[
- min min:(element size - stripped size)
- ]
- ].
- indent ~~ 0 ifTrue:[
- macro := macro collect:[:line |
- line size > indent ifTrue:[
- line copyFrom:indent+1
- ] ifFalse:[
- line
- ].
- ]
- ].
- ].
- macroTextView contents:macro.
- ].
+ stripped := element withoutLeadingSeparators.
+ stripped size == 0 ifTrue:[
+ min
+ ] ifFalse:[
+ min min:(element size - stripped size)
+ ]
+ ].
+ indent ~~ 0 ifTrue:[
+ macro := macro collect:[:line |
+ line size > indent ifTrue:[
+ line copyFrom:indent+1
+ ] ifFalse:[
+ line
+ ].
+ ]
+ ].
+ ].
+ macroTextView contents:macro.
+ ].
list1 := SelectionInList with:listOfRawKeys.
list1 onChangeSend:#showFunction to:selectionForwarder.
@@ -900,16 +900,22 @@
macroTextView origin:0.0@0.6 corner:1.0@1.0.
y := box yPosition.
- box "addAbortButton;" addOkButton.
+ box
+ addHelpButtonFor:'NewLauncher/keyboardSetting.html';
+ "addAbortButton;"
+ addOkButton.
+
macroTextView topInset:(l preferredExtent y + 5).
macroTextView bottomInset:(box preferredExtent y - y).
box showAtPointer.
box accepted ifTrue:[
- "no action yet ..."
+ "no action yet ..."
].
box destroy
+
+ "Modified: 2.3.1996 / 16:59:14 / cg"
!
languageSetting
@@ -940,10 +946,12 @@
].
self reopenLauncher.
].
+ box
+ addHelpButtonFor:'NewLauncher/languageSetting.html'.
box showAtPointer.
box destroy
- "Modified: 28.2.1996 / 20:08:33 / cg"
+ "Modified: 2.3.1996 / 16:59:37 / cg"
!
memorySettings
@@ -2343,5 +2351,5 @@
!NewLauncher class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.95 1996-03-02 14:48:52 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.96 1996-03-02 17:59:00 cg Exp $'
! !