Mercurial Mercurial > hg > stx-libwidg / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Sat, 24 Apr 1999 16:37:22 +0200
changeset 1870 9bce9ea89db3
parent 1869 b435e03cf803
child 1871 a6b15bdfcc92
*** empty log message ***
ArrButton.st file | annotate | diff | comparison | revisions
ArrowButton.st file | annotate | diff | comparison | revisions
ChckTggle.st file | annotate | diff | comparison | revisions
CheckToggle.st file | annotate | diff | comparison | revisions
MenuView.st file | annotate | diff | comparison | revisions
ScrView.st file | annotate | diff | comparison | revisions
ScrollableView.st file | annotate | diff | comparison | revisions
Scroller.st file | annotate | diff | comparison | revisions
SelListV.st file | annotate | diff | comparison | revisions
SelectionInListView.st file | annotate | diff | comparison | revisions 
--- a/ArrButton.st	Sat Apr 24 16:28:33 1999 +0200
+++ b/ArrButton.st	Sat Apr 24 16:37:22 1999 +0200
@@ -441,7 +441,7 @@
         ^ form
     ].
 
-    form := DownArrowForm := StyleSheet at:'arrowButton.downForm' default:nil.
+    form := DownArrowForm := StyleSheet at:#'arrowButton.downForm' default:nil.
     form notNil ifTrue:[^ form].
 
     "
@@ -512,7 +512,7 @@
         ^ form
     ].
 
-    form := LeftArrowForm := StyleSheet at:'arrowButton.leftForm' default:nil.
+    form := LeftArrowForm := StyleSheet at:#'arrowButton.leftForm' default:nil.
     form notNil ifTrue:[^ form].
 
     "
@@ -583,7 +583,7 @@
         ^ form
     ].
 
-    form := RightArrowForm := StyleSheet at:'arrowButton.rightForm' default:nil.
+    form := RightArrowForm := StyleSheet at:#'arrowButton.rightForm' default:nil.
     form notNil ifTrue:[^ form].
 
     "
@@ -654,7 +654,7 @@
         ^ form
     ].
 
-    form := UpArrowForm := StyleSheet at:'arrowButton.upForm' default:nil.
+    form := UpArrowForm := StyleSheet at:#'arrowButton.upForm' default:nil.
     form notNil ifTrue:[^ form].
 
     "
@@ -979,5 +979,5 @@
 !ArrowButton class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ArrButton.st,v 1.52 1999-04-24 12:18:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ArrButton.st,v 1.53 1999-04-24 14:37:17 cg Exp $'
 ! !
--- a/ArrowButton.st	Sat Apr 24 16:28:33 1999 +0200
+++ b/ArrowButton.st	Sat Apr 24 16:37:22 1999 +0200
@@ -441,7 +441,7 @@
         ^ form
     ].
 
-    form := DownArrowForm := StyleSheet at:'arrowButton.downForm' default:nil.
+    form := DownArrowForm := StyleSheet at:#'arrowButton.downForm' default:nil.
     form notNil ifTrue:[^ form].
 
     "
@@ -512,7 +512,7 @@
         ^ form
     ].
 
-    form := LeftArrowForm := StyleSheet at:'arrowButton.leftForm' default:nil.
+    form := LeftArrowForm := StyleSheet at:#'arrowButton.leftForm' default:nil.
     form notNil ifTrue:[^ form].
 
     "
@@ -583,7 +583,7 @@
         ^ form
     ].
 
-    form := RightArrowForm := StyleSheet at:'arrowButton.rightForm' default:nil.
+    form := RightArrowForm := StyleSheet at:#'arrowButton.rightForm' default:nil.
     form notNil ifTrue:[^ form].
 
     "
@@ -654,7 +654,7 @@
         ^ form
     ].
 
-    form := UpArrowForm := StyleSheet at:'arrowButton.upForm' default:nil.
+    form := UpArrowForm := StyleSheet at:#'arrowButton.upForm' default:nil.
     form notNil ifTrue:[^ form].
 
     "
@@ -979,5 +979,5 @@
 !ArrowButton class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.52 1999-04-24 12:18:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.53 1999-04-24 14:37:17 cg Exp $'
 ! !
--- a/ChckTggle.st	Sat Apr 24 16:28:33 1999 +0200
+++ b/ChckTggle.st	Sat Apr 24 16:37:22 1999 +0200
@@ -380,18 +380,18 @@
 
     |checkFileName checkStyle|
 
