Do noz use blocks for constants
authorStefan Vogel <sv@exept.de>
Thu, 21 Apr 2016 16:12:03 +0200
changeset 7307 7584be17c465
parent 7306 600abeee8631
child 7308 6f237e47b22b
Do noz use blocks for constants
styles/mswindows8.style
--- a/styles/mswindows8.style	Thu Apr 21 15:08:39 2016 +0200
+++ b/styles/mswindows8.style	Thu Apr 21 16:12:03 2016 +0200
@@ -1,8 +1,19 @@
-; View defaultStyle:#mswindowsVista
+; View defaultStyle:#mswindows8
 ;
-; $Header: /cvs/stx/stx/libview/styles/mswindows8.style,v 1.2 2013-02-22 12:36:40 cg Exp $
+; $Header$
+
+name                    #win8
+comment                 'Windows8 lookalike (unfinished)'
+previewFileName         'viewStyleSample_win8.png'
 
-name                            #win8
+#if (Language == #german) or:[Language == #de]
+comment  'an Windows8 angelehnter Stil (unvollständig)'
+#endif
+
+#if (Language == #french) or:[Language == #fr]
+comment  'Un style qui résemble Windows8 (incomplet)'
+#endif
+
 
 ToolbarIconLibrary              ?(Smalltalk at:#Windows8ToolbarIconLibrary) ? (Smalltalk at:#XPToolbarIconLibrary) ? GenericToolbarIconLibrary
 useQuestForHelp                 true
@@ -55,17 +66,6 @@
 
 #include 'mswindows95.common'
 
-comment                 'Windows8 lookalike (unfinished)'
-previewFileName         'viewStyleSample_win8.png'
-
-#if (Language == #german) or:[Language == #de]
-comment  'an Windows8 angelehnter Stil (unvollständig)'
-#endif
-
-#if (Language == #french) or:[Language == #fr]
-comment  'Un style qui résemble Windows8 (incomplet)'
-#endif
-
 menu.enteredLevel               0
 ; menu.buttonEnteredLevel         2   "/ sigh - does not work
 
@@ -100,10 +100,10 @@
 radioButton.borderWidth                 0
 comboView.button.borderWidth            0
 
-comboView.downForm                      [Windows8ToolbarIconLibrary scrollDownOffIcon]
-comboView.disabledDownForm              [Windows8ToolbarIconLibrary scrollDownOffIcon]
-comboView.enteredDownForm               [Windows8ToolbarIconLibrary scrollDownOffEntered2Icon]
-comboView.activeDownForm                [Windows8ToolbarIconLibrary scrollDownActiveIcon]
+comboView.downForm                      (Windows8ToolbarIconLibrary scrollDownOffIcon)
+comboView.disabledDownForm              (Windows8ToolbarIconLibrary scrollDownOffIcon)
+comboView.enteredDownForm               (Windows8ToolbarIconLibrary scrollDownOffEntered2Icon)
+comboView.activeDownForm                (Windows8ToolbarIconLibrary scrollDownActiveIcon)
 ; comboView.downFormFile                  'ComboDn_xp.xpm'.
 ; comboView.disabledDownFormFile          'ComboDn_disabled_xp.xpm'.
 ; comboView.activeDownFormFile            'ComboDn_active_xp.xpm'.
@@ -139,25 +139,25 @@
 miniScroller.size               3     "/ in millimeters
 
 
-arrowButton.upForm                  [Windows8ToolbarIconLibrary scrollUpOffIcon]
-arrowButton.enteredUpForm           [Windows8ToolbarIconLibrary scrollUpOffEntered2Icon]
-arrowButton.activeUpForm            [Windows8ToolbarIconLibrary scrollUpActiveIcon]
-arrowButton.disabledUpForm          [Windows8ToolbarIconLibrary scrollUpOffIcon]
+arrowButton.upForm                  (Windows8ToolbarIconLibrary scrollUpOffIcon)
+arrowButton.enteredUpForm           (Windows8ToolbarIconLibrary scrollUpOffEntered2Icon)
+arrowButton.activeUpForm            (Windows8ToolbarIconLibrary scrollUpActiveIcon)
+arrowButton.disabledUpForm          (Windows8ToolbarIconLibrary scrollUpOffIcon)
 
-arrowButton.downForm                [Windows8ToolbarIconLibrary scrollDownOffIcon]
-arrowButton.enteredDownForm         [Windows8ToolbarIconLibrary scrollDownOffEntered2Icon]
-arrowButton.activeDownForm          [Windows8ToolbarIconLibrary scrollDownActiveIcon]
-arrowButton.disabledDownForm        [Windows8ToolbarIconLibrary scrollDownOffIcon]
+arrowButton.downForm                (Windows8ToolbarIconLibrary scrollDownOffIcon)
+arrowButton.enteredDownForm         (Windows8ToolbarIconLibrary scrollDownOffEntered2Icon)
+arrowButton.activeDownForm          (Windows8ToolbarIconLibrary scrollDownActiveIcon)
+arrowButton.disabledDownForm        (Windows8ToolbarIconLibrary scrollDownOffIcon)
 
-arrowButton.leftForm                [Windows8ToolbarIconLibrary scrollLeftOffIcon]
-arrowButton.enteredLeftForm         [Windows8ToolbarIconLibrary scrollLeftOffEntered2Icon]
-arrowButton.activeLeftForm          [Windows8ToolbarIconLibrary scrollLeftActiveIcon]
-arrowButton.disabledLeftForm        [Windows8ToolbarIconLibrary scrollLeftOffIcon]
+arrowButton.leftForm                (Windows8ToolbarIconLibrary scrollLeftOffIcon)
+arrowButton.enteredLeftForm         (Windows8ToolbarIconLibrary scrollLeftOffEntered2Icon)
+arrowButton.activeLeftForm          (Windows8ToolbarIconLibrary scrollLeftActiveIcon)
+arrowButton.disabledLeftForm        (Windows8ToolbarIconLibrary scrollLeftOffIcon)
 
-arrowButton.rightForm               [Windows8ToolbarIconLibrary scrollRightOffIcon]
-arrowButton.enteredRightForm        [Windows8ToolbarIconLibrary scrollRightOffEntered2Icon]
-arrowButton.activeRightForm         [Windows8ToolbarIconLibrary scrollRightActiveIcon]
-arrowButton.disabledRightForm       [Windows8ToolbarIconLibrary scrollRightOffIcon]
+arrowButton.rightForm               (Windows8ToolbarIconLibrary scrollRightOffIcon)
+arrowButton.enteredRightForm        (Windows8ToolbarIconLibrary scrollRightOffEntered2Icon)
+arrowButton.activeRightForm         (Windows8ToolbarIconLibrary scrollRightActiveIcon)
+arrowButton.disabledRightForm       (Windows8ToolbarIconLibrary scrollRightOffIcon)
 
 
 arrowButton.leftFormFile          'ScrollLt.xp.xpm'
@@ -183,28 +183,28 @@
 noteBook.passiveBackgroundColor   =lightenedViewGrey
 
 checkToggle.bitmapFile            'CheckOn10_xp.xpm'
-radioButton.passiveImage          [Windows8ToolbarIconLibrary radioOff12x12Icon]
-radioButton.activeImage           [Windows8ToolbarIconLibrary radioOn12x12Icon]
-radioButton.enteredPassiveImage   [Windows8ToolbarIconLibrary radioOffEntered12x12Icon]
-radioButton.enteredActiveImage    [Windows8ToolbarIconLibrary radioOnEntered12x12Icon]
-radioButton.disabledPassiveImage  [Windows8ToolbarIconLibrary radioOffDisabled12x12Icon]
-radioButton.disabledActiveImage   [Windows8ToolbarIconLibrary radioOnDisabled12x12Icon]
-checkToggle.disabledActiveImage   [Windows8ToolbarIconLibrary checkToggleOnDisabledIcon]
-checkToggle.disabledPassiveImage  [Windows8ToolbarIconLibrary checkToggleOffDisabledIcon]
-checkToggle.activeImage           [Windows8ToolbarIconLibrary checkToggleOnIcon]
-checkToggle.passiveImage          [Windows8ToolbarIconLibrary checkToggleOffIcon]
-checkToggle.enteredPassiveImage   [Windows8ToolbarIconLibrary checkToggleOffEnteredIcon]
-checkToggle.enteredActiveImage    [Windows8ToolbarIconLibrary checkToggleOnEnteredIcon]
+radioButton.passiveImage          (Windows8ToolbarIconLibrary radioOff12x12Icon)
+radioButton.activeImage           (Windows8ToolbarIconLibrary radioOn12x12Icon)
+radioButton.enteredPassiveImage   (Windows8ToolbarIconLibrary radioOffEntered12x12Icon)
+radioButton.enteredActiveImage    (Windows8ToolbarIconLibrary radioOnEntered12x12Icon)
+radioButton.disabledPassiveImage  (Windows8ToolbarIconLibrary radioOffDisabled12x12Icon)
+radioButton.disabledActiveImage   (Windows8ToolbarIconLibrary radioOnDisabled12x12Icon)
+checkToggle.disabledActiveImage   (Windows8ToolbarIconLibrary checkToggleOnDisabledIcon)
+checkToggle.disabledPassiveImage  (Windows8ToolbarIconLibrary checkToggleOffDisabledIcon)
+checkToggle.activeImage           (Windows8ToolbarIconLibrary checkToggleOnIcon)
+checkToggle.passiveImage          (Windows8ToolbarIconLibrary checkToggleOffIcon)
+checkToggle.enteredPassiveImage   (Windows8ToolbarIconLibrary checkToggleOffEnteredIcon)
+checkToggle.enteredActiveImage    (Windows8ToolbarIconLibrary checkToggleOnEnteredIcon)
 checkToggle.activeLevel           0
 checkToggle.passiveLevel          0
 checkToggle.disabledBackgroundColor     =viewGrey
 checkToggle.backgroundColor             =viewGrey
 checkToggle.activeBackgroundColor       =viewGrey
 
-menu.iconIndicationOn             [Windows8ToolbarIconLibrary checkToggleOnIcon]
-menu.iconIndicationOff            [Windows8ToolbarIconLibrary checkToggleOffIcon]
-menu.iconDisabledIndicationOn     [Windows8ToolbarIconLibrary checkToggleOffDisabledIcon]
-menu.iconDisabledIndicationOff    [Windows8ToolbarIconLibrary checkToggleOffIcon]
+menu.iconIndicationOn             (Windows8ToolbarIconLibrary checkToggleOnIcon)
+menu.iconIndicationOff            (Windows8ToolbarIconLibrary checkToggleOffIcon)
+menu.iconDisabledIndicationOn     (Windows8ToolbarIconLibrary checkToggleOffDisabledIcon)
+menu.iconDisabledIndicationOff    (Windows8ToolbarIconLibrary checkToggleOffIcon)
 
 noteBook.activeTabMarkerColor       (Color red:100 green:78 blue:23)