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.
new resource naming
authorClaus Gittinger <cg@exept.de>
Tue, 28 Oct 1997 20:25:29 +0100
changeset 1362 f2a9bc6ad68d
parent 1361 139f8063319c
child 1363 edac22036bf7
new resource naming
PullDMenu.st file | annotate | diff | comparison | revisions
PullDownMenu.st file | annotate | diff | comparison | revisions
ScrView.st file | annotate | diff | comparison | revisions
ScrollableView.st file | annotate | diff | comparison | revisions
VarPanel.st file | annotate | diff | comparison | revisions
VariablePanel.st file | annotate | diff | comparison | revisions 
--- a/PullDMenu.st	Tue Oct 28 20:00:14 1997 +0100
+++ b/PullDMenu.st	Tue Oct 28 20:25:29 1997 +0100
@@ -10,8 +10,6 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:3.2.1 on 20-oct-1997 at 2:10:38 pm'                  !
-
 View subclass:#PullDownMenu
 	instanceVariableNames:'receiver menus titles selectors activeMenuNumber
 		showSeparatingLines topMargin fgColor bgColor activeFgColor
@@ -1284,7 +1282,7 @@
 pullMenu:aNumber
     "activate a menu, return it or nil"
 
-    <resource: #style (#pullDownMenuAutoselectFirst)>
+    <resource: #style (#'pullDownMenu.autoselectFirst')>
 
     |subMenu r posY|
 
@@ -1318,13 +1316,13 @@
         ].
         subMenu raise show.
 
-        (styleSheet at:#pullDownMenuAutoselectFirst) == true ifTrue:[
+        (styleSheet at:#'pullDownMenu.autoselectFirst') == true ifTrue:[
             subMenu setSelection:1
         ]
     ].
     ^ subMenu
 
-    "Modified: 12.6.1996 / 14:54:09 / cg"
+    "Modified: / 26.10.1997 / 17:04:00 / cg"
 !
 
 regainControl
@@ -1743,5 +1741,5 @@
 !PullDownMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/PullDMenu.st,v 1.78 1997-10-21 18:15:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/PullDMenu.st,v 1.79 1997-10-28 19:24:08 cg Exp $'
 ! !
--- a/PullDownMenu.st	Tue Oct 28 20:00:14 1997 +0100
+++ b/PullDownMenu.st	Tue Oct 28 20:25:29 1997 +0100
@@ -10,8 +10,6 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:3.2.1 on 20-oct-1997 at 2:10:38 pm'                  !
-
 View subclass:#PullDownMenu
 	instanceVariableNames:'receiver menus titles selectors activeMenuNumber
 		showSeparatingLines topMargin fgColor bgColor activeFgColor
@@ -1284,7 +1282,7 @@
 pullMenu:aNumber
     "activate a menu, return it or nil"
 
-    <resource: #style (#pullDownMenuAutoselectFirst)>
+    <resource: #style (#'pullDownMenu.autoselectFirst')>
 
     |subMenu r posY|
 
@@ -1318,13 +1316,13 @@
         ].
         subMenu raise show.
 
-        (styleSheet at:#pullDownMenuAutoselectFirst) == true ifTrue:[
+        (styleSheet at:#'pullDownMenu.autoselectFirst') == true ifTrue:[
             subMenu setSelection:1
         ]
     ].
     ^ subMenu
 
-    "Modified: 12.6.1996 / 14:54:09 / cg"
+    "Modified: / 26.10.1997 / 17:04:00 / cg"
 !
 
 regainControl
@@ -1743,5 +1741,5 @@
 !PullDownMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.78 1997-10-21 18:15:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.79 1997-10-28 19:24:08 cg Exp $'
 ! !
--- a/ScrView.st	Tue Oct 28 20:00:14 1997 +0100
+++ b/ScrView.st	Tue Oct 28 20:25:29 1997 +0100
@@ -10,8 +10,6 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:3.2.1 on 22-oct-1997 at 4:04:37 pm'                  !
-
 SimpleView subclass:#ScrollableView
 	instanceVariableNames:'scrolledView vScrollBar hScrollBar scrollBarPosition lockUpdates
 		hideScrollBars hasHorizontalScrollBar hasVerticalScrollBar
@@ -1330,16 +1328,16 @@
 initStyle
     "initialize style specifics"
 
-    <resource: #style (#scrollBarPosition #scrollBarHiding)>
+    <resource: #style (#'scrollBar.position' #'scrollBar.hiding')>
 
     super initStyle.
 
     viewBackground := MyDefaultViewBackgroundColor. 
-    scrollBarPosition := styleSheet at:'scrollBarPosition' default:#left.
-    hideScrollBars := styleSheet at:'scrollBarHiding' default:false.
+    scrollBarPosition := styleSheet at:'scrollBar.position' default:#left.
+    hideScrollBars := styleSheet at:'scrollBar.hiding' default:false.
 
-    "Created: 6.3.1997 / 18:06:23 / cg"
-    "Modified: 19.3.1997 / 16:32:59 / cg"
+    "Created: / 6.3.1997 / 18:06:23 / cg"
+    "Modified: / 26.10.1997 / 17:07:17 / cg"
 !
 
 initialize
