--- a/Controll.st Thu Feb 16 04:07:02 1995 +0100
+++ b/Controll.st Thu Feb 16 17:29:36 1995 +0100
@@ -21,7 +21,7 @@
COPYRIGHT (c) 1992 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libview/Attic/Controll.st,v 1.10 1995-02-07 15:30:29 claus Exp $
+$Header: /cvs/stx/stx/libview/Attic/Controll.st,v 1.11 1995-02-16 16:29:32 claus Exp $
'!
!Controller class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
version
"
-$Header: /cvs/stx/stx/libview/Attic/Controll.st,v 1.10 1995-02-07 15:30:29 claus Exp $
+$Header: /cvs/stx/stx/libview/Attic/Controll.st,v 1.11 1995-02-16 16:29:32 claus Exp $
"
!
@@ -98,6 +98,14 @@
model := nil
! !
+!Controller methodsFor:'ST-80 compatibility'!
+
+open
+ "open my view"
+
+ view open
+! !
+
!Controller methodsFor:'accessing'!
view:aView
--- a/Controller.st Thu Feb 16 04:07:02 1995 +0100
+++ b/Controller.st Thu Feb 16 17:29:36 1995 +0100
@@ -21,7 +21,7 @@
COPYRIGHT (c) 1992 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libview/Controller.st,v 1.10 1995-02-07 15:30:29 claus Exp $
+$Header: /cvs/stx/stx/libview/Controller.st,v 1.11 1995-02-16 16:29:32 claus Exp $
'!
!Controller class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
version
"
-$Header: /cvs/stx/stx/libview/Controller.st,v 1.10 1995-02-07 15:30:29 claus Exp $
+$Header: /cvs/stx/stx/libview/Controller.st,v 1.11 1995-02-16 16:29:32 claus Exp $
"
!
@@ -98,6 +98,14 @@
model := nil
! !
+!Controller methodsFor:'ST-80 compatibility'!
+
+open
+ "open my view"
+
+ view open
+! !
+
!Controller methodsFor:'accessing'!
view:aView
--- a/Font.st Thu Feb 16 04:07:02 1995 +0100
+++ b/Font.st Thu Feb 16 17:29:36 1995 +0100
@@ -24,7 +24,7 @@
COPYRIGHT (c) 1992 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libview/Font.st,v 1.13 1995-02-06 00:36:10 claus Exp $
+$Header: /cvs/stx/stx/libview/Font.st,v 1.14 1995-02-16 16:29:34 claus Exp $
'!
!Font class methodsFor:'documentation'!
@@ -45,7 +45,7 @@
version
"
-$Header: /cvs/stx/stx/libview/Font.st,v 1.13 1995-02-06 00:36:10 claus Exp $
+$Header: /cvs/stx/stx/libview/Font.st,v 1.14 1995-02-16 16:29:34 claus Exp $
"
!
@@ -432,7 +432,7 @@
"two fonts are considered equal, if the font-name components are;
independent of the device, the font is on"
- (aFont isKindOf:Font) ifTrue:[
+ (aFont species == self species) ifTrue:[
(size == aFont size) ifTrue:[
(family = aFont family) ifTrue:[
(face = aFont face) ifTrue:[
--- a/Form.st Thu Feb 16 04:07:02 1995 +0100
+++ b/Form.st Thu Feb 16 17:29:36 1995 +0100
@@ -26,7 +26,7 @@
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libview/Form.st,v 1.16 1995-02-16 03:06:40 claus Exp $
+$Header: /cvs/stx/stx/libview/Form.st,v 1.17 1995-02-16 16:29:36 claus Exp $
'!
!Form class methodsFor:'documentation'!
@@ -47,7 +47,7 @@
version
"
-$Header: /cvs/stx/stx/libview/Form.st,v 1.16 1995-02-16 03:06:40 claus Exp $
+$Header: /cvs/stx/stx/libview/Form.st,v 1.17 1995-02-16 16:29:36 claus Exp $
"
!
@@ -1794,6 +1794,22 @@
^ fileName
! !
+!Form methodsFor:'queries '!
+
+isForm
+ "return true, if the receiver is some kind of form;
+ true is returned here - the method is redefined from Object."
+
+ ^ true
+!
+
+isImageOrForm
+ "return true, if the receiver is some kind of image or form;
+ true is returned here - the method is redefined from Object."
+
+ ^ true
+! !
+
!Form methodsFor:'image manipulations'!
lightened