.
--- a/CodeView.st Sun May 07 02:16:56 1995 +0200
+++ b/CodeView.st Sun May 07 03:58:55 1995 +0200
@@ -21,7 +21,7 @@
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libwidg/CodeView.st,v 1.15 1995-05-06 14:16:30 claus Exp $
+$Header: /cvs/stx/stx/libwidg/CodeView.st,v 1.16 1995-05-07 01:58:01 claus Exp $
'!
!CodeView class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
version
"
-$Header: /cvs/stx/stx/libwidg/CodeView.st,v 1.15 1995-05-06 14:16:30 claus Exp $
+$Header: /cvs/stx/stx/libwidg/CodeView.st,v 1.16 1995-05-07 01:58:01 claus Exp $
"
!
@@ -58,6 +58,13 @@
If used with a model, accept sends the changeMsg to it.
(however, it is possible to define moth changeMsg and acceptAction)
+
+
+ Caveat:
+ in this version, CodeView does not yet support MVC setups for doIt
+ and explain.
+ If required, simulate this by setting the doItAction and
+ explainAction, to notify the model manually about whats going on.
"
! !
--- a/ETxtView.st Sun May 07 02:16:56 1995 +0200
+++ b/ETxtView.st Sun May 07 03:58:55 1995 +0200
@@ -28,7 +28,7 @@
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libwidg/Attic/ETxtView.st,v 1.25 1995-05-06 14:16:48 claus Exp $
+$Header: /cvs/stx/stx/libwidg/Attic/ETxtView.st,v 1.26 1995-05-07 01:58:10 claus Exp $
'!
!EditTextView class methodsFor:'documentation'!
@@ -49,7 +49,7 @@
version
"
-$Header: /cvs/stx/stx/libwidg/Attic/ETxtView.st,v 1.25 1995-05-06 14:16:48 claus Exp $
+$Header: /cvs/stx/stx/libwidg/Attic/ETxtView.st,v 1.26 1995-05-07 01:58:10 claus Exp $
"
!
@@ -2279,6 +2279,17 @@
!EditTextView methodsFor:'menu actions'!
+accept
+ "accept the contents"
+
+ |value|
+
+ value := self contents.
+
+ "model-view behavior"
+ self sendChangeMessageWith:value.
+!
+
paste:someText
"paste someText at cursor"
--- a/EditTextView.st Sun May 07 02:16:56 1995 +0200
+++ b/EditTextView.st Sun May 07 03:58:55 1995 +0200
@@ -28,7 +28,7 @@
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.25 1995-05-06 14:16:48 claus Exp $
+$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.26 1995-05-07 01:58:10 claus Exp $
'!
!EditTextView class methodsFor:'documentation'!
@@ -49,7 +49,7 @@
version
"
-$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.25 1995-05-06 14:16:48 claus Exp $
+$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.26 1995-05-07 01:58:10 claus Exp $
"
!
@@ -2279,6 +2279,17 @@
!EditTextView methodsFor:'menu actions'!
+accept
+ "accept the contents"
+
+ |value|
+
+ value := self contents.
+
+ "model-view behavior"
+ self sendChangeMessageWith:value.
+!
+
paste:someText
"paste someText at cursor"
--- a/Workspace.st Sun May 07 02:16:56 1995 +0200
+++ b/Workspace.st Sun May 07 03:58:55 1995 +0200
@@ -23,7 +23,7 @@
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.20 1995-05-06 14:18:13 claus Exp $
+$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.21 1995-05-07 01:58:55 claus Exp $
'!
!Workspace class methodsFor:'documentation'!
@@ -44,7 +44,7 @@
version
"
-$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.20 1995-05-06 14:18:13 claus Exp $
+$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.21 1995-05-07 01:58:55 claus Exp $
"
!
@@ -62,9 +62,17 @@
selection as a smalltalk expression. (but, a lisp or prolog
view could define its own action ...)
+
+ Caveat:
+ in this version, Workspace does not yet support doIt in MVC setups.
+ For now, simulate this by setting the doItAction, to notify the
+ model manually about the doIt.
+
+
instance variables:
doItAction <Block> block to evaluate for doIt
+
codeStartPosition temporary
errorFgColor <Color> fg-Color to be used when highlighting errors
@@ -75,9 +83,9 @@
styleSheet values:
codeErrorSelectionForegroundColor fg color to highlight errors
- (default: selection fg)
+ (default: selection fg)
codeErrorSelectionBackgroundColor bg color to highlight errors
- (default: selection bg)
+ (default: selection bg)
"
! !