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.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Sat, 06 Mar 1999 04:04:04 +0100
changeset 1764 45ca6b617934
parent 1763 1c6be8158c27
child 1765 08ec8662c842
checkin from browser
DialogBox.st file | annotate | diff | comparison | revisions
EnterBox2.st file | annotate | diff | comparison | revisions
FSaveBox.st file | annotate | diff | comparison | revisions
FileSaveBox.st file | annotate | diff | comparison | revisions
YesNoBox.st file | annotate | diff | comparison | revisions 
--- a/DialogBox.st	Sat Mar 06 03:14:43 1999 +0100
+++ b/DialogBox.st	Sat Mar 06 04:04:04 1999 +0100
@@ -3744,9 +3744,11 @@
      methods in subclasses or when creating a box programmatically.
      Returns the button."
 
+    <resource: #style (#'dialogBox.okAtLeft')>
+
     abortButton := aButton.
     aButton model:self; change:#abortPressed.
-    (styleSheet at:'dialogBox.okAtLeft') ifTrue:[
+    (styleSheet at:'dialogBox.okAtLeft' default:false) ifTrue:[
         self addButton:aButton after:nil.
     ] ifFalse:[
         self addButton:aButton before:nil.
@@ -3937,13 +3939,15 @@
      text under either the doc/online/<language> or the help/<language>
      directory."
 
+    <resource: #style (#'dialogBox.okAtLeft')>
+
     |helpButton|
 
     helpButton := Button label:(resources string:'help').
     helpButton action:[
         self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:pathToHelpText]
     ].
-    (styleSheet at:'dialogBox.okAtLeft') ifTrue:[
+    (styleSheet at:'dialogBox.okAtLeft' default:false) ifTrue:[
         self addButton:helpButton after:nil.
     ] ifFalse:[
         self addButton:helpButton before:nil.
@@ -3990,9 +3994,13 @@
      methods in subclasses or when creating a box programmatically.
      Returns the button."
 
-    okButton isNil ifTrue:[okButton := aButton].
+    <resource: #style (#'dialogBox.okAtLeft')>
+
+"/    okButton isNil ifTrue:[
+        okButton := aButton.
+"/    ].
     aButton model:self; change:#okPressed.
-    (styleSheet at:'dialogBox.okAtLeft') ifTrue:[
+    (styleSheet at:'dialogBox.okAtLeft' default:false) ifTrue:[
         self addButton:aButton before:nil.
     ] ifFalse:[
         self addButton:aButton after:nil.
@@ -5916,6 +5924,6 @@
 !DialogBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.130 1999-03-06 02:14:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.131 1999-03-06 03:04:04 cg Exp $'
 ! !
 DialogBox initialize!
--- a/EnterBox2.st	Sat Mar 06 03:14:43 1999 +0100
+++ b/EnterBox2.st	Sat Mar 06 04:04:04 1999 +0100
@@ -77,7 +77,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EnterBox2.st,v 1.19 1999-03-06 01:59:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EnterBox2.st,v 1.20 1999-03-06 03:03:56 cg Exp $'
 ! !
 
 !EnterBox2 methodsFor:'accessing'!
@@ -110,13 +110,15 @@
 !EnterBox2 methodsFor:'initialization'!
 
 initialize
+    <resource: #style (#'dialogBox.okAtLeft')>
+
     super initialize.
 
     "
      add a second ok-button (a return button)
     "
     okButton2 := Button okButton.
-    (styleSheet at:'dialogBox.okAtLeft') ifTrue:[
+    (styleSheet at:'dialogBox.okAtLeft'default:false) ifTrue:[
         buttonPanel addSubView:okButton2 before:okButton.
     ] ifFalse:[
         buttonPanel addSubView:okButton2 after:okButton.
--- a/FSaveBox.st	Sat Mar 06 03:14:43 1999 +0100
+++ b/FSaveBox.st	Sat Mar 06 04:04:04 1999 +0100
@@ -64,6 +64,8 @@
 !FileSaveBox methodsFor:'initialization'!
 
 initialize
+    <resource: #style (#'dialogBox.okAtLeft')>
+
     super initialize.
 
     label := resources string:'Save file dialog'.
@@ -77,7 +79,7 @@
     appendButton isReturnButton:false.
     appendButton label:(resources string:'append').
     appendButton action:[appendButton turnOffWithoutRedraw. self appendPressed].
-    (styleSheet at:'dialogBox.okAtLeft') ifTrue:[
+    (styleSheet at:'dialogBox.okAtLeft' default:false) ifTrue:[
         self addButton:appendButton after:okButton.
     ] ifFalse:[
         self addButton:appendButton before:okButton.
@@ -101,5 +103,5 @@
 !FileSaveBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/FSaveBox.st,v 1.13 1999-03-06 02:08:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/FSaveBox.st,v 1.14 1999-03-06 03:03:50 cg Exp $'
 ! !
--- a/FileSaveBox.st	Sat Mar 06 03:14:43 1999 +0100
+++ b/FileSaveBox.st	Sat Mar 06 04:04:04 1999 +0100
@@ -64,6 +64,8 @@
 !FileSaveBox methodsFor:'initialization'!
 
 initialize
+    <resource: #style (#'dialogBox.okAtLeft')>
+
     super initialize.
 
     label := resources string:'Save file dialog'.
@@ -77,7 +79,7 @@
     appendButton isReturnButton:false.
     appendButton label:(resources string:'append').
     appendButton action:[appendButton turnOffWithoutRedraw. self appendPressed].
-    (styleSheet at:'dialogBox.okAtLeft') ifTrue:[
+    (styleSheet at:'dialogBox.okAtLeft' default:false) ifTrue:[
         self addButton:appendButton after:okButton.
     ] ifFalse:[
         self addButton:appendButton before:okButton.
@@ -101,5 +103,5 @@
 !FileSaveBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/FileSaveBox.st,v 1.13 1999-03-06 02:08:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/FileSaveBox.st,v 1.14 1999-03-06 03:03:50 cg Exp $'
 ! !
--- a/YesNoBox.st	Sat Mar 06 03:14:43 1999 +0100
+++ b/YesNoBox.st	Sat Mar 06 04:04:04 1999 +0100
@@ -332,7 +332,7 @@
     okButton label:(resources string:'yes').
 
     abortButton := Button abortButton.
-    (styleSheet at:'dialogBox.okAtLeft') ifTrue:[
+    (styleSheet at:'dialogBox.okAtLeft' default:false) ifTrue:[
         buttonPanel addSubView:abortButton after:okButton.
     ] ifFalse:[
         buttonPanel addSubView:abortButton before:okButton.
@@ -428,5 +428,5 @@
 !YesNoBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/YesNoBox.st,v 1.40 1999-03-06 01:58:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/YesNoBox.st,v 1.41 1999-03-06 03:03:42 cg Exp $'
 ! !
hg/stx-libwidg