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.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Fri, 10 Sep 1999 18:16:27 +0200
changeset 2896 cad683a945dc
parent 2895 a375a8be805e
child 2897 ef29d61be9b0
checkin from browser
DevWorkst.st file | annotate | diff | comparison | revisions
DeviceWorkstation.st file | annotate | diff | comparison | revisions
XWorkstat.st file | annotate | diff | comparison | revisions
XWorkstation.st file | annotate | diff | comparison | revisions 
--- a/DevWorkst.st	Fri Sep 10 10:30:01 1999 +0200
+++ b/DevWorkst.st	Fri Sep 10 18:16:27 1999 +0200
@@ -2291,6 +2291,9 @@
 !DeviceWorkstation methodsFor:'bitmap/window creation'!
 
 createBitmapFromArray:anArray width:w height:h
+    "create a monochrome, depth1 bitmap from a given (byte-)array.
+     The rows are aligned to a multiple of 8"
+
     ^ self subclassResponsibility
 !
 
@@ -6605,6 +6608,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/DevWorkst.st,v 1.331 1999-09-08 21:14:54 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/DevWorkst.st,v 1.332 1999-09-10 16:16:05 cg Exp $'
 ! !
 DeviceWorkstation initialize!
--- a/DeviceWorkstation.st	Fri Sep 10 10:30:01 1999 +0200
+++ b/DeviceWorkstation.st	Fri Sep 10 18:16:27 1999 +0200
@@ -2291,6 +2291,9 @@
 !DeviceWorkstation methodsFor:'bitmap/window creation'!
 
 createBitmapFromArray:anArray width:w height:h
+    "create a monochrome, depth1 bitmap from a given (byte-)array.
+     The rows are aligned to a multiple of 8"
+
     ^ self subclassResponsibility
 !
 
@@ -6605,6 +6608,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.331 1999-09-08 21:14:54 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.332 1999-09-10 16:16:05 cg Exp $'
 ! !
 DeviceWorkstation initialize!
--- a/XWorkstat.st	Fri Sep 10 10:30:01 1999 +0200
+++ b/XWorkstat.st	Fri Sep 10 18:16:27 1999 +0200
@@ -1237,11 +1237,14 @@
 !XWorkstation methodsFor:'bitmap/window creation'!
 
 createBitmapFromArray:anArray width:w height:h
+    "create a monochrome, depth1 bitmap from a given (byte-)array.
+     The rows are aligned to a multiple of 8"
+
     |bitmapId|
 
     bitmapId := self primCreateBitmapFromArray:anArray width:w height:h.
     bitmapId isNil ifTrue:[
-	self primitiveFailed
+        self primitiveFailed
     ].
     ^ bitmapId
 !
@@ -10181,6 +10184,6 @@
 !XWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/XWorkstat.st,v 1.324 1999-08-28 20:18:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/XWorkstat.st,v 1.325 1999-09-10 16:16:27 cg Exp $'
 ! !
 XWorkstation initialize!
--- a/XWorkstation.st	Fri Sep 10 10:30:01 1999 +0200
+++ b/XWorkstation.st	Fri Sep 10 18:16:27 1999 +0200
@@ -1237,11 +1237,14 @@
 !XWorkstation methodsFor:'bitmap/window creation'!
 
 createBitmapFromArray:anArray width:w height:h
+    "create a monochrome, depth1 bitmap from a given (byte-)array.
+     The rows are aligned to a multiple of 8"
+
     |bitmapId|
 
     bitmapId := self primCreateBitmapFromArray:anArray width:w height:h.
     bitmapId isNil ifTrue:[
-	self primitiveFailed
+        self primitiveFailed
     ].
     ^ bitmapId
 !
@@ -10181,6 +10184,6 @@
 !XWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.324 1999-08-28 20:18:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.325 1999-09-10 16:16:27 cg Exp $'
 ! !
 XWorkstation initialize!
hg/stx-libview