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.
*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Thu, 10 Apr 2003 16:45:19 +0200
changeset 3847 288ab85676aa
parent 3846 8df3068ff6e4
child 3848 84597432b833
*** empty log message ***
ColorPalette.st file | annotate | diff | comparison | revisions
Colormap.st file | annotate | diff | comparison | revisions
FixedPalette.st file | annotate | diff | comparison | revisions
MappedPalette.st file | annotate | diff | comparison | revisions
MonoMappedPalette.st file | annotate | diff | comparison | revisions
abbrev.stc file | annotate | diff | comparison | revisions 
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/ColorPalette.st	Thu Apr 10 16:45:19 2003 +0200
@@ -0,0 +1,75 @@
+"
+ COPYRIGHT (c) 1997 by eXept Software AG / Claus Gittinger
+              All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+
+
+
+"{ Package: 'stx:libcompat' }"
+
+Colormap subclass:#ColorPalette
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Compatibility-ST80'
+!
+
+!ColorPalette class methodsFor:'documentation'!
+
+copyright
+"
+ COPYRIGHT (c) 1997 by eXept Software AG / Claus Gittinger
+              All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+
+
+!
+
+documentation
+"
+    ST-80 compatibility class.
+    This may be required when existing code has to be ported to ST/X;
+    however, it may not be complete and more protocol may be added in the future.
+    The code here was created when public domain code (Manchester) had to
+    be ported to ST/X and missing classes/methods were encountered, and code added
+    by reasoning 'what the original class could probably do there'.
+
+    This is currently not used by ST/X itself.
+
+    This is an additional goody class; therefore:
+
+    THIS SOFTWARE IS PROVIDED BY THE CONTRIBUTOR ``AS IS'' AND
+    ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+    IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+    ARE DISCLAIMED.  IN NO EVENT SHALL THE CONTRIBUTOR BE LIABLE
+    FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+    DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+    OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+    HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+    LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+    OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+    SUCH DAMAGE.
+"
+
+
+! !
+
+!ColorPalette class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libview/ColorPalette.st,v 1.1 2003-04-10 14:44:41 cg Exp $'
+! !
--- a/Colormap.st	Thu Apr 10 16:31:49 2003 +0200
+++ b/Colormap.st	Thu Apr 10 16:45:19 2003 +0200
@@ -43,6 +43,9 @@
     (i.e. individual components can be 0..255).
     This was done to avoid overhead due to allocation of many color instances.
 
+    Notice: Colormap is going to be obsoleted, and the functionality will
+    move to subclasses (MappedPalette etc.)
+
     [author:]
         Claus Gittinger
 
