.
--- a/View.st Fri May 12 20:01:16 1995 +0200
+++ b/View.st Fri May 12 20:10:19 1995 +0200
@@ -23,7 +23,7 @@
COPYRIGHT (c) 1995 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libview/View.st,v 1.42 1995-05-09 00:23:01 claus Exp $
+$Header: /cvs/stx/stx/libview/View.st,v 1.43 1995-05-12 18:09:12 claus Exp $
'!
!View class methodsFor:'documentation'!
@@ -44,7 +44,7 @@
version
"
-$Header: /cvs/stx/stx/libview/View.st,v 1.42 1995-05-09 00:23:01 claus Exp $
+$Header: /cvs/stx/stx/libview/View.st,v 1.43 1995-05-12 18:09:12 claus Exp $
"
!
@@ -306,7 +306,7 @@
it will send it to its model when something changes.
Alias for changeMessage: for ST-80 compatibility."
- changeMsg := changeSymbol
+ self changeMessage:changeSymbol
!
aspect:aspectSymbol
--- a/WEvent.st Fri May 12 20:01:16 1995 +0200
+++ b/WEvent.st Fri May 12 20:10:19 1995 +0200
@@ -21,7 +21,7 @@
COPYRIGHT (c) 1993 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libview/Attic/WEvent.st,v 1.16 1995-05-10 02:26:23 claus Exp $
+$Header: /cvs/stx/stx/libview/Attic/WEvent.st,v 1.17 1995-05-12 18:09:21 claus Exp $
'!
!WindowEvent class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
version
"
-$Header: /cvs/stx/stx/libview/Attic/WEvent.st,v 1.16 1995-05-10 02:26:23 claus Exp $
+$Header: /cvs/stx/stx/libview/Attic/WEvent.st,v 1.17 1995-05-12 18:09:21 claus Exp $
"
!
@@ -274,14 +274,12 @@
if there is a focusView, and its a keyboard event, pass it
to that view (or its controller, or its delegate).
In this case, a coordinate which is outside of
- the focusView (-1 @ -1) is passed as x/y coordinates.
+ the focusView (0 @ 0) is passed as x/y coordinates.
"
(focusView notNil
and:[isKeyEvent]) ifTrue:[
self sendEvent:type
- arguments:(Array with:(argArray at:1)
- with:-1
- with:-1)
+ arguments:(Array with:(argArray at:1) with:0 with:0)
view:focusView
withFocusOn:nil
delegate:doDelegate.
--- a/WindowEvent.st Fri May 12 20:01:16 1995 +0200
+++ b/WindowEvent.st Fri May 12 20:10:19 1995 +0200
@@ -21,7 +21,7 @@
COPYRIGHT (c) 1993 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libview/WindowEvent.st,v 1.16 1995-05-10 02:26:23 claus Exp $
+$Header: /cvs/stx/stx/libview/WindowEvent.st,v 1.17 1995-05-12 18:09:21 claus Exp $
'!
!WindowEvent class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
version
"
-$Header: /cvs/stx/stx/libview/WindowEvent.st,v 1.16 1995-05-10 02:26:23 claus Exp $
+$Header: /cvs/stx/stx/libview/WindowEvent.st,v 1.17 1995-05-12 18:09:21 claus Exp $
"
!
@@ -274,14 +274,12 @@
if there is a focusView, and its a keyboard event, pass it
to that view (or its controller, or its delegate).
In this case, a coordinate which is outside of
- the focusView (-1 @ -1) is passed as x/y coordinates.
+ the focusView (0 @ 0) is passed as x/y coordinates.
"
(focusView notNil
and:[isKeyEvent]) ifTrue:[
self sendEvent:type
- arguments:(Array with:(argArray at:1)
- with:-1
- with:-1)
+ arguments:(Array with:(argArray at:1) with:0 with:0)
view:focusView
withFocusOn:nil
delegate:doDelegate.
--- a/XWorkstat.st Fri May 12 20:01:16 1995 +0200
+++ b/XWorkstat.st Fri May 12 20:10:19 1995 +0200
@@ -34,7 +34,7 @@
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libview/Attic/XWorkstat.st,v 1.41 1995-05-03 00:27:22 claus Exp $
+$Header: /cvs/stx/stx/libview/Attic/XWorkstat.st,v 1.42 1995-05-12 18:09:36 claus Exp $
'!
!XWorkstation class methodsFor:'documentation'!
@@ -55,7 +55,7 @@
version
"
-$Header: /cvs/stx/stx/libview/Attic/XWorkstat.st,v 1.41 1995-05-03 00:27:22 claus Exp $
+$Header: /cvs/stx/stx/libview/Attic/XWorkstat.st,v 1.42 1995-05-12 18:09:36 claus Exp $
"
!
@@ -238,7 +238,7 @@
event->minor_code, event->minor_code, event->resourceid);
fprintf(stderr, "XWORKSTAT: x-error message is '%s'\n", lastErrorMsg);
- errorInterrupt();
+ __errorInterruptWithID(@symbol(DisplayError));
return 0;
}
--- a/XWorkstation.st Fri May 12 20:01:16 1995 +0200
+++ b/XWorkstation.st Fri May 12 20:10:19 1995 +0200
@@ -34,7 +34,7 @@
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.41 1995-05-03 00:27:22 claus Exp $
+$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.42 1995-05-12 18:09:36 claus Exp $
'!
!XWorkstation class methodsFor:'documentation'!
@@ -55,7 +55,7 @@
version
"
-$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.41 1995-05-03 00:27:22 claus Exp $
+$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.42 1995-05-12 18:09:36 claus Exp $
"
!
@@ -238,7 +238,7 @@
event->minor_code, event->minor_code, event->resourceid);
fprintf(stderr, "XWORKSTAT: x-error message is '%s'\n", lastErrorMsg);
- errorInterrupt();
+ __errorInterruptWithID(@symbol(DisplayError));
return 0;
}
--- a/styles/motif_light.style Fri May 12 20:01:16 1995 +0200
+++ b/styles/motif_light.style Fri May 12 20:10:19 1995 +0200
@@ -5,7 +5,7 @@
; use this (instead of motif) on VGA displays,
; where the colors are a bit darkish
;
-; $Header: /cvs/stx/stx/libview/styles/motif_light.style,v 1.2 1995-05-09 00:23:52 claus Exp $
+; $Header: /cvs/stx/stx/libview/styles/motif_light.style,v 1.3 1995-05-12 18:10:19 claus Exp $
;
#if Display hasGreyscales
@@ -24,8 +24,9 @@
labelForegroundColor Color black
-buttonActiveBackgroundColor Color grey:50
-buttonActiveForegroundColor Color black
+buttonActiveBackgroundColor Color grey:50
+buttonActiveForegroundColor Color black
+buttonDisabledForegroundColor Color grey:25
menuViewBackgroundColor Color grey:50
menuDisabledForegroundColor Color darkGrey