Mercurial Mercurial > hg > stx-libwidg / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Tue, 27 Feb 1996 01:12:10 +0100
changeset 412 bb3d94d97b91
parent 411 c1d26677134b
child 413 7474707a9e9b
checkin from browser
LSelBox.st file | annotate | diff | comparison | revisions
ListSelectionBox.st file | annotate | diff | comparison | revisions 
--- a/LSelBox.st	Tue Feb 27 00:57:57 1996 +0100
+++ b/LSelBox.st	Tue Feb 27 01:12:10 1996 +0100
@@ -168,7 +168,7 @@
 
     super initialize.
 
-    label := 'Select or enter'.
+    label := resources string:'Select or enter'.
 
     "need more space than an enterBox"
 
@@ -194,11 +194,11 @@
 
 "/ new:
     v origin:[enterField notNil ifTrue:[
-		0.0 @ (enterField origin y + enterField height + ViewSpacing)
-	      ] ifFalse:[
-		0.0 @ (labelField origin y + labelField height + ViewSpacing)
-	      ]
-	     ]
+                0.0 @ (enterField origin y + enterField height + ViewSpacing)
+              ] ifFalse:[
+                0.0 @ (labelField origin y + labelField height + ViewSpacing)
+              ]
+             ]
       corner:(1.0 @ 1.0).
     v bottomInset:(buttonPanel preferredExtent y + ViewSpacing).
 
@@ -222,13 +222,13 @@
      and input passed to the enterfield (except cursor keys)
     "
     selectionList delegate:(
-	KeyboardForwarder 
-	    toView:enterField 
-	    condition:#noFocus
-	    filter:[:key | (key ~~ #CursorUp) and:[key ~~ #CursorDown]]
-	)
+        KeyboardForwarder 
+            toView:enterField 
+            condition:#noFocus
+            filter:[:key | (key ~~ #CursorUp) and:[key ~~ #CursorDown]]
+        )
 
-    "Modified: 26.10.1995 / 17:18:23 / cg"
+    "Modified: 27.2.1996 / 01:11:41 / cg"
 !
 
 realize
@@ -302,5 +302,5 @@
 !ListSelectionBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/LSelBox.st,v 1.24 1996-02-26 19:06:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/LSelBox.st,v 1.25 1996-02-27 00:12:10 cg Exp $'
 ! !
--- a/ListSelectionBox.st	Tue Feb 27 00:57:57 1996 +0100
+++ b/ListSelectionBox.st	Tue Feb 27 01:12:10 1996 +0100
@@ -168,7 +168,7 @@
 
     super initialize.
 
-    label := 'Select or enter'.
+    label := resources string:'Select or enter'.
 
     "need more space than an enterBox"
 
@@ -194,11 +194,11 @@
 
 "/ new:
     v origin:[enterField notNil ifTrue:[
-		0.0 @ (enterField origin y + enterField height + ViewSpacing)
-	      ] ifFalse:[
-		0.0 @ (labelField origin y + labelField height + ViewSpacing)
-	      ]
-	     ]
+                0.0 @ (enterField origin y + enterField height + ViewSpacing)
+              ] ifFalse:[
+                0.0 @ (labelField origin y + labelField height + ViewSpacing)
+              ]
+             ]
       corner:(1.0 @ 1.0).
     v bottomInset:(buttonPanel preferredExtent y + ViewSpacing).
 
@@ -222,13 +222,13 @@
      and input passed to the enterfield (except cursor keys)
     "
     selectionList delegate:(
-	KeyboardForwarder 
-	    toView:enterField 
-	    condition:#noFocus
-	    filter:[:key | (key ~~ #CursorUp) and:[key ~~ #CursorDown]]
-	)
+        KeyboardForwarder 
+            toView:enterField 
+            condition:#noFocus
+            filter:[:key | (key ~~ #CursorUp) and:[key ~~ #CursorDown]]
+        )
 
-    "Modified: 26.10.1995 / 17:18:23 / cg"
+    "Modified: 27.2.1996 / 01:11:41 / cg"
 !
 
 realize
@@ -302,5 +302,5 @@
 !ListSelectionBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.24 1996-02-26 19:06:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.25 1996-02-27 00:12:10 cg Exp $'
 ! !
hg/stx-libwidg