Mercurial Mercurial > hg > stx-libwidg2 / 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>
Fri, 31 May 1996 20:08:14 +0200
changeset 196 9311b28d1a32
parent 195 0fbaea91aa3d
child 197 00cb7ea2b5a7
checkin from browser
Ruler.st file | annotate | diff | comparison | revisions
VRuler.st file | annotate | diff | comparison | revisions
VerticalRuler.st file | annotate | diff | comparison | revisions 
--- a/Ruler.st	Fri May 31 19:23:26 1996 +0200
+++ b/Ruler.st	Fri May 31 20:08:14 1996 +0200
@@ -141,10 +141,12 @@
 paperWidthMM:millis
     "set the width of the document"
 
-    paperWidth := self millimeterToInch:millis.
+    paperWidth := UnitConverter millimeterToInch:millis.
     shown ifTrue:[
-	self redraw
+        self redraw
     ]
+
+    "Modified: 31.5.1996 / 19:39:32 / cg"
 !
 
 scale:aFactor
@@ -369,5 +371,5 @@
 !Ruler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/Ruler.st,v 1.24 1996-05-31 17:23:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/Ruler.st,v 1.25 1996-05-31 18:08:04 cg Exp $'
 ! !
--- a/VRuler.st	Fri May 31 19:23:26 1996 +0200
+++ b/VRuler.st	Fri May 31 20:08:14 1996 +0200
@@ -54,10 +54,12 @@
 paperHeightMM:millis
     "set the width of the document"
 
-    paperHeight := self millimeterToInch:millis.
+    paperHeight := UnitConverter millimeterToInch:millis.
     shown ifTrue:[
-	self redraw
+        self redraw
     ]
+
+    "Modified: 31.5.1996 / 19:39:46 / cg"
 ! !
 
 !VerticalRuler methodsFor:'initialization'!
@@ -192,5 +194,5 @@
 !VerticalRuler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/VRuler.st,v 1.8 1996-05-31 17:23:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/VRuler.st,v 1.9 1996-05-31 18:08:14 cg Exp $'
 ! !
--- a/VerticalRuler.st	Fri May 31 19:23:26 1996 +0200
+++ b/VerticalRuler.st	Fri May 31 20:08:14 1996 +0200
@@ -54,10 +54,12 @@
 paperHeightMM:millis
     "set the width of the document"
 
-    paperHeight := self millimeterToInch:millis.
+    paperHeight := UnitConverter millimeterToInch:millis.
     shown ifTrue:[
-	self redraw
+        self redraw
     ]
+
+    "Modified: 31.5.1996 / 19:39:46 / cg"
 ! !
 
 !VerticalRuler methodsFor:'initialization'!
@@ -192,5 +194,5 @@
 !VerticalRuler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/VerticalRuler.st,v 1.8 1996-05-31 17:23:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/VerticalRuler.st,v 1.9 1996-05-31 18:08:14 cg Exp $'
 ! !
hg/stx-libwidg2