Mercurial Mercurial > hg > stx-libview / 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.
on: -> onDevice:
authorClaus Gittinger <cg@exept.de>
Sat, 18 Jan 1997 19:08:55 +0100
changeset 1255 bdf4cbcae668
parent 1254 6bb4afe072f1
child 1256 4a633daff594
on: -> onDevice:
DevGC.st file | annotate | diff | comparison | revisions
DeviceGraphicsContext.st file | annotate | diff | comparison | revisions
Form.st file | annotate | diff | comparison | revisions 
--- a/DevGC.st	Sat Jan 18 18:22:06 1997 +0100
+++ b/DevGC.st	Sat Jan 18 19:08:55 1997 +0100
@@ -99,7 +99,10 @@
 on:aDevice
     "create a new drawable on aDevice"
 
+    self obsoleteMethodWarning:'use #onDevice:'.
     ^ self onDevice:aDevice
+
+    "Modified: 18.1.1997 / 18:25:00 / cg"
 !
 
 onDevice:aDevice
@@ -3498,6 +3501,6 @@
 !DeviceGraphicsContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/DevGC.st,v 1.28 1997-01-18 16:24:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/DevGC.st,v 1.29 1997-01-18 18:08:05 cg Exp $'
 ! !
 DeviceGraphicsContext initialize!
--- a/DeviceGraphicsContext.st	Sat Jan 18 18:22:06 1997 +0100
+++ b/DeviceGraphicsContext.st	Sat Jan 18 19:08:55 1997 +0100
@@ -99,7 +99,10 @@
 on:aDevice
     "create a new drawable on aDevice"
 
+    self obsoleteMethodWarning:'use #onDevice:'.
     ^ self onDevice:aDevice
+
+    "Modified: 18.1.1997 / 18:25:00 / cg"
 !
 
 onDevice:aDevice
@@ -3498,6 +3501,6 @@
 !DeviceGraphicsContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceGraphicsContext.st,v 1.28 1997-01-18 16:24:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceGraphicsContext.st,v 1.29 1997-01-18 18:08:05 cg Exp $'
 ! !
 DeviceGraphicsContext initialize!
--- a/Form.st	Sat Jan 18 18:22:06 1997 +0100
+++ b/Form.st	Sat Jan 18 19:08:55 1997 +0100
@@ -194,7 +194,9 @@
 width:w height:h depth:d on:aDevice
     "create a new form with depth d on device, aDevice"
 
-    ^ (self on:aDevice) width:w height:h depth:d
+    ^ (self onDevice:aDevice) width:w height:h depth:d
+
+    "Modified: 18.1.1997 / 18:26:03 / cg"
 !
 
 width:w height:h fromArray:anArray
@@ -209,19 +211,25 @@
     "create a new form on device, aDevice and
      initialize the pixels from anArray"
 
-    ^ (self on:aDevice) width:w height:h fromArray:anArray
+    ^ (self onDevice:aDevice) width:w height:h fromArray:anArray
+
+    "Modified: 18.1.1997 / 18:26:24 / cg"
 !
 
 width:w height:h offset:offs fromArray:anArray
     "create a new form on the default device"
 
-    ^ (self on:Screen current) width:w height:h offset:offs fromArray:anArray
+    ^ (self onDevice:Screen current) width:w height:h offset:offs fromArray:anArray
+
+    "Modified: 18.1.1997 / 18:26:28 / cg"
 !
 
 width:w height:h on:aDevice
     "create a new form on device, aDevice; depth is what device likes most"
 
-    ^ (self on:aDevice) width:w height:h
+    ^ (self onDevice:aDevice) width:w height:h
+
+    "Modified: 18.1.1997 / 18:26:31 / cg"
 ! !
 
 !Form class methodsFor:'ST-80 compatibility'!
@@ -1673,6 +1681,6 @@
 !Form class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Form.st,v 1.67 1997-01-13 22:06:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Form.st,v 1.68 1997-01-18 18:08:55 cg Exp $'
 ! !
 Form initialize!
hg/stx-libview