-    DefaultCheckColor    := StyleSheet colorAt:'checkToggle.checkColor'.
-    DefaultFGColor       := StyleSheet colorAt:'checkToggle.foregroundColor'.
-    DefaultBGColor       := StyleSheet colorAt:'checkToggle.backgroundColor'.
-    DefaultActiveFGColor := StyleSheet colorAt:'checkToggle.activeForegroundColor'.
-    DefaultActiveBGColor := StyleSheet colorAt:'checkToggle.activeBackgroundColor'.
-    DefaultActiveLevel   := StyleSheet at:'checkToggle.activeLevel'.
-    DefaultPassiveLevel  := StyleSheet at:'checkToggle.passiveLevel'.
-    DefaultBorderWidth   := StyleSheet at:'checkToggle.borderWidth'.
-    LabelOverMargin      := StyleSheet at:'checkToggle.labelOverMargin' default:false.
+    DefaultCheckColor    := StyleSheet colorAt:#'checkToggle.checkColor'.
+    DefaultFGColor       := StyleSheet colorAt:#'checkToggle.foregroundColor'.
+    DefaultBGColor       := StyleSheet colorAt:#'checkToggle.backgroundColor'.
+    DefaultActiveFGColor := StyleSheet colorAt:#'checkToggle.activeForegroundColor'.
+    DefaultActiveBGColor := StyleSheet colorAt:#'checkToggle.activeBackgroundColor'.
+    DefaultActiveLevel   := StyleSheet at:#'checkToggle.activeLevel'.
+    DefaultPassiveLevel  := StyleSheet at:#'checkToggle.passiveLevel'.
+    DefaultBorderWidth   := StyleSheet at:#'checkToggle.borderWidth'.
+    LabelOverMargin      := StyleSheet at:#'checkToggle.labelOverMargin' default:false.
 
     DefaultCheckForm := nil.
-    checkFileName := StyleSheet at:'checkToggle.bitmapFile' default:'CheckOn.xbm'.
+    checkFileName := StyleSheet at:#'checkToggle.bitmapFile' default:'CheckOn.xbm'.
     checkFileName notNil ifTrue:[
         DefaultCheckForm := Image fromFile:checkFileName 
                                 resolution:100
@@ -403,15 +403,15 @@
         ]
     ].
     DefaultCheckForm isNil ifTrue:[
-        checkStyle := StyleSheet at:'checkToggle.style' default:#check.
+        checkStyle := StyleSheet at:#'checkToggle.style' default:#check.
         DefaultCheckForm := self checkImageForStyle:checkStyle
     ].
     StyleSheet name == #os2 ifTrue: [
         DefaultCheckForm := DefaultCheckForm subImageIn: (0@0 extent: 15@15)
     ].
 
-    DefaultActiveImage := StyleSheet at:'checkToggle.activeImage'.
-    DefaultPassiveImage := StyleSheet at:'checkToggle.passiveImage'.
+    DefaultActiveImage := StyleSheet at:#'checkToggle.activeImage'.
+    DefaultPassiveImage := StyleSheet at:#'checkToggle.passiveImage'.
 
     "
      self updateStyleCache
@@ -555,5 +555,5 @@
 !CheckToggle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ChckTggle.st,v 1.47 1999-04-21 21:24:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ChckTggle.st,v 1.48 1999-04-24 14:37:18 cg Exp $'
 ! !
--- a/CheckToggle.st	Sat Apr 24 16:28:33 1999 +0200
+++ b/CheckToggle.st	Sat Apr 24 16:37:22 1999 +0200
@@ -380,18 +380,18 @@
 
     |checkFileName checkStyle|
 
-    DefaultCheckColor    := StyleSheet colorAt:'checkToggle.checkColor'.
-    DefaultFGColor       := StyleSheet colorAt:'checkToggle.foregroundColor'.
-    DefaultBGColor       := StyleSheet colorAt:'checkToggle.backgroundColor'.
-    DefaultActiveFGColor := StyleSheet colorAt:'checkToggle.activeForegroundColor'.
-    DefaultActiveBGColor := StyleSheet colorAt:'checkToggle.activeBackgroundColor'.
-    DefaultActiveLevel   := StyleSheet at:'checkToggle.activeLevel'.
-    DefaultPassiveLevel  := StyleSheet at:'checkToggle.passiveLevel'.
-    DefaultBorderWidth   := StyleSheet at:'checkToggle.borderWidth'.
-    LabelOverMargin      := StyleSheet at:'checkToggle.labelOverMargin' default:false.
+    DefaultCheckColor    := StyleSheet colorAt:#'checkToggle.checkColor'.
+    DefaultFGColor       := StyleSheet colorAt:#'checkToggle.foregroundColor'.
+    DefaultBGColor       := StyleSheet colorAt:#'checkToggle.backgroundColor'.
+    DefaultActiveFGColor := StyleSheet colorAt:#'checkToggle.activeForegroundColor'.
+    DefaultActiveBGColor := StyleSheet colorAt:#'checkToggle.activeBackgroundColor'.
+    DefaultActiveLevel   := StyleSheet at:#'checkToggle.activeLevel'.
+    DefaultPassiveLevel  := StyleSheet at:#'checkToggle.passiveLevel'.
+    DefaultBorderWidth   := StyleSheet at:#'checkToggle.borderWidth'.
+    LabelOverMargin      := StyleSheet at:#'checkToggle.labelOverMargin' default:false.
 
     DefaultCheckForm := nil.
