Mercurial Mercurial > hg > stx-libview2 / 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.
*** empty log message ***
authorca
Tue, 11 Feb 1997 20:09:24 +0100
changeset 411 8b8b0128d129
parent 410 2d21748e0d9c
child 412 5fbd63617e33
*** empty log message ***
DragAndDropManager.st file | annotate | diff | comparison | revisions
PrintConv.st file | annotate | diff | comparison | revisions
PrintConverter.st file | annotate | diff | comparison | revisions 
--- a/DragAndDropManager.st	Tue Feb 11 20:02:28 1997 +0100
+++ b/DragAndDropManager.st	Tue Feb 11 20:09:24 1997 +0100
@@ -649,6 +649,11 @@
 
     "Created: 26.10.1996 / 15:22:29 / cg"
 
+    "
+     DragAndDropManager allInstancesDo:[:m |
+        m uncatchEvents
+     ]
+    "
 ! !
 
 !DragAndDropManager::DemoView methodsFor:'events'!
@@ -716,5 +721,5 @@
 !DragAndDropManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/DragAndDropManager.st,v 1.9 1997-02-01 14:29:18 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/DragAndDropManager.st,v 1.10 1997-02-11 19:09:24 ca Exp $'
 ! !
--- a/PrintConv.st	Tue Feb 11 20:02:28 1997 +0100
+++ b/PrintConv.st	Tue Feb 11 20:09:24 1997 +0100
@@ -392,10 +392,21 @@
      - if the string is empty or invalid, convert to nil"
 
     valueToStringBlock := [:num | 
-	num isNil ifTrue:[''] 
-		  ifFalse:[num printString]].
-    stringToValueBlock := [:string | 
-	Number readFromString:string onError:nil]
+        num isNil ifTrue:[''] 
+                  ifFalse:[num printString]].
+    stringToValueBlock := [:string |
+        |s|
+
+        s := string.
+        (s endsWith:'.') ifTrue:[
+            s := s , '0'
+        ].
+        Number readFromString:s onError:nil
+    ]
+
+
+
+
 !
 
 initForString
@@ -430,5 +441,5 @@
 !PrintConverter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/PrintConv.st,v 1.15 1997-02-11 10:54:23 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/PrintConv.st,v 1.16 1997-02-11 19:08:41 ca Exp $'
 ! !
--- a/PrintConverter.st	Tue Feb 11 20:02:28 1997 +0100
+++ b/PrintConverter.st	Tue Feb 11 20:09:24 1997 +0100
@@ -392,10 +392,21 @@
      - if the string is empty or invalid, convert to nil"
 
     valueToStringBlock := [:num | 
-	num isNil ifTrue:[''] 
-		  ifFalse:[num printString]].
-    stringToValueBlock := [:string | 
-	Number readFromString:string onError:nil]
+        num isNil ifTrue:[''] 
+                  ifFalse:[num printString]].
+    stringToValueBlock := [:string |
+        |s|
+
+        s := string.
+        (s endsWith:'.') ifTrue:[
+            s := s , '0'
+        ].
+        Number readFromString:s onError:nil
+    ]
+
+
+
+
 !
 
 initForString
@@ -430,5 +441,5 @@
 !PrintConverter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/PrintConverter.st,v 1.15 1997-02-11 10:54:23 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/PrintConverter.st,v 1.16 1997-02-11 19:08:41 ca Exp $'
 ! !
hg/stx-libview2