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.
.
authorclaus
Wed, 03 May 1995 17:43:56 +0200
changeset 137 523edf3204e4
parent 136 60b5a58940be
child 138 3167663e38e7
.
Controll.st file | annotate | diff | comparison | revisions
Controller.st file | annotate | diff | comparison | revisions
Make.proto file | annotate | diff | comparison | revisions
SimpleView.st file | annotate | diff | comparison | revisions
WTrans.st file | annotate | diff | comparison | revisions
WindowingTransformation.st file | annotate | diff | comparison | revisions 
--- a/Controll.st	Wed May 03 02:38:14 1995 +0200
+++ b/Controll.st	Wed May 03 17:43:56 1995 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1992 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview/Attic/Controll.st,v 1.17 1995-05-03 00:01:32 claus Exp $
+$Header: /cvs/stx/stx/libview/Attic/Controll.st,v 1.18 1995-05-03 15:42:33 claus Exp $
 '!
 
 !Controller class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview/Attic/Controll.st,v 1.17 1995-05-03 00:01:32 claus Exp $
+$Header: /cvs/stx/stx/libview/Attic/Controll.st,v 1.18 1995-05-03 15:42:33 claus Exp $
 "
 !
 
@@ -186,11 +186,11 @@
 
     "
      try ST-80 style menus first:
