.
--- a/Plug.st Tue Jun 27 04:18:10 1995 +0200
+++ b/Plug.st Tue Jun 27 04:20:19 1995 +0200
@@ -11,7 +11,7 @@
version
"
-$Header: /cvs/stx/stx/libview2/Plug.st,v 1.2 1995-03-26 20:10:27 claus Exp $
+$Header: /cvs/stx/stx/libview2/Plug.st,v 1.3 1995-06-27 02:19:38 claus Exp $
"
!
@@ -51,11 +51,18 @@
block := simulatedProtocol at:aMessage selector ifAbsent:[].
block isNil ifTrue:[
- ^ super doesNotUnderstand:aMessage
+ ^ super doesNotUnderstand:aMessage
].
^ block valueWithArguments:(aMessage arguments)
! !
+!Plug methodsFor:'queries'!
+
+respondsTo:aSelector
+ (simulatedProtocol includesKey:aSelector) ifTrue:[^ true].
+ ^ super respondsTo:aSelector
+! !
+
!Plug methodsFor:'protocol definition'!
respondTo:aSelector with:aBlock
--- a/PlugAdptr.st Tue Jun 27 04:18:10 1995 +0200
+++ b/PlugAdptr.st Tue Jun 27 04:20:19 1995 +0200
@@ -35,7 +35,7 @@
version
"
-$Header: /cvs/stx/stx/libview2/Attic/PlugAdptr.st,v 1.3 1995-06-06 04:07:55 claus Exp $
+$Header: /cvs/stx/stx/libview2/Attic/PlugAdptr.st,v 1.4 1995-06-27 02:19:41 claus Exp $
"
!
@@ -46,8 +46,8 @@
PluggableAdaptor is the most general of the adaptor models -
any other adapter can be simulated. However, they incur certain
- overhead and complexity, so in many situations, an AspectAdaptor or
- is the better choice.
+ overhead and complexity.
+ Therefore, in many situations, an AspectAdaptor is the better choice.
"
!
@@ -132,7 +132,34 @@
- extract values from an array:
+ extract values from a point into different labels:
+
+ |p t l|
+
+ p := 10 @ 20.
+
+ t := HorizontalPanelView new.
+ t extent:200@50.
+ t horizontalLayout:#fitSpace.
+
+ l := Label in:t.
+ l model:((PluggableAdaptor on:p) getSelector:#x putSelector:#x:);
+ labelMessage:#value; aspect:#value;
+ level:-1;
+ sizeFixed:true.
+ l := Label in:t.
+ l model:((PluggableAdaptor on:p) getSelector:#y putSelector:#y:);
+ labelMessage:#value; aspect:#value;
+ level:-1;
+ sizeFixed:true.
+ t open.
+
+ (Delay forSeconds:5) wait.
+ p x:100.
+ p changed.
+
+
+ extract values from an array into different labels:
|a t l|
@@ -145,15 +172,18 @@
l := Label in:t.
l model:((PluggableAdaptor on:a) collectionIndex:1);
labelMessage:#value; aspect:#value;
- level:-1.
+ level:-1;
+ sizeFixed:true.
l := Label in:t.
l model:((PluggableAdaptor on:a) collectionIndex:2);
labelMessage:#value; aspect:#value;
- level:-1.
+ level:-1;
+ sizeFixed:true.
l := Label in:t.
l model:((PluggableAdaptor on:a) collectionIndex:3);
labelMessage:#value; aspect:#value;
- level:-1.
+ level:-1;
+ sizeFixed:true.
t open.
(Delay forSeconds:5) wait.
@@ -207,8 +237,9 @@
getBlock := [:model | model perform:getSelector].
putBlock := [:model :newValue | model perform:putSelector with:newValue].
updateBlock := [:model :aspect :parameter |
- aspect == getSelector
- or:[aspect == #value]
+ aspect isNil
+ or:[aspect == getSelector
+ or:[aspect == #value]]
]
!
@@ -219,7 +250,7 @@
getBlock := [:model | model at:idx].
putBlock := [:model :newValue | model at:idx put:newValue].
updateBlock := [:model :aspect :parameter |
- aspect == #value
+ aspect isNil or:[aspect == #value]
]
!
@@ -263,7 +294,8 @@
updateBlock notNil ifTrue:[
(updateBlock value:model value:something value:aParameter)
ifTrue:[
- self changed:#value
+ self notifyChange:#value
+"/ self changed:#value
]
]
].
--- a/PluggableAdaptor.st Tue Jun 27 04:18:10 1995 +0200
+++ b/PluggableAdaptor.st Tue Jun 27 04:20:19 1995 +0200
@@ -35,7 +35,7 @@
version
"
-$Header: /cvs/stx/stx/libview2/PluggableAdaptor.st,v 1.3 1995-06-06 04:07:55 claus Exp $
+$Header: /cvs/stx/stx/libview2/PluggableAdaptor.st,v 1.4 1995-06-27 02:19:41 claus Exp $
"
!
@@ -46,8 +46,8 @@
PluggableAdaptor is the most general of the adaptor models -
any other adapter can be simulated. However, they incur certain
- overhead and complexity, so in many situations, an AspectAdaptor or
- is the better choice.
+ overhead and complexity.
+ Therefore, in many situations, an AspectAdaptor is the better choice.
"
!
@@ -132,7 +132,34 @@
- extract values from an array:
+ extract values from a point into different labels:
+
+ |p t l|
+
+ p := 10 @ 20.
+
+ t := HorizontalPanelView new.
+ t extent:200@50.
+ t horizontalLayout:#fitSpace.
+
+ l := Label in:t.
+ l model:((PluggableAdaptor on:p) getSelector:#x putSelector:#x:);
+ labelMessage:#value; aspect:#value;
+ level:-1;
+ sizeFixed:true.
+ l := Label in:t.
+ l model:((PluggableAdaptor on:p) getSelector:#y putSelector:#y:);
+ labelMessage:#value; aspect:#value;
+ level:-1;
+ sizeFixed:true.
+ t open.
+
+ (Delay forSeconds:5) wait.
+ p x:100.
+ p changed.
+
+
+ extract values from an array into different labels:
|a t l|
@@ -145,15 +172,18 @@
l := Label in:t.
l model:((PluggableAdaptor on:a) collectionIndex:1);
labelMessage:#value; aspect:#value;
- level:-1.
+ level:-1;
+ sizeFixed:true.
l := Label in:t.
l model:((PluggableAdaptor on:a) collectionIndex:2);
labelMessage:#value; aspect:#value;
- level:-1.
+ level:-1;
+ sizeFixed:true.
l := Label in:t.
l model:((PluggableAdaptor on:a) collectionIndex:3);
labelMessage:#value; aspect:#value;
- level:-1.
+ level:-1;
+ sizeFixed:true.
t open.
(Delay forSeconds:5) wait.
@@ -207,8 +237,9 @@
getBlock := [:model | model perform:getSelector].
putBlock := [:model :newValue | model perform:putSelector with:newValue].
updateBlock := [:model :aspect :parameter |
- aspect == getSelector
- or:[aspect == #value]
+ aspect isNil
+ or:[aspect == getSelector
+ or:[aspect == #value]]
]
!
@@ -219,7 +250,7 @@
getBlock := [:model | model at:idx].
putBlock := [:model :newValue | model at:idx put:newValue].
updateBlock := [:model :aspect :parameter |
- aspect == #value
+ aspect isNil or:[aspect == #value]
]
!
@@ -263,7 +294,8 @@
updateBlock notNil ifTrue:[
(updateBlock value:model value:something value:aParameter)
ifTrue:[
- self changed:#value
+ self notifyChange:#value
+"/ self changed:#value
]
]
].
--- a/TIFFRdr.st Tue Jun 27 04:18:10 1995 +0200
+++ b/TIFFRdr.st Tue Jun 27 04:20:19 1995 +0200
@@ -27,7 +27,7 @@
COPYRIGHT (c) 1991 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libview2/Attic/TIFFRdr.st,v 1.19 1995-06-06 04:09:00 claus Exp $
+$Header: /cvs/stx/stx/libview2/Attic/TIFFRdr.st,v 1.20 1995-06-27 02:20:19 claus Exp $
'!
!TIFFReader class methodsFor:'documentation'!
@@ -48,7 +48,7 @@
version
"
-$Header: /cvs/stx/stx/libview2/Attic/TIFFRdr.st,v 1.19 1995-06-06 04:09:00 claus Exp $
+$Header: /cvs/stx/stx/libview2/Attic/TIFFRdr.st,v 1.20 1995-06-27 02:20:19 claus Exp $
"
!
@@ -368,7 +368,7 @@
n := nLongs.
msb := byteOrder ~~ #lsb.
- values := Array new:n.
+ values := Array basicNew:n.
(n == 1) ifTrue:[
values at:1 put:(inStream nextLongMSB:msb).
] ifFalse:[
@@ -392,7 +392,7 @@
n := nShorts.
msb := (byteOrder ~~ #lsb).
- values := Array new:n.
+ values := Array basicNew:n.
(n <= 2) ifTrue:[
values at:1 put:(inStream nextUnsignedShortMSB:msb).
val2 := inStream nextUnsignedShortMSB:msb.
@@ -439,7 +439,7 @@
n := nFracts.
msb := byteOrder ~~ #lsb.
- values := Array new:n.
+ values := Array basicNew:n.
offset := inStream nextLongMSB:msb.
oldPos := inStream position.
inStream position:(offset + 1).
@@ -1029,9 +1029,9 @@
outStream nextPutBytes:nBytes from:data.
rowsPerStrip := height
] ifFalse:[
- stripOffsets := Array new:height.
+ stripOffsets := Array basicNew:height.
bytesPerRow := nBytes // height.
- stripByteCounts := Array new:height withAll:bytesPerRow.
+ stripByteCounts := Array basicNew:height withAll:bytesPerRow.
offs := 1.
h := height.
--- a/TIFFReader.st Tue Jun 27 04:18:10 1995 +0200
+++ b/TIFFReader.st Tue Jun 27 04:20:19 1995 +0200
@@ -27,7 +27,7 @@
COPYRIGHT (c) 1991 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libview2/TIFFReader.st,v 1.19 1995-06-06 04:09:00 claus Exp $
+$Header: /cvs/stx/stx/libview2/TIFFReader.st,v 1.20 1995-06-27 02:20:19 claus Exp $
'!
!TIFFReader class methodsFor:'documentation'!
@@ -48,7 +48,7 @@
version
"
-$Header: /cvs/stx/stx/libview2/TIFFReader.st,v 1.19 1995-06-06 04:09:00 claus Exp $
+$Header: /cvs/stx/stx/libview2/TIFFReader.st,v 1.20 1995-06-27 02:20:19 claus Exp $
"
!
@@ -368,7 +368,7 @@
n := nLongs.
msb := byteOrder ~~ #lsb.
- values := Array new:n.
+ values := Array basicNew:n.
(n == 1) ifTrue:[
values at:1 put:(inStream nextLongMSB:msb).
] ifFalse:[
@@ -392,7 +392,7 @@
n := nShorts.
msb := (byteOrder ~~ #lsb).
- values := Array new:n.
+ values := Array basicNew:n.
(n <= 2) ifTrue:[
values at:1 put:(inStream nextUnsignedShortMSB:msb).
val2 := inStream nextUnsignedShortMSB:msb.
@@ -439,7 +439,7 @@
n := nFracts.
msb := byteOrder ~~ #lsb.
- values := Array new:n.
+ values := Array basicNew:n.
offset := inStream nextLongMSB:msb.
oldPos := inStream position.
inStream position:(offset + 1).
@@ -1029,9 +1029,9 @@
outStream nextPutBytes:nBytes from:data.
rowsPerStrip := height
] ifFalse:[
- stripOffsets := Array new:height.
+ stripOffsets := Array basicNew:height.
bytesPerRow := nBytes // height.
- stripByteCounts := Array new:height withAll:bytesPerRow.
+ stripByteCounts := Array basicNew:height withAll:bytesPerRow.
offs := 1.
h := height.