--- a/OrderedCollectionInspectorView.st Sun Mar 26 19:28:29 1995 +0200
+++ b/OrderedCollectionInspectorView.st Sun Mar 26 19:35:57 1995 +0200
@@ -1,4 +1,14 @@
-'From Smalltalk/X, Version:2.10.4 on 28-feb-1995 at 2:12:01 am'!
+"
+ COPYRIGHT (c) 1993 by Claus Gittinger
+ 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
+ inclusion of the above copyright notice. This software may not
+ be provided or otherwise made available to, or used by, any
+ other person. No title to or ownership of the software is
+ hereby transferred.
+"
InspectorView subclass:#OrderedCollectionInspectorView
instanceVariableNames:''
@@ -7,52 +17,74 @@
category:'Interface-Inspector'
!
+!OrderedCollectionInspectorView class methodsFor:'documentation'!
+
+copyright
+"
+ COPYRIGHT (c) 1993 by Claus Gittinger
+ 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
+ inclusion of the above copyright notice. This software may not
+ be provided or otherwise made available to, or used by, any
+ other person. No title to or ownership of the software is
+ hereby transferred.
+"
+!
+
+version
+"
+$Header: /cvs/stx/stx/libtool/OrderedCollectionInspectorView.st,v 1.8 1995-03-26 17:35:34 claus Exp $
+"
+! !
+
!OrderedCollectionInspectorView methodsFor:'private'!
fieldMenu
|labels selectors|
hasMore ifTrue:[
- labels := #(
- 'inspect'
- 'basicInspect'
- '-'
- 'remove'
- '-'
- 'show more'
- ).
+ labels := #(
+ 'inspect'
+ 'basicInspect'
+ '-'
+ 'remove'
+ '-'
+ 'show more'
+ ).
- selectors := #(
- doInspect
- doBasicInspect
- nil
- removeIndex
- nil
- showMore
- ).
+ selectors := #(
+ doInspect
+ doBasicInspect
+ nil
+ removeIndex
+ nil
+ showMore
+ ).
] ifFalse:[
- labels := #(
- 'inspect'
- 'basicInspect'
- '-'
- 'remove'
+ labels := #(
+ 'inspect'
+ 'basicInspect'
+ '-'
+ 'remove'
"/ '-'
"/ 'owners'
- ).
+ ).
- selectors := #(
- doInspect
- doBasicInspect
- nil
- removeIndex
+ selectors := #(
+ doInspect
+ doBasicInspect
+ nil
+ removeIndex
"/ nil
"/ inspectOwners
- ).
+ ).
].
^ PopUpMenu
- labels:(resources array:labels)
- selectors:selectors
+ labels:(resources array:labels)
+ selectors:selectors
!
fieldList
@@ -80,10 +112,10 @@
"remove selected item from the collection"
selectedLine == 1 ifFalse:[
- inspectedObject removeIndex:selectedLine -1.
- selectedLine := nil.
- inspectedObject changed.
- self inspect:inspectedObject. "force list update"
+ inspectedObject removeIndex:selectedLine -1.
+ selectedLine := nil.
+ inspectedObject changed.
+ self inspect:inspectedObject. "force list update"
]
!
@@ -93,7 +125,7 @@
|index|
lineNr == 1 ifTrue:[
- ^ inspectedObject
+ ^ inspectedObject
].
index := lineNr - 1. "/ skip self
^ inspectedObject at:index
@@ -104,11 +136,11 @@
"user selected inspect-menu entry"
selectedLine notNil ifTrue:[
- (selectedLine == 1) ifTrue:[
- inspectedObject inspect
- ] ifFalse:[
- (inspectedObject at:selectedLine - 1) inspect
- ].
+ (selectedLine == 1) ifTrue:[
+ inspectedObject inspect
+ ] ifFalse:[
+ (inspectedObject at:selectedLine - 1) inspect
+ ].
]
!
@@ -116,14 +148,13 @@
|value|
value := Compiler evaluate:theText
- receiver:inspectedObject
- notifying:workspace.
+ receiver:inspectedObject
+ notifying:workspace.
selectedLine notNil ifTrue:[
- selectedLine == 1 ifFalse:[
- inspectedObject at:selectedLine - 1 put:value.
- inspectedObject changed
- ]
+ selectedLine == 1 ifFalse:[
+ inspectedObject at:selectedLine - 1 put:value.
+ inspectedObject changed
+ ]
].
! !
-