--- a/OrderedCollectionInspectorView.st Thu Nov 17 15:44:34 1994 +0100
+++ b/OrderedCollectionInspectorView.st Thu Nov 17 15:47:59 1994 +0100
@@ -1,8 +1,6 @@
-"{ Package: 'Programming Tools' }"
-
"
COPYRIGHT (c) 1989 by Claus Gittinger
- All Rights Reserved
+ All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
@@ -13,10 +11,10 @@
"
InspectorView subclass:#OrderedCollectionInspectorView
- instanceVariableNames:''
- classVariableNames:''
- poolDictionaries:''
- category:'Interface-Inspector'
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ category:'Interface-Inspector'
!
!OrderedCollectionInspectorView methodsFor:'user interaction'!
@@ -28,11 +26,11 @@
workspace contents:nil.
lineNr == 1 ifTrue:[
- "selecting self also does a re-set, this allows updating the list"
- self inspect:inspectedObject.
- val := inspectedObject
+ "selecting self also does a re-set, this allows updating the list"
+ self inspect:inspectedObject.
+ val := inspectedObject
] ifFalse:[
- val := inspectedObject at:(lineNr - 1)
+ val := inspectedObject at:(lineNr - 1)
].
string := val displayString.
workspace paste:string.
@@ -43,16 +41,16 @@
|value|
value := Compiler evaluate:theText
- receiver:inspectedObject
- notifying:workspace.
+ receiver:inspectedObject
+ notifying:workspace.
inspectedValues isNil ifTrue:[
- selectedLine notNil ifTrue:[
- selectedLine == 1 ifFalse:[
- inspectedObject at:selectedLine - 1 put:value.
- inspectedObject changed
- ]
- ]
+ selectedLine notNil ifTrue:[
+ selectedLine == 1 ifFalse:[
+ inspectedObject at:selectedLine - 1 put:value.
+ inspectedObject changed
+ ]
+ ]
].
!
@@ -60,13 +58,13 @@
"user selected inspect-menu entry"
selectedLine notNil ifTrue:[
- inspectedValues isNil ifTrue:[
- (selectedLine == 1) ifTrue:[
- inspectedObject inspect
- ] ifFalse:[
- (inspectedObject at:selectedLine - 1) inspect
- ]
- ].
+ inspectedValues isNil ifTrue:[
+ (selectedLine == 1) ifTrue:[
+ inspectedObject inspect
+ ] ifFalse:[
+ (inspectedObject at:selectedLine - 1) inspect
+ ]
+ ].
]
! !
@@ -81,18 +79,18 @@
aList add:'self'.
n := inspectedObject size.
(n > nShown) ifTrue:[
- n := nShown.
- cut := true.
- listView setMiddleButtonMenu:menu2.
+ n := nShown.
+ cut := true.
+ listView setMiddleButtonMenu:menu2.
] ifFalse:[
- cut := false.
- listView setMiddleButtonMenu:menu1.
+ cut := false.
+ listView setMiddleButtonMenu:menu1.
].
1 to:n do:[:index |
- aList add:(index printString)
+ aList add:(index printString)
].
cut ifTrue:[
- aList add:' ... '
+ aList add:' ... '
].
^ aList
! !