@@ -475,5 +478,5 @@
 !Colormap class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Colormap.st,v 1.33 2003-04-10 14:31:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Colormap.st,v 1.34 2003-04-10 14:45:19 cg Exp $'
 ! !
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/FixedPalette.st	Thu Apr 10 16:45:19 2003 +0200
@@ -0,0 +1,99 @@
+"
+ COPYRIGHT (c) 1997 by eXept Software AG / Claus Gittinger
+              All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+
+
+
+"{ Package: 'stx:libcompat' }"
+
+ColorPalette subclass:#FixedPalette
+	instanceVariableNames:'redShift redMask greenShift greenMask blueShift blueMask'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Compatibility-ST80'
+!
+
+!FixedPalette class methodsFor:'documentation'!
+
+copyright
+"
+ COPYRIGHT (c) 1997 by eXept Software AG / Claus Gittinger
+              All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+
+
+!
+
+documentation
+"
+    ST-80 compatibility class.
+    This may be required when existing code has to be ported to ST/X;
+    however, it may not be complete and more protocol may be added in the future.
+    The code here was created when public domain code (Manchester) had to
+    be ported to ST/X and missing classes/methods were encountered, and code added
+    by reasoning 'what the original class could probably do there'.
+
+    This is currently not used by ST/X itself.
+
+    This is an additional goody class; therefore:
+
+    THIS SOFTWARE IS PROVIDED BY THE CONTRIBUTOR ``AS IS'' AND
+    ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+    IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+    ARE DISCLAIMED.  IN NO EVENT SHALL THE CONTRIBUTOR BE LIABLE
+    FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+    DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+    OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+    HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+    LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+    OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+    SUCH DAMAGE.
+"
+
+
+! !
+
+!FixedPalette class methodsFor:'instance creation'!
+
+redShift:reds redMask:redm greenShift:grns greenMask:grnm blueShift:blus blueMask:blum
+    ^ self new 
+        redShift:reds redMask:redm 
+        greenShift:grns greenMask:grnm 
+        blueShift:blus blueMask:blum
+
+    "Created: 20.6.1997 / 16:15:15 / cg"
+! !
+
+!FixedPalette methodsFor:'accessing'!
+
+redShift:rs redMask:rm greenShift:gs greenMask:gm blueShift:bs blueMask:bm
+    redShift := rs.
+    redMask := rm.
+    greenShift := gs.
+    greenMask := gm.
+    blueShift := bs.
+    blueMask := bm
+
+    "Created: 20.6.1997 / 16:16:49 / cg"
+! !
+
+!FixedPalette class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libview/FixedPalette.st,v 1.1 2003-04-10 14:44:41 cg Exp $'
+! !
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/MappedPalette.st	Thu Apr 10 16:45:19 2003 +0200
@@ -0,0 +1,103 @@
+"
+ COPYRIGHT (c) 1997 by eXept Software AG / Claus Gittinger
+              All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+
+
+
+"{ Package: 'stx:libcompat' }"
+
+ColorPalette subclass:#MappedPalette
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Compatibility-ST80'
+!
+
+!MappedPalette class methodsFor:'documentation'!
+
+copyright
+"
+ COPYRIGHT (c) 1997 by eXept Software AG / Claus Gittinger
+              All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+
+
+!
+
+documentation
+"
+    ST-80 compatibility class.
+    This may be required when existing code has to be ported to ST/X;
+    however, it may not be complete and more protocol may be added in the future.
+    The code here was created when public domain code (Manchester) had to
+    be ported to ST/X and missing classes/methods were encountered, and code added
+    by reasoning 'what the original class could probably do there'.
+
+    This is currently not used by ST/X itself.
+
+    This is an additional goody class; therefore:
+
+    THIS SOFTWARE IS PROVIDED BY THE CONTRIBUTOR ``AS IS'' AND
+    ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+    IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+    ARE DISCLAIMED.  IN NO EVENT SHALL THE CONTRIBUTOR BE LIABLE
+    FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+    DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+    OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+    HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+    LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+    OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+    SUCH DAMAGE.
+"
+
+
+! !
+
+!MappedPalette class methodsFor:'instance creation'!
+
+blackWhite
+    "ST-80 compatibility"
+
+    ^ super fromColors:(Array with:(Color black) with:(Color white))
+
+    "Created: 7.10.1996 / 11:31:08 / cg"
+    "Modified: 14.2.1997 / 17:43:24 / cg"
+!
+
+monochromeDefault
+    "ST-80 compatibility"
+
+    ^ self whiteBlack
+
+    "Modified: 25.2.1997 / 18:57:34 / cg"
+!
+
+whiteBlack
+    "ST-80 compatibility"
+
+    ^ super fromColors:(Array with:(Color white) with:(Color black))
+
+    "Created: 7.10.1996 / 11:29:01 / cg"
+    "Modified: 14.2.1997 / 17:43:31 / cg"
+! !
+
+!MappedPalette class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libview/MappedPalette.st,v 1.1 2003-04-10 14:44:41 cg Exp $'
+! !
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/MonoMappedPalette.st	Thu Apr 10 16:45:19 2003 +0200
@@ -0,0 +1,78 @@
+"
+ COPYRIGHT (c) 1997 by eXept Software AG / Claus Gittinger
+              All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+
+
+
+
+"{ Package: 'stx:libcompat' }"
+
+MappedPalette subclass:#MonoMappedPalette
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Compatibility-ST80'
+!
+
+!MonoMappedPalette class methodsFor:'documentation'!
+
+copyright
+"
+ COPYRIGHT (c) 1997 by eXept Software AG / Claus Gittinger
+              All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+
+
+
+!
+
+documentation
+"
+    ST-80 compatibility class.
+    This may be required when existing code has to be ported to ST/X;
+    however, it may not be complete and more protocol may be added in the future.
+    The code here was created when public domain code (Manchester) had to
+    be ported to ST/X and missing classes/methods were encountered, and code added
+    by reasoning 'what the original class could probably do there'.
+
+    This is currently not used by ST/X itself.
+
+    This is an additional goody class; therefore:
+
+    THIS SOFTWARE IS PROVIDED BY THE CONTRIBUTOR ``AS IS'' AND
+    ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+    IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+    ARE DISCLAIMED.  IN NO EVENT SHALL THE CONTRIBUTOR BE LIABLE
+    FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+    DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+    OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+    HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+    LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+    OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+    SUCH DAMAGE.
+"
+
+
+
+! !
+
+!MonoMappedPalette class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libview/MonoMappedPalette.st,v 1.1 2003-04-10 14:44:41 cg Exp $'
+! !
--- a/abbrev.stc	Thu Apr 10 16:31:49 2003 +0200
+++ b/abbrev.stc	Thu Apr 10 16:45:19 2003 +0200
@@ -2,6 +2,7 @@
 BitmapFont BitmapFont stx:libview 'Graphics-Support'
 Border Border stx:libview 'Interface-Support'
 Color Color stx:libview 'Graphics-Support'
+ColorPalette ColorPalette stx:libview 'Compatibility-ST80'
 Colormap Colormap stx:libview 'Graphics-Images-Support'
 CompoundFont CompoundFont stx:libview 'Graphics-Support'
 Controller Controller stx:libview 'Interface-Support-Controllers'
@@ -20,6 +21,7 @@
 DisplayMedium DisplayMedium stx:libview 'Graphics-Support'
 DisplayRootView DisplayRootView stx:libview 'Views-Special'
 DisplaySurface DisplaySurface stx:libview 'Graphics-Support'
+FixedPalette FixedPalette stx:libview 'Compatibility-ST80'
 Font Font stx:libview 'Graphics-Support'
 FontDescription FontDescription stx:libview 'Graphics-Support'
 Form Form stx:libview 'Graphics-Display Objects'
@@ -34,7 +36,9 @@
 ImageReader ImageReader stx:libview 'Graphics-Images-Support'
 KeyboardForwarder KeyboardForwarder stx:libview 'Interface-Support'
 KeyboardMap KeyboardMap stx:libview 'Interface-Support'
+MappedPalette MappedPalette stx:libview 'Compatibility-ST80'
 ModalBox ModalBox stx:libview 'Views-Basic'
+MonoMappedPalette MonoMappedPalette stx:libview 'Compatibility-ST80'
 NeXTWorkstation NeXTWorkstation stx:libview 'Interface-Graphics'
 PopUpView PopUpView stx:libview 'Views-Basic'
 ResourcePack ResourcePack stx:libview 'Interface-Internationalization'
hg/stx-libview