--- a/styles/generic.style Fri Sep 06 16:30:00 2002 +0200
+++ b/styles/generic.style Fri Sep 06 22:53:36 2002 +0200
@@ -26,7 +26,7 @@
; all of them for new styles.
;
;
-; $Header: /cvs/stx/stx/libview/styles/generic.style,v 1.50 2002-08-21 15:39:54 penk Exp $
+; $Header: /cvs/stx/stx/libview/styles/generic.style,v 1.51 2002-09-06 20:53:35 cg Exp $
;
; agenda:
@@ -441,6 +441,8 @@
scroller.repeatDelay 0.1 "seconds"
scroller.vScrollerWidth nil " nil means: compute from screens resolution"
scroller.hScrollerHeight nil " nil means: compute from screens resolution"
+scroller.snapBackDistance 30
+scroller.minThumbSize 8
;
; sliders may have different tally definition than scrollers
--- a/styles/iris.common Fri Sep 06 16:30:00 2002 +0200
+++ b/styles/iris.common Fri Sep 06 22:53:36 2002 +0200
@@ -3,7 +3,7 @@
; silicon graphics style
; (somwehat like motif, but with smooth edges and bells&whistles)
;
-; $Header: /cvs/stx/stx/libview/styles/iris.common,v 1.17 2002-09-06 13:39:55 cg Exp $
+; $Header: /cvs/stx/stx/libview/styles/iris.common,v 1.18 2002-09-06 20:53:35 cg Exp $
is3D true
@@ -175,6 +175,19 @@
html.exampleAnchorForegroundColor Color black
#endif
+#if Screen current width > 800
+
+viewSpacing 3 "/ pixels
+arrowButton.downFormFile 'ScrollDn.14.xbm'
+arrowButton.upFormFile 'ScrollUp.14.xbm'
+arrowButton.leftFormFile 'ScrollLt.14.xbm'
+arrowButton.rightFormFile 'ScrollRt.14.xbm'
+comboView.downFormFile 'ComboDn.14.xbm'
+
+#endif
+
+
+
#if Screen current width <= 800
viewSpacing 2 "/ pixels
@@ -186,6 +199,8 @@
#endif
+
+
#if Screen current width <= 640
arrowButton.downFormFile 'ScrollDn.8.xbm'
--- a/styles/mswindows95.style Fri Sep 06 16:30:00 2002 +0200
+++ b/styles/mswindows95.style Fri Sep 06 22:53:36 2002 +0200
@@ -1,8 +1,8 @@
; View defaultStyle:#mswindows95
;
-; $Header: /cvs/stx/stx/libview/styles/mswindows95.style,v 1.41 2002-09-05 16:16:34 cg Exp $
+; $Header: /cvs/stx/stx/libview/styles/mswindows95.style,v 1.42 2002-09-06 20:53:36 cg Exp $
-comment 'win95/nt/xp lookalike'
+comment 'win95/nt lookalike'
#if (Language == #german) or:[Language == #de]
comment 'an MS Windows95 angelehnter Stil'
@@ -266,10 +266,6 @@
comboView.downFormFile 'ScrollDn.w95.11.xbm'.
comboView.disabledDownFormFile 'ScrollDn_disabled.w95.11.xpm'.
-comboView.downFormFile 'ScrollDn.xp.xpm'.
-comboView.disabledDownFormFile 'ScrollDn_disabled.xp.xpm'.
-
-
html.backgroundColor Color white
; html.anchorForegroundColor Color green darkened
; html.visitedAnchorForegroundColor =html.anchorForegroundColor darkened darkened
--- a/styles/mswindowsXP.style Fri Sep 06 16:30:00 2002 +0200
+++ b/styles/mswindowsXP.style Fri Sep 06 22:53:36 2002 +0200
@@ -1,17 +1,18 @@
; View defaultStyle:#mswindowsXP
;
-; $Header: /cvs/stx/stx/libview/styles/mswindowsXP.style,v 1.2 2002-09-05 17:20:08 cg Exp $
+; $Header: /cvs/stx/stx/libview/styles/mswindowsXP.style,v 1.3 2002-09-06 20:53:36 cg Exp $
name #winXP
;
; for now, much like win95, except for some menuPanel details
-; (animated menu-popup is not yet implemented; but, who likes it ?)
+; scrollbars are to come ...
;
.
#include 'mswindows95.style'
+name #winXP
-comment 'winXP lookalike'
+comment 'winXP lookalike (smarty design; experimental)'
#if (Language == #german) or:[Language == #de]
comment 'an MS WindowsXP angelehnter Stil'
@@ -22,8 +23,63 @@
#endif
menu.enteredLevel 0
+; menu.buttonEnteredLevel 2 "/ sigh - does not work
+
;; enable this, when old menuView cares for it also
;; menu.itemMargin 1
menu.selectionFollowsMouse true
menu.enteredBackgroundColor =menu.hilightBackgroundColor
menu.enteredForegroundColor =menu.hilightForegroundColor
+
+;button.edgeStyle #soft
+;button.activeLevel -1
+;button.passiveLevel 3
+;button.enteredBackgroundColor [ (Screen current getSystemColor:#'COLOR_BTNFACE') lightened ]
+
+comboView.downFormFile 'ScrollDn.xp.xpm'.
+comboView.disabledDownFormFile 'ScrollDn_disabled.xp.xpm'.
+comboView.activeDownFormFile 'ScrollDn_active.xp.xpm'.
+comboView.button.activeLevel 0
+comboView.button.passiveLevel 0
+comboView.button.activeBackgroundColor =viewGrey
+
+scroller.viewBackground (Color redByte:16rFB greenByte:16rFB blueByte:16rF9)
+scroller.thumbColor (Color redByte:175 greenByte:190 blueByte:240) slightlyLightened
+scroller.thumbLightColor (Color redByte:16rCF greenByte:16rDD blueByte:16rFD)
+scroller.thumbShadowColor (Color redByte:16r83 greenByte:16r9E blueByte:16rD8)
+scroller.thumbEnteredColor (Color redByte:175 greenByte:190 blueByte:240) lightened
+scroller.thumbActiveColor (Color red:64 green:75 blue:98)
+scroller.thumbLevel 0
+scroller.thumbInset 1
+scroller.thumbFrameColor Color white "/ (Color redByte:175 greenByte:190 blueByte:240) darkened
+scroller.thumbEdgeStyle #edged
+scroller.NTallyMarks 4
+scroller.tallyLevel 1
+scroller.tallyInset 4
+scroller.tallyDistance 2
+scroller.snapBackDistance 100
+scroller.minThumbSize 16
+
+arrowButton.upFormFile 'ScrollUp.xp.xpm'
+arrowButton.enteredUpFormFile 'ScrollUp_entered.xp.xpm'
+arrowButton.activeUpFormFile 'ScrollUp_active.xp.xpm'
+arrowButton.disabledUpFormFile 'ScrollUp_disabled.xp.xpm'
+
+arrowButton.downFormFile 'ScrollDn.xp.xpm'
+arrowButton.enteredDownFormFile 'ScrollDn_entered.xp.xpm'
+arrowButton.activeDownFormFile 'ScrollDn_active.xp.xpm'
+arrowButton.disabledDownFormFile 'ScrollDn_disabled.xp.xpm'
+
+arrowButton.leftFormFile 'ScrollLt.xp.xpm'
+arrowButton.enteredLeftFormFile 'ScrollLt_entered.xp.xpm'
+arrowButton.activeLeftFormFile 'ScrollLt_active.xp.xpm'
+arrowButton.disabledLeftFormFile 'ScrollLt_disabled.xp.xpm'
+
+arrowButton.rightFormFile 'ScrollRt.xp.xpm'
+arrowButton.enteredRightFormFile 'ScrollRt_entered.xp.xpm'
+arrowButton.activeRightFormFile 'ScrollRt_active.xp.xpm'
+arrowButton.disabledRightFormFile 'ScrollRt_disabled.xp.xpm'
+
+arrowButton.passiveLevel 0
+arrowButton.activeLevel 0
+