@@ -1894,5 +1892,5 @@
 !ScrollableView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ScrView.st,v 1.74 1997-10-22 13:16:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ScrView.st,v 1.75 1997-10-28 19:24:44 cg Exp $'
 ! !
--- a/ScrollableView.st	Tue Oct 28 20:00:14 1997 +0100
+++ b/ScrollableView.st	Tue Oct 28 20:25:29 1997 +0100
@@ -10,8 +10,6 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:3.2.1 on 22-oct-1997 at 4:04:37 pm'                  !
-
 SimpleView subclass:#ScrollableView
 	instanceVariableNames:'scrolledView vScrollBar hScrollBar scrollBarPosition lockUpdates
 		hideScrollBars hasHorizontalScrollBar hasVerticalScrollBar
@@ -1330,16 +1328,16 @@
 initStyle
     "initialize style specifics"
 
-    <resource: #style (#scrollBarPosition #scrollBarHiding)>
+    <resource: #style (#'scrollBar.position' #'scrollBar.hiding')>
 
     super initStyle.
 
     viewBackground := MyDefaultViewBackgroundColor. 
-    scrollBarPosition := styleSheet at:'scrollBarPosition' default:#left.
-    hideScrollBars := styleSheet at:'scrollBarHiding' default:false.
+    scrollBarPosition := styleSheet at:'scrollBar.position' default:#left.
+    hideScrollBars := styleSheet at:'scrollBar.hiding' default:false.
 
-    "Created: 6.3.1997 / 18:06:23 / cg"
-    "Modified: 19.3.1997 / 16:32:59 / cg"
+    "Created: / 6.3.1997 / 18:06:23 / cg"
+    "Modified: / 26.10.1997 / 17:07:17 / cg"
 !
 
 initialize
@@ -1894,5 +1892,5 @@
 !ScrollableView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.74 1997-10-22 13:16:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.75 1997-10-28 19:24:44 cg Exp $'
 ! !
--- a/VarPanel.st	Tue Oct 28 20:00:14 1997 +0100
+++ b/VarPanel.st	Tue Oct 28 20:25:29 1997 +0100
@@ -10,8 +10,6 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:3.2.1 on 14-oct-1997 at 11:25:13 pm'                 !
-
 SimpleView subclass:#VariablePanel
 	instanceVariableNames:'barHeight barWidth separatingLine shadowForm lightForm showHandle
 		handlePosition handleColor handleStyle handleLevel noColor
@@ -1159,7 +1157,7 @@
     "compute the height if the separating bar from either the
      form or an explicit height given in the styleSheet"
 
-    <resource: #style (#variablePanelBarHeight)>
+    <resource: #style (#'variablePanel.barHeight')>
 
     |bH h|
 
@@ -1171,7 +1169,7 @@
         ] ifFalse:[
             h := 2
         ].
-        bH := styleSheet at:#variablePanelBarHeight.
+        bH := styleSheet at:'variablePanel.barHeight'.
         bH isNil ifTrue:[
             bH := (h * device verticalPixelPerMillimeter) rounded.
         ].
@@ -1193,7 +1191,7 @@
 
     self barHeight:bH.
 
-    "Modified: 17.1.1997 / 23:20:40 / cg"
+    "Modified: / 26.10.1997 / 17:06:30 / cg"
 !
 
 defaultControllerClass
@@ -1500,5 +1498,5 @@
 !VariablePanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/VarPanel.st,v 1.34 1997-10-15 11:28:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/VarPanel.st,v 1.35 1997-10-28 19:25:29 cg Exp $'
 ! !
--- a/VariablePanel.st	Tue Oct 28 20:00:14 1997 +0100
+++ b/VariablePanel.st	Tue Oct 28 20:25:29 1997 +0100
@@ -10,8 +10,6 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:3.2.1 on 14-oct-1997 at 11:25:13 pm'                 !
-
 SimpleView subclass:#VariablePanel
 	instanceVariableNames:'barHeight barWidth separatingLine shadowForm lightForm showHandle
 		handlePosition handleColor handleStyle handleLevel noColor
@@ -1159,7 +1157,7 @@
     "compute the height if the separating bar from either the
      form or an explicit height given in the styleSheet"
 
-    <resource: #style (#variablePanelBarHeight)>
+    <resource: #style (#'variablePanel.barHeight')>
 
     |bH h|
 
@@ -1171,7 +1169,7 @@
         ] ifFalse:[
             h := 2
         ].
-        bH := styleSheet at:#variablePanelBarHeight.
+        bH := styleSheet at:'variablePanel.barHeight'.
         bH isNil ifTrue:[
             bH := (h * device verticalPixelPerMillimeter) rounded.
         ].
@@ -1193,7 +1191,7 @@
 
     self barHeight:bH.
 
-    "Modified: 17.1.1997 / 23:20:40 / cg"
+    "Modified: / 26.10.1997 / 17:06:30 / cg"
 !
 
 defaultControllerClass
@@ -1500,5 +1498,5 @@
 !VariablePanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.34 1997-10-15 11:28:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.35 1997-10-28 19:25:29 cg Exp $'
 ! !
hg/stx-libwidg