-    checkFileName := StyleSheet at:'checkToggle.bitmapFile' default:'CheckOn.xbm'.
+    checkFileName := StyleSheet at:#'checkToggle.bitmapFile' default:'CheckOn.xbm'.
     checkFileName notNil ifTrue:[
         DefaultCheckForm := Image fromFile:checkFileName 
                                 resolution:100
@@ -403,15 +403,15 @@
         ]
     ].
     DefaultCheckForm isNil ifTrue:[
-        checkStyle := StyleSheet at:'checkToggle.style' default:#check.
+        checkStyle := StyleSheet at:#'checkToggle.style' default:#check.
         DefaultCheckForm := self checkImageForStyle:checkStyle
     ].
     StyleSheet name == #os2 ifTrue: [
         DefaultCheckForm := DefaultCheckForm subImageIn: (0@0 extent: 15@15)
     ].
 
-    DefaultActiveImage := StyleSheet at:'checkToggle.activeImage'.
-    DefaultPassiveImage := StyleSheet at:'checkToggle.passiveImage'.
+    DefaultActiveImage := StyleSheet at:#'checkToggle.activeImage'.
+    DefaultPassiveImage := StyleSheet at:#'checkToggle.passiveImage'.
 
     "
      self updateStyleCache
@@ -555,5 +555,5 @@
 !CheckToggle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.47 1999-04-21 21:24:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.48 1999-04-24 14:37:18 cg Exp $'
 ! !
--- a/MenuView.st	Sat Apr 24 16:28:33 1999 +0200
+++ b/MenuView.st	Sat Apr 24 16:37:22 1999 +0200
@@ -325,25 +325,25 @@
                        #'menu.checkColor' #'menu.checkOnImage' #'menu.checkOffImage'
                        #'menu.font' #'menu.showAccelerators')>
 
-    DefaultViewBackground := StyleSheet colorAt:'menu.viewBackground'.
-    DefaultForegroundColor := StyleSheet colorAt:'menu.foregroundColor'.
-    DefaultBackgroundColor := StyleSheet colorAt:'menu.backgroundColor'.
-    DefaultShadowColor := StyleSheet colorAt:'menu.shadowColor'.
-    DefaultLightColor := StyleSheet colorAt:'menu.lightColor'.
-    DefaultHilightForegroundColor := StyleSheet colorAt:'menu.hilightForegroundColor'.
-    DefaultHilightBackgroundColor := StyleSheet colorAt:'menu.hilightBackgroundColor'.
-    DefaultHilightFrameColor := StyleSheet colorAt:'menu.hilightFrameColor' 
-                                default:(StyleSheet colorAt:'selection.hilightFrameColor').
-    DefaultHilightLevel := StyleSheet at:'menu.hilightLevel'.
-    DefaultHilightStyle := StyleSheet at:'menu.hilightStyle'.
-    DefaultLineLevel := StyleSheet at:'menu.separatingLineLevel'.
-    DefaultLineInset := StyleSheet at:'menu.separatingLineInset'.
-    DefaultDisabledForegroundColor := StyleSheet colorAt:'menu.disabledForegroundColor' default:Color darkGray.
-    DefaultCheckColor := StyleSheet colorAt:'menu.checkColor'.
-    DefaultCheckOnImage := StyleSheet at:'menu.checkOnImage'.
-    DefaultCheckOffImage := StyleSheet at:'menu.checkOffImage'.
-    DefaultFont := StyleSheet fontAt:'menu.font'.
-    ShowAcceleratorKeys := StyleSheet at:'menu.showAccelerators' default:true.
+    DefaultViewBackground := StyleSheet colorAt:#'menu.viewBackground'.
+    DefaultForegroundColor := StyleSheet colorAt:#'menu.foregroundColor'.
+    DefaultBackgroundColor := StyleSheet colorAt:#'menu.backgroundColor'.
+    DefaultShadowColor := StyleSheet colorAt:#'menu.shadowColor'.
+    DefaultLightColor := StyleSheet colorAt:#'menu.lightColor'.
+    DefaultHilightForegroundColor := StyleSheet colorAt:#'menu.hilightForegroundColor'.
+    DefaultHilightBackgroundColor := StyleSheet colorAt:#'menu.hilightBackgroundColor'.
+    DefaultHilightFrameColor := StyleSheet colorAt:#'menu.hilightFrameColor' 
+                                default:(StyleSheet colorAt:#'selection.hilightFrameColor').
+    DefaultHilightLevel := StyleSheet at:#'menu.hilightLevel'.
+    DefaultHilightStyle := StyleSheet at:#'menu.hilightStyle'.
+    DefaultLineLevel := StyleSheet at:#'menu.separatingLineLevel'.
+    DefaultLineInset := StyleSheet at:#'menu.separatingLineInset'.
+    DefaultDisabledForegroundColor := StyleSheet colorAt:#'menu.disabledForegroundColor' default:Color darkGray.
+    DefaultCheckColor := StyleSheet colorAt:#'menu.checkColor'.
+    DefaultCheckOnImage := StyleSheet at:#'menu.checkOnImage'.
+    DefaultCheckOffImage := StyleSheet at:#'menu.checkOffImage'.
+    DefaultFont := StyleSheet fontAt:#'menu.font'.
+    ShowAcceleratorKeys := StyleSheet at:#'menu.showAccelerators' default:true.
 
     "
      self updateStyleCache
@@ -2720,5 +2720,5 @@
 !MenuView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.120 1999-04-24 12:43:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.121 1999-04-24 14:37:19 cg Exp $'
 ! !
--- a/ScrView.st	Sat Apr 24 16:28:33 1999 +0200
+++ b/ScrView.st	Sat Apr 24 16:37:22 1999 +0200
@@ -917,7 +917,7 @@
 
     <resource: #style (#'scrollBar.position')>
 
-    ^ StyleSheet at:'scrollBar.position' default:#left.
+    ^ StyleSheet at:#'scrollBar.position' default:#left.
 
     "
      self defaultScrollBarPosition
@@ -945,13 +945,13 @@
 	defMargin := 0.
 	defSpacing := 0
     ].
