.
--- a/SimpleView.st Thu Aug 24 22:39:36 1995 +0200
+++ b/SimpleView.st Sun Aug 27 02:33:33 1995 +0200
@@ -44,7 +44,7 @@
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.14 1995-08-08 01:24:37 claus Exp $
+$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.15 1995-08-27 00:32:10 claus Exp $
'!
!SimpleView class methodsFor:'documentation'!
@@ -65,7 +65,7 @@
version
"
-$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.14 1995-08-08 01:24:37 claus Exp $
+$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.15 1995-08-27 00:32:10 claus Exp $
"
!
@@ -2990,15 +2990,15 @@
!
left
- "return the x position of the left border"
+ "return the x position of the left border (in pixels)"
^ left
!
corner
- "return the lower right corner-point"
-
- ^ (left + width - 1) @ (top + height - 1)
+ "return the lower right corner-point (in pixels)"
+
+ ^ (left + width "- 1") @ (top + height "- 1")
!
bottomInset
@@ -3022,15 +3022,15 @@
!
right
- "return the x position of the right border"
-
- ^ left + width - 1
+ "return the x position of the right edge (in pixels)"
+
+ ^ left + width "- 1"
!
bottom
- "return the y position of the actual bottom border (in pixels)"
-
- ^ top + height - 1
+ "return the y position of the actual bottom edge (in pixels)"
+
+ ^ top + height "- 1"
!
relativeExtent
@@ -4236,8 +4236,8 @@
^ nil "/ Controller
!
-initStyle
- "this method sets up all style dependent things"
+initStyleSheet
+ "this method gets the styleSheet"
"
when coming here the first time, we read the styleSheet
@@ -4247,8 +4247,13 @@
self class updateStyleCache
].
-"/ style := DefaultStyle.
styleSheet := StyleSheet.
+!
+
+initStyle
+ "this method sets up all style dependent things"
+
+ self initStyleSheet.
borderWidth := DefaultBorderWidth.
borderWidth isNil ifTrue:[borderWidth := 1].
--- a/resources/AppModel.rs Thu Aug 24 22:39:36 1995 +0200
+++ b/resources/AppModel.rs Sun Aug 27 02:33:33 1995 +0200
@@ -6,7 +6,7 @@
; for convenience and to avoid having them dublicated
; in every subclass.
;
-; $Header: /cvs/stx/stx/libview/resources/Attic/AppModel.rs,v 1.1 1995-03-31 03:05:20 claus Exp $
+; $Header: /cvs/stx/stx/libview/resources/Attic/AppModel.rs,v 1.2 1995-08-27 00:33:33 claus Exp $
;
; this file may contain 8bit national characters;
; DONT EDIT this file with an old vi !
@@ -18,6 +18,7 @@
; ok 'ok'
abort 'abbrechen'
cancel 'abbrechen'
+continue 'fortfahren'
#endif
@@ -28,6 +29,7 @@
ok 'd''accord'
abort 'canceler'
cancel 'canceler'
+continue 'continuer'
#endif
@@ -35,6 +37,6 @@
#endif
#if (Language == #italian)
+yes 'si'
+no 'non'
#endif
-
-
--- a/styles/generic.style Thu Aug 24 22:39:36 1995 +0200
+++ b/styles/generic.style Sun Aug 27 02:33:33 1995 +0200
@@ -26,7 +26,7 @@
; all of them for new styles.
;
;
-; $Header: /cvs/stx/stx/libview/styles/generic.style,v 1.6 1995-07-23 02:29:55 claus Exp $
+; $Header: /cvs/stx/stx/libview/styles/generic.style,v 1.7 1995-08-27 00:32:55 claus Exp $
;
; agenda:
@@ -398,3 +398,13 @@
; yes/no requests
;
requestBoxIcon (Image fromFile:'bitmaps/Request.xbm')
+
+
+htmlBackgroundColor Color grey:80
+htmlAnchorForegroundColor Color blue darkened
+htmlActiveAnchorForegroundColor Color red
+htmlActiveAnchorBackgroundColor =htmlBackgroundColor
+htmlVisitedAnchorForegroundColor Color red:30 green:0 blue:80
+htmlExampleAnchorForegroundColor Color red:40 green:0 blue:0
+htmlAnchorUnderlines false
+
--- a/styles/mswindows3.style Thu Aug 24 22:39:36 1995 +0200
+++ b/styles/mswindows3.style Sun Aug 27 02:33:33 1995 +0200
@@ -1,6 +1,6 @@
; View defaultStyle:#win95
;
-; $Header: /cvs/stx/stx/libview/styles/mswindows3.style,v 1.1 1995-06-27 02:21:27 claus Exp $
+; $Header: /cvs/stx/stx/libview/styles/mswindows3.style,v 1.2 1995-08-27 00:33:16 claus Exp $
comment 'new win lookalike - unfinished'
@@ -37,6 +37,8 @@
selectionHilightForegroundColor Color white
selectionHilightBackgroundColor Color blue
selectionHilightFrameColor Color black
+selectionRightArrowLevel 0
+selectionRightArrowStyle #solid
variablePanelHandlePosition #right
variablePanelHandleStyle #motif
@@ -47,13 +49,13 @@
#if Display hasGreyscales
; scrollerViewBackground Color grey:50
-scrollerViewBackground Color grey:80
+; scrollerViewBackground Color grey:80
scrollerThumbColor Color lightGrey
scrollerThumbEdgeStyle #soft
#else
scrollerThumbColor Color white
#endif
-scrollerThumbFixHeight true
+; scrollerThumbFixHeight true
scrollerThumbLevel 2
;scrollerThumbInset 1
scrollerThumbInset 0
@@ -81,3 +83,12 @@
arrowButtonRightFormFile 'ScrollRt.w95.14.xbm'.
selectionFont Font family:'helvetica' face:'medium' style:'roman' size:12
+
+htmlBackgroundColor Color white
+htmlAnchorForegroundColor Color green darkened
+htmlVisitedAnchorForegroundColor =htmlAnchorForegroundColor
+htmlAnchorUnderlines true
+
+activeHelpBackgroundColor Color yellow lightened
+activeHelpBorderWidth 2
+
--- a/styles/normal.style Thu Aug 24 22:39:36 1995 +0200
+++ b/styles/normal.style Sun Aug 27 02:33:33 1995 +0200
@@ -3,7 +3,7 @@
; the good-old normal 2D style - actually not bad to work
; with. Also the best to use on black&white displays
;
-; $Header: /cvs/stx/stx/libview/styles/normal.style,v 1.3 1995-08-11 16:06:30 claus Exp $
+; $Header: /cvs/stx/stx/libview/styles/normal.style,v 1.4 1995-08-27 00:33:21 claus Exp $
comment 'plain good old 2D style'
@@ -35,7 +35,8 @@
selectionFont Font family:'helvetica' face:'medium' style:'roman' size:12
menuFont Font family:'helvetica' face:'bold' style:'roman' size:12
#endif
+selectionRightArrowStyle #solid
+selectionRightArrowLevel 0
checkToggleActiveForegroundColor Color black
checkToggleActiveBackgroundColor Color white
-