checkin from browser
authorClaus Gittinger <cg@exept.de>
Wed, 12 Jun 1996 14:12:02 +0200
changeset 618 06a79d5ab531
parent 617 19ec7ab9ffb1
child 619 62db60834422
checkin from browser
Launcher.st
OCInspView.st
OrderedCollectionInspectorView.st
--- a/Launcher.st	Mon Jun 10 22:17:07 1996 +0200
+++ b/Launcher.st	Wed Jun 12 14:12:02 1996 +0200
@@ -987,7 +987,7 @@
     box addCheckBox:(resources string:'color monitor') on:isColorMonitor.
 
     box addVerticalSpace.
-    box addCheckBox:(resources string:'fix color palette (6x6x4)') on:useFixPalette.
+    box addCheckBox:(resources string:'use fix color palette (6x6x4)') on:useFixPalette.
 
     box addVerticalSpace.
     box addCheckBox:(resources string:'allow colored/grayscale icons') on:deepIcons.
@@ -1017,7 +1017,7 @@
     ].
     box destroy
 
-    "Modified: 10.6.1996 / 19:53:10 / cg"
+    "Modified: 12.6.1996 / 12:58:34 / cg"
 !
 
 fontSettings
@@ -2951,5 +2951,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.151 1996-06-10 20:17:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.152 1996-06-12 12:11:30 cg Exp $'
 ! !
--- a/OCInspView.st	Mon Jun 10 22:17:07 1996 +0200
+++ b/OCInspView.st	Wed Jun 12 14:12:02 1996 +0200
@@ -194,16 +194,17 @@
 
     |index|
 
-    lineNr == 1 ifTrue:[
-	^ inspectedObject
+    (lineNr isNil or:[lineNr == 1]) ifTrue:[
+        ^ inspectedObject
     ].
     index := lineNr - 1.   "/ skip self
     ^ inspectedObject at:index
 
+    "Modified: 11.6.1996 / 17:20:44 / cg"
 ! !
 
 !OrderedCollectionInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/OCInspView.st,v 1.14 1996-04-25 16:32:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/OCInspView.st,v 1.15 1996-06-12 12:12:02 cg Exp $'
 ! !
--- a/OrderedCollectionInspectorView.st	Mon Jun 10 22:17:07 1996 +0200
+++ b/OrderedCollectionInspectorView.st	Wed Jun 12 14:12:02 1996 +0200
@@ -194,16 +194,17 @@
 
     |index|
 
-    lineNr == 1 ifTrue:[
-	^ inspectedObject
+    (lineNr isNil or:[lineNr == 1]) ifTrue:[
+        ^ inspectedObject
     ].
     index := lineNr - 1.   "/ skip self
     ^ inspectedObject at:index
 
+    "Modified: 11.6.1996 / 17:20:44 / cg"
 ! !
 
 !OrderedCollectionInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/OrderedCollectionInspectorView.st,v 1.14 1996-04-25 16:32:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/OrderedCollectionInspectorView.st,v 1.15 1996-06-12 12:12:02 cg Exp $'
 ! !