Mercurial Mercurial > hg > stx-libwidg2 / 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>
Tue, 21 Oct 1997 20:33:10 +0200
changeset 566 11ca5c6ba3d8
parent 565 3e5a63d29d36
child 567 01083cbb4bae
*** empty log message ***
CheckBox.st file | annotate | diff | comparison | revisions
FNmEntrBox.st file | annotate | diff | comparison | revisions
FilenameEnterBox.st file | annotate | diff | comparison | revisions
HierNode.st file | annotate | diff | comparison | revisions
HierarchyNode.st file | annotate | diff | comparison | revisions
TabSpecRuler.st file | annotate | diff | comparison | revisions 
--- a/CheckBox.st	Thu Oct 16 15:21:51 1997 +0200
+++ b/CheckBox.st	Tue Oct 21 20:33:10 1997 +0200
@@ -11,7 +11,7 @@
 "
 
 
-'From Smalltalk/X, Version:3.1.10 on 14-sep-1997 at 12:13:10 am'                !
+'From Smalltalk/X, Version:3.2.1 on 20-oct-1997 at 2:09:03 pm'                  !
 
 HorizontalPanelView subclass:#CheckBox
 	instanceVariableNames:'toggleView labelView labelForegroundColor
@@ -284,20 +284,20 @@
 updateStyleCache
     "extract values from the styleSheet and cache them in class variables"
 
-    <resource: #style (#checkBoxLabelForegroundColor 
-                       #checkBoxDisabledLabelForegroundColor
-                       #checkBoxToggleLeft)>
+    <resource: #style (#'checkBox.labelForegroundColor' 
+                       #'checkBox.disabledLabelForegroundColor'
+                       #'checkBox.toggleLeft')>
 
-    DefaultLabelForegroundColor := StyleSheet colorAt:'checkBoxLabelForegroundColor'.
-    DefaultDisabledLabelForegroundColor := StyleSheet colorAt:'checkBoxDisabledLabelForegroundColor'.
-    CheckToggleLeft := StyleSheet at:'checkBoxToggleLeft' default:true
+    DefaultLabelForegroundColor := StyleSheet colorAt:'checkBox.labelForegroundColor'.
+    DefaultDisabledLabelForegroundColor := StyleSheet colorAt:'checkBox.disabledLabelForegroundColor'.
+    CheckToggleLeft := StyleSheet at:'checkBox.toggleLeft' default:true
 
     "
      self updateStyleCache
     "
 
     "Created: 14.12.1995 / 14:47:22 / cg"
-    "Modified: 7.3.1997 / 17:47:47 / cg"
+    "Modified: 20.10.1997 / 13:51:30 / cg"
 ! !
 
 !CheckBox methodsFor:'accessing - components'!
@@ -711,5 +711,5 @@
 !CheckBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.47 1997-09-15 20:45:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.48 1997-10-21 18:33:07 cg Exp $'
 ! !
--- a/FNmEntrBox.st	Thu Oct 16 15:21:51 1997 +0200
+++ b/FNmEntrBox.st	Tue Oct 21 20:33:10 1997 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+'From Smalltalk/X, Version:3.2.1 on 18-oct-1997 at 3:25:44 pm'                  !
+
 EnterBox subclass:#FilenameEnterBox
 	instanceVariableNames:''
 	classVariableNames:''
@@ -45,6 +47,20 @@
         EnterBox FileSelectionBox FileSaveBox
         DialogBox
 "
+!
+
+examples 
+"
+    examples (for ST-80 compatibility, please use Dialog messages):
+
+    simple (most common):
+                                                                        [exBegin]
+        |someString|
+
+        someString := FilenameEnterBox request:'enter a filename:'.
+        Transcript showCR:someString
+                                                                        [exEnd]
+"
 ! !
 
 !FilenameEnterBox methodsFor:'accessing'!