-    DefaultScrolledViewLevel := StyleSheet at:'scrolledView.level' default:defLevel.
-    DefaultScrolledViewBorderWidth := StyleSheet at:'scrolledView.borderWidth' default:nil.
-    DefaultScrolledViewMargin := StyleSheet at:'scrolledView.margin' default:defMargin.
-    DefaultScrollBarSpacing := StyleSheet at:'scrollBar.spacing' default:defSpacing.
-    DefaultLevel := StyleSheet at:'scrollableView.level' default:nil.
-    DefaultScrollBarLevel := StyleSheet at:'scrollBar.level' default:nil.
-    MyDefaultViewBackgroundColor := StyleSheet at:'scrollableView.backgroundColor' default:DefaultViewBackgroundColor.
+    DefaultScrolledViewLevel := StyleSheet at:#'scrolledView.level' default:defLevel.
+    DefaultScrolledViewBorderWidth := StyleSheet at:#'scrolledView.borderWidth' default:nil.
+    DefaultScrolledViewMargin := StyleSheet at:#'scrolledView.margin' default:defMargin.
+    DefaultScrollBarSpacing := StyleSheet at:#'scrollBar.spacing' default:defSpacing.
+    DefaultLevel := StyleSheet at:#'scrollableView.level' default:nil.
+    DefaultScrollBarLevel := StyleSheet at:#'scrollBar.level' default:nil.
+    MyDefaultViewBackgroundColor := StyleSheet at:#'scrollableView.backgroundColor' default:DefaultViewBackgroundColor.
 
     "
      self updateStyleCache
