--- a/UIHelpTool.st Sun Sep 26 16:14:08 1999 +0200
+++ b/UIHelpTool.st Mon Sep 27 13:48:04 1999 +0200
@@ -974,43 +974,48 @@
listSelection:aSelection
"sets current selection"
- |txt view sel|
-
- aSelection isNil
- ifTrue: [(builder componentAt: #listOfHelpKeysView) selection: nil]
- ifFalse: [(dictionary includesKey: aSelection asSymbol) ifFalse: [self findHelpSpecForKey: aSelection]].
+ |txt view selection|
- aSelection isNumber ifTrue:[
- aSelection ~~ 0 ifTrue:[
- sel := self listChannel value at:aSelection
- ]
- ] ifFalse:[
- aSelection size ~~ 0 ifTrue:[
- sel := aSelection withoutSeparators.
- sel size == 0 ifTrue:[
- sel := nil
+ aSelection notNil ifTrue:[
+ aSelection isNumber ifTrue:[
+ aSelection ~~ 0 ifTrue:[
+ selection := self listChannel value at:aSelection ifAbsent:nil
+ ]
+ ] ifFalse:[
+ selection := aSelection withoutSeparators.
+
+ selection size == 0 ifTrue:[
+ selection := nil
]
]
].
- listSelection = sel ifFalse:[
- listSelection := sel.
-
- modifiedHolder notNil ifTrue:[
- modifiedHolder value:true.
- ].
+ selection isNil ifTrue:[
+ (builder componentAt:#listOfHelpKeysView) selection:nil
+ ] ifFalse:[
+ (dictionary includesKey:selection asSymbol) ifFalse:[
+ self findHelpSpecForKey:selection
+ ]
+ ].
+ listSelection == selection ifTrue:[
+ ^ self
+ ].
+ listSelection := selection.
- (view := self editTextView) notNil ifTrue:[
- listSelection notNil ifTrue:[
- txt := dictionary at:(listSelection asSymbol) ifAbsent:nil.
+ modifiedHolder notNil ifTrue:[
+ modifiedHolder value:true.
+ ].
- (txt isNil or:[maxCharsPerLine isNil]) ifFalse:[
- txt := UIPainter convertString:(txt asString) maxLineSize:maxCharsPerLine skipLineFeed:false.
- ]
- ].
- view contents:txt.
- view modified:false.
- ]
+ (view := self editTextView) notNil ifTrue:[
+ listSelection notNil ifTrue:[
+ txt := dictionary at:(listSelection asSymbol) ifAbsent:nil.
+
+ (txt isNil or:[maxCharsPerLine isNil]) ifFalse:[
+ txt := UIPainter convertString:(txt asString) maxLineSize:maxCharsPerLine skipLineFeed:false.
+ ]
+ ].
+ view contents:txt.
+ view modified:false.
]
! !