-     if there is a model, and a menuSymbol is defined,
+     if there is a model, and a menuMessage is defined,
      ask model for the menu and launch that if non-nil.
     "
     (menuHolder notNil 
-    and:[(sym := view menuSymbol) notNil
+    and:[(sym := view menuMessage) notNil
     and:[sym isSymbol]]) ifTrue:[
 	"
 	 ask model for the menu
--- a/Controller.st	Wed May 03 02:38:14 1995 +0200
+++ b/Controller.st	Wed May 03 17:43:56 1995 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1992 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview/Controller.st,v 1.17 1995-05-03 00:01:32 claus Exp $
+$Header: /cvs/stx/stx/libview/Controller.st,v 1.18 1995-05-03 15:42:33 claus Exp $
 '!
 
 !Controller class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview/Controller.st,v 1.17 1995-05-03 00:01:32 claus Exp $
+$Header: /cvs/stx/stx/libview/Controller.st,v 1.18 1995-05-03 15:42:33 claus Exp $
 "
 !
 
@@ -186,11 +186,11 @@
 
     "
      try ST-80 style menus first:
-     if there is a model, and a menuSymbol is defined,
+     if there is a model, and a menuMessage is defined,
      ask model for the menu and launch that if non-nil.
     "
     (menuHolder notNil 
-    and:[(sym := view menuSymbol) notNil
+    and:[(sym := view menuMessage) notNil
     and:[sym isSymbol]]) ifTrue:[
 	"
 	 ask model for the menu
--- a/Make.proto	Wed May 03 02:38:14 1995 +0200
+++ b/Make.proto	Wed May 03 17:43:56 1995 +0200
@@ -1,4 +1,4 @@
-# $Header: /cvs/stx/stx/libview/Make.proto,v 1.26 1995-05-03 00:27:48 claus Exp $
+# $Header: /cvs/stx/stx/libview/Make.proto,v 1.27 1995-05-03 15:43:56 claus Exp $
 #
 # -------------- no need to change anything below ----------
 
@@ -20,12 +20,12 @@
 # although all files are compiled here,
 # not everything goes into the target library
 #
-# OBJFILES=`ls *.o                                        \
-# 	    | grep -v $(WORKSTAT1)                      \
-# 	    | grep -v $(WORKSTAT2)                      \
-# 	    | grep -v $(SMALLLIBNAME)                   \
-# 	    | grep -v libviewInit.o`
-OBJFILES=$(OBJS)
+OBJFILES=`ls *.o                                        \
+	    | grep -v $(WORKSTAT1)                      \
+	    | grep -v $(WORKSTAT2)                      \
+	    | grep -v $(SMALLLIBNAME)                   \
+	    | grep -v libviewInit.o`
+# OBJFILES=$(OBJS)
 
 SMALLOBJFILES="DevWorkst.$(O) Image.$(O) Depth*Image.$(O) ImageRdr.$(O)"
 
@@ -60,6 +60,7 @@
 	    ImageRdr.$(O)
 
 OBJS= \
+	  $(NOTINLIBOBJS)                       \
 	  $(REQUIREDOBJS)                       \
 	    Workstat.$(O)                       \
 	    Color.$(O)                          \
--- a/SimpleView.st	Wed May 03 02:38:14 1995 +0200
+++ b/SimpleView.st	Wed May 03 17:43:56 1995 +0200
@@ -34,7 +34,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.2 1995-05-03 00:38:14 claus Exp $
+$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.3 1995-05-03 15:43:19 claus Exp $
 '!
 
 !SimpleView class methodsFor:'documentation'!
@@ -55,7 +55,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.2 1995-05-03 00:38:14 claus Exp $
+$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.3 1995-05-03 15:43:19 claus Exp $
 "
 !
 
@@ -4049,10 +4049,21 @@
     ^ true
 !
 
+canHandle:aKey from:aView
+    "return true, if I like to handle the key (from a keyPress event)
+     in aView.
+     OBSOLETE: do not use & depend on this method, it is a historic
+     leftOver and will be removed. Use the delegation mechanism for this."
+
+    ^ self canHandle:aKey
+!
+
 canHandle:aKey
-    "return true, if I like to handle the key (keyPress event)"
-
-    ^ true
+    "return true, if I like to handle the key (from a keyPress event).
+     OBSOLETE: do not use & depend on this method, it is a historic
+     leftOver and will be removed. Use the delegation mechanism for this."
+
+    ^ false
 !
 
 buttonMotionEventPending
--- a/WTrans.st	Wed May 03 02:38:14 1995 +0200
+++ b/WTrans.st	Wed May 03 17:43:56 1995 +0200
@@ -23,7 +23,7 @@
 COPYRIGHT (c) 1992 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview/Attic/WTrans.st,v 1.8 1994-11-17 14:30:25 claus Exp $
+$Header: /cvs/stx/stx/libview/Attic/WTrans.st,v 1.9 1995-05-03 15:43:45 claus Exp $
 '!
 
 !WindowingTransformation class methodsFor:'documentation '!
@@ -44,7 +44,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview/Attic/WTrans.st,v 1.8 1994-11-17 14:30:25 claus Exp $
+$Header: /cvs/stx/stx/libview/Attic/WTrans.st,v 1.9 1995-05-03 15:43:45 claus Exp $
 "
 !
 
@@ -115,15 +115,6 @@
      'now, everything is shrunk by 2'.
      v displayLineFrom:10@10 to:30@30 
 
-
-     example (transforming Points, Rectangles etc.)
-
-
-      |p pNew|
-
-      p := 10@10.
-      pNew := (WindowingTransformation scale:2 translation:10) applyTo:p.
-      pNew
 "
 ! !
 
--- a/WindowingTransformation.st	Wed May 03 02:38:14 1995 +0200
+++ b/WindowingTransformation.st	Wed May 03 17:43:56 1995 +0200
@@ -23,7 +23,7 @@
 COPYRIGHT (c) 1992 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview/WindowingTransformation.st,v 1.8 1994-11-17 14:30:25 claus Exp $
+$Header: /cvs/stx/stx/libview/WindowingTransformation.st,v 1.9 1995-05-03 15:43:45 claus Exp $
 '!
 
 !WindowingTransformation class methodsFor:'documentation '!
@@ -44,7 +44,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview/WindowingTransformation.st,v 1.8 1994-11-17 14:30:25 claus Exp $
+$Header: /cvs/stx/stx/libview/WindowingTransformation.st,v 1.9 1995-05-03 15:43:45 claus Exp $
 "
 !
 
@@ -115,15 +115,6 @@
      'now, everything is shrunk by 2'.
      v displayLineFrom:10@10 to:30@30 
 
-
-     example (transforming Points, Rectangles etc.)
-
-
-      |p pNew|
-
-      p := 10@10.
-      pNew := (WindowingTransformation scale:2 translation:10) applyTo:p.
-      pNew
 "
 ! !
hg/stx-libview