@@ -1085,7 +1085,7 @@
 
     horizontalMini ~~ aBoolean ifTrue:[
         horizontalMini := aBoolean.
-        (styleSheet at:'scrollBar.neverMini' default:false) == true ifTrue:[
+        (styleSheet at:#'scrollBar.neverMini' default:false) == true ifTrue:[
             horizontalMini := false.
         ].
         self setupViews.
@@ -1122,7 +1122,7 @@
 
     verticalMini ~~ aBoolean ifTrue:[
         verticalMini := aBoolean.
-        (styleSheet at:'scrollBar.neverMini' default:false) == true ifTrue:[
+        (styleSheet at:#'scrollBar.neverMini' default:false) == true ifTrue:[
             verticalMini := false.
         ].
         self setupViews.
@@ -1441,8 +1441,8 @@
     super initStyle.
 
     viewBackground := MyDefaultViewBackgroundColor. 
-    scrollBarPosition := styleSheet at:'scrollBar.position' default:#left.
-    hideHScrollBar := hideVScrollBar := styleSheet at:'scrollBar.hiding' default:false.
+    scrollBarPosition := styleSheet at:#'scrollBar.position' default:#left.
+    hideHScrollBar := hideVScrollBar := styleSheet at:#'scrollBar.hiding' default:false.
     DefaultLevel notNil ifTrue:[self level:DefaultLevel].
 
     "Created: / 6.3.1997 / 18:06:23 / cg"
@@ -1777,7 +1777,7 @@
     hasVerticalScrollBar := isVertical.
     hasHorizontalScrollBar := isHorizontal.
 
-    noMiniScrollers := styleSheet at:'scrollBar.neverMini' default:false.
+    noMiniScrollers := styleSheet at:#'scrollBar.neverMini' default:false.
     verticalMini := miniV.
     horizontalMini := miniH.
 
@@ -2050,5 +2050,5 @@
 !ScrollableView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ScrView.st,v 1.93 1999-04-22 14:34:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ScrView.st,v 1.94 1999-04-24 14:37:20 cg Exp $'
 ! !
--- a/ScrollableView.st	Sat Apr 24 16:28:33 1999 +0200
+++ b/ScrollableView.st	Sat Apr 24 16:37:22 1999 +0200
@@ -917,7 +917,7 @@
 
     <resource: #style (#'scrollBar.position')>
 
-    ^ StyleSheet at:'scrollBar.position' default:#left.
+    ^ StyleSheet at:#'scrollBar.position' default:#left.
 
     "
      self defaultScrollBarPosition
@@ -945,13 +945,13 @@
 	defMargin := 0.
 	defSpacing := 0
     ].
-    DefaultScrolledViewLevel := StyleSheet at:'scrolledView.level' default:defLevel.
-    DefaultScrolledViewBorderWidth := StyleSheet at:'scrolledView.borderWidth' default:nil.
-    DefaultScrolledViewMargin := StyleSheet at:'scrolledView.margin' default:defMargin.
-    DefaultScrollBarSpacing := StyleSheet at:'scrollBar.spacing' default:defSpacing.
-    DefaultLevel := StyleSheet at:'scrollableView.level' default:nil.
-    DefaultScrollBarLevel := StyleSheet at:'scrollBar.level' default:nil.
-    MyDefaultViewBackgroundColor := StyleSheet at:'scrollableView.backgroundColor' default:DefaultViewBackgroundColor.
+    DefaultScrolledViewLevel := StyleSheet at:#'scrolledView.level' default:defLevel.
+    DefaultScrolledViewBorderWidth := StyleSheet at:#'scrolledView.borderWidth' default:nil.
+    DefaultScrolledViewMargin := StyleSheet at:#'scrolledView.margin' default:defMargin.
+    DefaultScrollBarSpacing := StyleSheet at:#'scrollBar.spacing' default:defSpacing.
+    DefaultLevel := StyleSheet at:#'scrollableView.level' default:nil.
+    DefaultScrollBarLevel := StyleSheet at:#'scrollBar.level' default:nil.
+    MyDefaultViewBackgroundColor := StyleSheet at:#'scrollableView.backgroundColor' default:DefaultViewBackgroundColor.
 
     "
      self updateStyleCache
@@ -1085,7 +1085,7 @@
 
     horizontalMini ~~ aBoolean ifTrue:[
         horizontalMini := aBoolean.
-        (styleSheet at:'scrollBar.neverMini' default:false) == true ifTrue:[
+        (styleSheet at:#'scrollBar.neverMini' default:false) == true ifTrue:[
             horizontalMini := false.
         ].
         self setupViews.
@@ -1122,7 +1122,7 @@
 
     verticalMini ~~ aBoolean ifTrue:[
         verticalMini := aBoolean.
-        (styleSheet at:'scrollBar.neverMini' default:false) == true ifTrue:[
+        (styleSheet at:#'scrollBar.neverMini' default:false) == true ifTrue:[
             verticalMini := false.
         ].
         self setupViews.
@@ -1441,8 +1441,8 @@
     super initStyle.
 
     viewBackground := MyDefaultViewBackgroundColor. 
-    scrollBarPosition := styleSheet at:'scrollBar.position' default:#left.
-    hideHScrollBar := hideVScrollBar := styleSheet at:'scrollBar.hiding' default:false.
+    scrollBarPosition := styleSheet at:#'scrollBar.position' default:#left.
+    hideHScrollBar := hideVScrollBar := styleSheet at:#'scrollBar.hiding' default:false.
     DefaultLevel notNil ifTrue:[self level:DefaultLevel].
 
     "Created: / 6.3.1997 / 18:06:23 / cg"
@@ -1777,7 +1777,7 @@
     hasVerticalScrollBar := isVertical.
     hasHorizontalScrollBar := isHorizontal.
 
-    noMiniScrollers := styleSheet at:'scrollBar.neverMini' default:false.
+    noMiniScrollers := styleSheet at:#'scrollBar.neverMini' default:false.
     verticalMini := miniV.
     horizontalMini := miniH.
 
@@ -2050,5 +2050,5 @@
 !ScrollableView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.93 1999-04-22 14:34:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.94 1999-04-24 14:37:20 cg Exp $'
 ! !
--- a/Scroller.st	Sat Apr 24 16:28:33 1999 +0200
+++ b/Scroller.st	Sat Apr 24 16:37:22 1999 +0200
@@ -357,36 +357,36 @@
                        #'scroller.newCursors' 
                        #'scroller.thumbImage' #'scroller.handleImage')>
 
-    DefaultViewBackground := StyleSheet colorAt:'scroller.viewBackground'.
-    DefaultFullViewBackground := StyleSheet colorAt:'scroller.fullViewBackground'.
-    DefaultThumbColor := StyleSheet colorAt:'scroller.thumbColor'.
-    DefaultThumbEnteredColor := StyleSheet colorAt:'scroller.thumbEnteredColor'.
-    DefaultShadowColor := StyleSheet colorAt:'scroller.shadowColor'.
-    DefaultLightColor := StyleSheet colorAt:'scroller.lightColor'.
-    DefaultThumbShadowColor := StyleSheet colorAt:'scroller.thumbShadowColor'.
-    DefaultThumbLightColor := StyleSheet colorAt:'scroller.thumbLightColor'.
-    DefaultThumbHalfShadowColor := StyleSheet colorAt:'scroller.thumbHalfShadowColor'.
-    DefaultThumbHalfLightColor := StyleSheet colorAt:'scroller.thumbHalfLightColor'.
-    DefaultThumbFrameColor := StyleSheet colorAt:'scroller.thumbFrameColor'.
-    DefaultGhostColor := StyleSheet colorAt:'scroller.ghostColor' default:nil.
-    DefaultGhostFrameColor := StyleSheet colorAt:'scroller.ghostFrameColor' default:nil.
-    DefaultGhostLevel := StyleSheet at:'scroller.ghostLevel' default:0.
-    DefaultTallyMarks := StyleSheet at:'scroller.NTallyMarks' default:0.
+    DefaultViewBackground := StyleSheet colorAt:#'scroller.viewBackground'.
+    DefaultFullViewBackground := StyleSheet colorAt:#'scroller.fullViewBackground'.
+    DefaultThumbColor := StyleSheet colorAt:#'scroller.thumbColor'.
+    DefaultThumbEnteredColor := StyleSheet colorAt:#'scroller.thumbEnteredColor'.
+    DefaultShadowColor := StyleSheet colorAt:#'scroller.shadowColor'.
+    DefaultLightColor := StyleSheet colorAt:#'scroller.lightColor'.
+    DefaultThumbShadowColor := StyleSheet colorAt:#'scroller.thumbShadowColor'.
+    DefaultThumbLightColor := StyleSheet colorAt:#'scroller.thumbLightColor'.
+    DefaultThumbHalfShadowColor := StyleSheet colorAt:#'scroller.thumbHalfShadowColor'.
+    DefaultThumbHalfLightColor := StyleSheet colorAt:#'scroller.thumbHalfLightColor'.
+    DefaultThumbFrameColor := StyleSheet colorAt:#'scroller.thumbFrameColor'.
+    DefaultGhostColor := StyleSheet colorAt:#'scroller.ghostColor' default:nil.
+    DefaultGhostFrameColor := StyleSheet colorAt:#'scroller.ghostFrameColor' default:nil.
+    DefaultGhostLevel := StyleSheet at:#'scroller.ghostLevel' default:0.
+    DefaultTallyMarks := StyleSheet at:#'scroller.NTallyMarks' default:0.
     DefaultTallyLevel := 0.
     DefaultTallyMarks ~~ 0 ifTrue:[
-        DefaultTallyLevel := StyleSheet at:'scroller.tallyLevel' default:1.
+        DefaultTallyLevel := StyleSheet at:#'scroller.tallyLevel' default:1.
     ].
-    DefaultLevel := StyleSheet at:'scroller.level' default:0.
-    DefaultBorderWidth := StyleSheet at:'scroller.borderWidth' default:(StyleSheet at:'borderWidth').
-    DefaultThumbLevel := StyleSheet at:'scroller.thumbLevel' default:0.
-    DefaultThumbActiveLevel := StyleSheet at:'scroller.thumbActiveLevel' default:DefaultThumbLevel.
-    DefaultInset := StyleSheet at:'scroller.thumbInset' default:0.
-    DefaultFixThumbHeight := StyleSheet at:'scroller.thumbFixHeight' default:false.
-    DefaultEdgeStyle := StyleSheet at:'scroller.thumbEdgeStyle'.
-    DefaultMiddleButtonJump := StyleSheet at:'scroller.middleButtonJump' default:false.
-    NewCursors := StyleSheet at:'scroller.newCursors' default:true.
-    DefaultThumbImage := StyleSheet at:'scroller.thumbImage'.
-    HandleImage := StyleSheet at:'scroller.handleImage'.
+    DefaultLevel := StyleSheet at:#'scroller.level' default:0.
+    DefaultBorderWidth := StyleSheet at:#'scroller.borderWidth' default:(StyleSheet at:#'borderWidth').
+    DefaultThumbLevel := StyleSheet at:#'scroller.thumbLevel' default:0.
+    DefaultThumbActiveLevel := StyleSheet at:#'scroller.thumbActiveLevel' default:DefaultThumbLevel.
+    DefaultInset := StyleSheet at:#'scroller.thumbInset' default:0.
+    DefaultFixThumbHeight := StyleSheet at:#'scroller.thumbFixHeight' default:false.
+    DefaultEdgeStyle := StyleSheet at:#'scroller.thumbEdgeStyle'.
+    DefaultMiddleButtonJump := StyleSheet at:#'scroller.middleButtonJump' default:false.
+    NewCursors := StyleSheet at:#'scroller.newCursors' default:true.
+    DefaultThumbImage := StyleSheet at:#'scroller.thumbImage'.
+    HandleImage := StyleSheet at:#'scroller.handleImage'.
 
     StyleSheet fileReadFailed ifTrue:[
         DefaultViewBackground := Grey.
@@ -2308,5 +2308,5 @@
 !Scroller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.123 1999-04-24 12:17:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.124 1999-04-24 14:37:21 cg Exp $'
 ! !
--- a/SelListV.st	Sat Apr 24 16:28:33 1999 +0200
+++ b/SelListV.st	Sat Apr 24 16:37:22 1999 +0200
@@ -825,9 +825,9 @@
         ^ RightArrowForm
     ].
 
-    f := StyleSheet at:'selection.rightArrowForm'.
+    f := StyleSheet at:#'selection.rightArrowForm'.
     f isNil ifTrue:[
-        fn := StyleSheet at:'selection.rightArrowFormFile' default:'RightArrow.xbm'.
+        fn := StyleSheet at:#'selection.rightArrowFormFile' default:'RightArrow.xbm'.
         f := Image fromFile:fn resolution:100 on:aDevice.
         f isNil ifTrue:[
             DefaultRightArrowStyle == #solid ifTrue:[
@@ -1017,19 +1017,19 @@
                        #'selection.shadowColor' #'selection.lightColor'
                        #'selection.font' #'selection.hilightStyle')>
 
-    DefaultDisabledForegroundColor := StyleSheet colorAt:'selection.disabledForegroundColor'.
-    DefaultHilightForegroundColor := StyleSheet colorAt:'selection.hilightForegroundColor'.
-    DefaultHilightBackgroundColor := StyleSheet colorAt:'selection.hilightBackgroundColor'.
-    DefaultHilightFrameColor := StyleSheet colorAt:'selection.hilightFrameColor'.
-    DefaultHilightLevel := StyleSheet at:'selection.hilightLevel' default:0.
-    DefaultHilightStyle := StyleSheet at:'selection.hilightStyle' default:(StyleSheet name).
-    DefaultRightArrowStyle := StyleSheet at:'selection.rightArrowStyle'.
-    DefaultRightArrowLevel := StyleSheet at:'selection.rightArrowLevel'.
-    DefaultForegroundColor := StyleSheet colorAt:'selection.foregroundColor'.
-    DefaultBackgroundColor := StyleSheet colorAt:'selection.backgroundColor'.
-    DefaultShadowColor := StyleSheet colorAt:'selection.shadowColor'.
-    DefaultLightColor := StyleSheet colorAt:'selection.lightColor'.
-    DefaultFont := StyleSheet fontAt:'selection.font'.
+    DefaultDisabledForegroundColor := StyleSheet colorAt:#'selection.disabledForegroundColor'.
+    DefaultHilightForegroundColor := StyleSheet colorAt:#'selection.hilightForegroundColor'.
+    DefaultHilightBackgroundColor := StyleSheet colorAt:#'selection.hilightBackgroundColor'.
+    DefaultHilightFrameColor := StyleSheet colorAt:#'selection.hilightFrameColor'.
+    DefaultHilightLevel := StyleSheet at:#'selection.hilightLevel' default:0.
+    DefaultHilightStyle := StyleSheet at:#'selection.hilightStyle' default:(StyleSheet name).
+    DefaultRightArrowStyle := StyleSheet at:#'selection.rightArrowStyle'.
+    DefaultRightArrowLevel := StyleSheet at:#'selection.rightArrowLevel'.
+    DefaultForegroundColor := StyleSheet colorAt:#'selection.foregroundColor'.
+    DefaultBackgroundColor := StyleSheet colorAt:#'selection.backgroundColor'.
+    DefaultShadowColor := StyleSheet colorAt:#'selection.shadowColor'.
+    DefaultLightColor := StyleSheet colorAt:#'selection.lightColor'.
+    DefaultFont := StyleSheet fontAt:#'selection.font'.
     RightArrowForm := nil.
 
     "
@@ -3600,5 +3600,5 @@
 !SelectionInListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/SelListV.st,v 1.146 1999-04-17 12:56:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/SelListV.st,v 1.147 1999-04-24 14:37:22 cg Exp $'
 ! !
--- a/SelectionInListView.st	Sat Apr 24 16:28:33 1999 +0200
+++ b/SelectionInListView.st	Sat Apr 24 16:37:22 1999 +0200
@@ -825,9 +825,9 @@
         ^ RightArrowForm
     ].
 
-    f := StyleSheet at:'selection.rightArrowForm'.
+    f := StyleSheet at:#'selection.rightArrowForm'.
     f isNil ifTrue:[
-        fn := StyleSheet at:'selection.rightArrowFormFile' default:'RightArrow.xbm'.
+        fn := StyleSheet at:#'selection.rightArrowFormFile' default:'RightArrow.xbm'.
         f := Image fromFile:fn resolution:100 on:aDevice.
         f isNil ifTrue:[
             DefaultRightArrowStyle == #solid ifTrue:[
@@ -1017,19 +1017,19 @@
                        #'selection.shadowColor' #'selection.lightColor'
                        #'selection.font' #'selection.hilightStyle')>
 
-    DefaultDisabledForegroundColor := StyleSheet colorAt:'selection.disabledForegroundColor'.
-    DefaultHilightForegroundColor := StyleSheet colorAt:'selection.hilightForegroundColor'.
-    DefaultHilightBackgroundColor := StyleSheet colorAt:'selection.hilightBackgroundColor'.
-    DefaultHilightFrameColor := StyleSheet colorAt:'selection.hilightFrameColor'.
-    DefaultHilightLevel := StyleSheet at:'selection.hilightLevel' default:0.
-    DefaultHilightStyle := StyleSheet at:'selection.hilightStyle' default:(StyleSheet name).
-    DefaultRightArrowStyle := StyleSheet at:'selection.rightArrowStyle'.
-    DefaultRightArrowLevel := StyleSheet at:'selection.rightArrowLevel'.
-    DefaultForegroundColor := StyleSheet colorAt:'selection.foregroundColor'.
-    DefaultBackgroundColor := StyleSheet colorAt:'selection.backgroundColor'.
-    DefaultShadowColor := StyleSheet colorAt:'selection.shadowColor'.
-    DefaultLightColor := StyleSheet colorAt:'selection.lightColor'.
-    DefaultFont := StyleSheet fontAt:'selection.font'.
+    DefaultDisabledForegroundColor := StyleSheet colorAt:#'selection.disabledForegroundColor'.
+    DefaultHilightForegroundColor := StyleSheet colorAt:#'selection.hilightForegroundColor'.
+    DefaultHilightBackgroundColor := StyleSheet colorAt:#'selection.hilightBackgroundColor'.
+    DefaultHilightFrameColor := StyleSheet colorAt:#'selection.hilightFrameColor'.
+    DefaultHilightLevel := StyleSheet at:#'selection.hilightLevel' default:0.
+    DefaultHilightStyle := StyleSheet at:#'selection.hilightStyle' default:(StyleSheet name).
+    DefaultRightArrowStyle := StyleSheet at:#'selection.rightArrowStyle'.
+    DefaultRightArrowLevel := StyleSheet at:#'selection.rightArrowLevel'.
+    DefaultForegroundColor := StyleSheet colorAt:#'selection.foregroundColor'.
+    DefaultBackgroundColor := StyleSheet colorAt:#'selection.backgroundColor'.
+    DefaultShadowColor := StyleSheet colorAt:#'selection.shadowColor'.
+    DefaultLightColor := StyleSheet colorAt:#'selection.lightColor'.
+    DefaultFont := StyleSheet fontAt:#'selection.font'.
     RightArrowForm := nil.
 
     "
@@ -3600,5 +3600,5 @@
 !SelectionInListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.146 1999-04-17 12:56:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.147 1999-04-24 14:37:22 cg Exp $'
 ! !
hg/stx-libwidg