# HG changeset patch
# User ca
# Date 855688164 -3600
# Node ID 8b8b0128d129a94c179ff7f8685f83282f79bcb2
# Parent  2d21748e0d9c0457616bc3a2a513853710ceb738
*** empty log message ***

diff -r 2d21748e0d9c -r 8b8b0128d129 DragAndDropManager.st
--- 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 $'
 ! !
diff -r 2d21748e0d9c -r 8b8b0128d129 PrintConv.st
--- 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 $'
 ! !
diff -r 2d21748e0d9c -r 8b8b0128d129 PrintConverter.st
--- 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 $'
 ! !