Mercurial Mercurial > hg > stx-libtool / 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:36 +0100
changeset 2050 5ef6404d6172
parent 2049 d1916735ac5e
child 2051 3fb19889b83d
checkin from browser
BrowserView.st file | annotate | diff | comparison | revisions
BrwsrView.st file | annotate | diff | comparison | revisions
FBrowser.st file | annotate | diff | comparison | revisions
FileBrowser.st file | annotate | diff | comparison | revisions 
--- a/BrowserView.st	Sat Mar 06 03:49:17 1999 +0100
+++ b/BrowserView.st	Sat Mar 06 04:04:36 1999 +0100
@@ -1263,6 +1263,8 @@
     "common code for both opening a new browser on a class and
      to search for a class in this browser"
 
+    <resource: #style (#'dialogBox.okAtLeft')>
+
     |box openButton title open okText okText2 className brwsr|
 
     open := doOpen.
@@ -1278,7 +1280,7 @@
     box := self enterBoxForCodeSelectionTitle:title okText:okText.
     box label:(resources string:'browse or search class').
     openButton := Button label:(resources string:okText2).
-    (DialogBox styleSheet at:'dialogBox.okAtLeft') ifTrue:[
+    (DialogBox styleSheet at:'dialogBox.okAtLeft' default:false) ifTrue:[
         box addButton:openButton before:(box okButton).
     ] ifFalse:[
         box addButton:openButton after:(box okButton).
@@ -12761,6 +12763,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.477 1999-03-06 02:15:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.478 1999-03-06 03:03:36 cg Exp $'
 ! !
 BrowserView initialize!
--- a/BrwsrView.st	Sat Mar 06 03:49:17 1999 +0100
+++ b/BrwsrView.st	Sat Mar 06 04:04:36 1999 +0100
@@ -1263,6 +1263,8 @@
     "common code for both opening a new browser on a class and
      to search for a class in this browser"
 
+    <resource: #style (#'dialogBox.okAtLeft')>
+
     |box openButton title open okText okText2 className brwsr|
 
     open := doOpen.
@@ -1278,7 +1280,7 @@
     box := self enterBoxForCodeSelectionTitle:title okText:okText.
     box label:(resources string:'browse or search class').
     openButton := Button label:(resources string:okText2).
-    (DialogBox styleSheet at:'dialogBox.okAtLeft') ifTrue:[
+    (DialogBox styleSheet at:'dialogBox.okAtLeft' default:false) ifTrue:[
         box addButton:openButton before:(box okButton).
     ] ifFalse:[
         box addButton:openButton after:(box okButton).
@@ -12761,6 +12763,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.477 1999-03-06 02:15:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.478 1999-03-06 03:03:36 cg Exp $'
 ! !
 BrowserView initialize!
--- a/FBrowser.st	Sat Mar 06 03:49:17 1999 +0100
+++ b/FBrowser.st	Sat Mar 06 04:04:36 1999 +0100
@@ -2998,6 +2998,7 @@
     menuPanel verticalLayout:false.
     menuPanel receiver:self.
     menuPanel menu:(self pullDownMenu).
+
     mH := menuPanel preferredExtent y.
     menuPanel origin:(0.0 @ 0.0) corner:(1.0 @ (mH)).
 
@@ -6325,5 +6326,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/FBrowser.st,v 1.294 1999-03-06 02:14:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/FBrowser.st,v 1.295 1999-03-06 03:04:36 cg Exp $'
 ! !
--- a/FileBrowser.st	Sat Mar 06 03:49:17 1999 +0100
+++ b/FileBrowser.st	Sat Mar 06 04:04:36 1999 +0100
@@ -2998,6 +2998,7 @@
     menuPanel verticalLayout:false.
     menuPanel receiver:self.
     menuPanel menu:(self pullDownMenu).
+
     mH := menuPanel preferredExtent y.
     menuPanel origin:(0.0 @ 0.0) corner:(1.0 @ (mH)).
 
@@ -6325,5 +6326,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.294 1999-03-06 02:14:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.295 1999-03-06 03:04:36 cg Exp $'
 ! !
hg/stx-libtool