@@ -86,5 +102,5 @@
 !FilenameEnterBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/FNmEntrBox.st,v 1.12 1996-05-16 10:24:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/FNmEntrBox.st,v 1.13 1997-10-21 18:33:08 cg Exp $'
 ! !
--- a/FilenameEnterBox.st	Thu Oct 16 15:21:51 1997 +0200
+++ b/FilenameEnterBox.st	Tue Oct 21 20:33:10 1997 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+'From Smalltalk/X, Version:3.2.1 on 18-oct-1997 at 3:25:44 pm'                  !
+
 EnterBox subclass:#FilenameEnterBox
 	instanceVariableNames:''
 	classVariableNames:''
@@ -45,6 +47,20 @@
         EnterBox FileSelectionBox FileSaveBox
         DialogBox
 "
+!
+
+examples 
+"
+    examples (for ST-80 compatibility, please use Dialog messages):
+
+    simple (most common):
+                                                                        [exBegin]
+        |someString|
+
+        someString := FilenameEnterBox request:'enter a filename:'.
+        Transcript showCR:someString
+                                                                        [exEnd]
+"
 ! !
 
 !FilenameEnterBox methodsFor:'accessing'!
@@ -86,5 +102,5 @@
 !FilenameEnterBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/FilenameEnterBox.st,v 1.12 1996-05-16 10:24:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/FilenameEnterBox.st,v 1.13 1997-10-21 18:33:08 cg Exp $'
 ! !
--- a/HierNode.st	Thu Oct 16 15:21:51 1997 +0200
+++ b/HierNode.st	Tue Oct 21 20:33:10 1997 +0200
@@ -301,7 +301,7 @@
 !HierarchyNode methodsFor:'copy'!
 
 copyWithParent:aParent
-    |node chd|
+    |node|
 
     node := self copy.
     node parent:aParent.
@@ -598,5 +598,5 @@
 !HierarchyNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/HierNode.st,v 1.11 1997-07-04 18:42:20 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/HierNode.st,v 1.12 1997-10-21 18:33:09 cg Exp $'
 ! !
--- a/HierarchyNode.st	Thu Oct 16 15:21:51 1997 +0200
+++ b/HierarchyNode.st	Tue Oct 21 20:33:10 1997 +0200
@@ -301,7 +301,7 @@
 !HierarchyNode methodsFor:'copy'!
 
 copyWithParent:aParent
-    |node chd|
+    |node|
 
     node := self copy.
     node parent:aParent.
@@ -598,5 +598,5 @@
 !HierarchyNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchyNode.st,v 1.11 1997-07-04 18:42:20 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchyNode.st,v 1.12 1997-10-21 18:33:09 cg Exp $'
 ! !
--- a/TabSpecRuler.st	Thu Oct 16 15:21:51 1997 +0200
+++ b/TabSpecRuler.st	Tue Oct 21 20:33:10 1997 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+'From Smalltalk/X, Version:3.2.1 on 20-oct-1997 at 3:15:06 pm'                  !
+
 SimpleView subclass:#TabSpecRuler
 	instanceVariableNames:'tabSpec titles handleStyle handleCursor movedTabIndex movedTabX
 		synchronousOperation handleWidth fixedTabs tabsAreVariable
@@ -98,8 +100,11 @@
 !TabSpecRuler class methodsFor:'defaults'!
 
 updateStyleCache
-    DefaultHandleStyle := StyleSheet at:'tabRulerHandleStyle'.
+    <resource: #style (#'tabRuler.handleStyle')>
 
+    DefaultHandleStyle := StyleSheet at:'tabRuler.handleStyle'.
+
+    "Modified: 20.10.1997 / 15:14:47 / cg"
 ! !
 
 !TabSpecRuler methodsFor:'accessing'!
@@ -455,5 +460,5 @@
 !TabSpecRuler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/TabSpecRuler.st,v 1.12 1997-04-18 16:16:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/TabSpecRuler.st,v 1.13 1997-10-21 18:33:10 cg Exp $'
 ! !
hg/stx-libwidg2