Mercurial Mercurial > hg > stx-libtool2 / 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.
geometry
authorClaus Gittinger <cg@exept.de>
Fri, 06 Feb 1998 03:43:42 +0100
changeset 607 8b6cd53f93b8
parent 606 bf51357a8917
child 608 8610ea5b501d
geometry
DirectoryView.st file | annotate | diff | comparison | revisions
FileSelectionBrowser.st file | annotate | diff | comparison | revisions 
--- a/DirectoryView.st	Fri Feb 06 00:38:12 1998 +0100
+++ b/DirectoryView.st	Fri Feb 06 03:43:42 1998 +0100
@@ -89,11 +89,11 @@
           #'window:' 
            #(#WindowSpec
               #'name:' 'Directory View'
-              #'layout:' #(#LayoutFrame 194 0 152 0 593 0 451 0)
+              #'layout:' #(#LayoutFrame 64 0 703 0 463 0 1002 0)
               #'label:' 'Directory View'
               #'min:' #(#Point 10 10)
               #'max:' #(#Point 1152 900)
-              #'bounds:' #(#Rectangle 194 152 594 452)
+              #'bounds:' #(#Rectangle 64 703 464 1003)
               #'usePreferredExtent:' false
           )
           #'component:' 
@@ -102,7 +102,7 @@
                #(
                  #(#DataSetSpec
                     #'name:' 'filesDataSetView'
-                    #'layout:' #(#LayoutFrame 0 0.0 22 0.0 0 1.0 0 1.0)
+                    #'layout:' #(#LayoutFrame 0 0.0 24 0.0 -2 1.0 0 1.0)
                     #'model:' #selectionOfFile
                     #'hasHorizontalScrollBar:' true
                     #'hasVerticalScrollBar:' true
@@ -125,6 +125,8 @@
               )
           )
       )
+
+    "Modified: / 6.2.1998 / 03:42:15 / cg"
 !
 
 windowSpecOfFileAttributeColumns
@@ -141,14 +143,14 @@
        #(#DataSetColumnSpec
           #'label:' 'File name'
           #'labelAlignment:' #left
-          #'minWidth:' 100
+          #'minWidth:' 150
           #'model:' #baseName
           #'canSelect:' false
       )
        #(#DataSetColumnSpec
           #'label:' 'Size'
           #'labelAlignment:' #left
-          #'width:' 50
+          #'width:' 70
           #'model:' #size
           #'canSelect:' false
       )
@@ -181,6 +183,7 @@
       )
     )
 
+    "Modified: / 6.2.1998 / 03:40:16 / cg"
 ! !
 
 !DirectoryView methodsFor:'accessing'!
@@ -714,14 +717,13 @@
 !
 
 size
+    size isNumber ifFalse:[^ size].
+    size < 1000        ifTrue: [^ size printString].
+    size < (100*1024)  ifTrue: [^(((size/1024) * 10) asInteger/10) asFloat printString, ' Kb'].
+    size < (1000*1024) ifTrue: [^(((size/1024)) asInteger) printString, ' Kb'].
+    ^(((size/1048576) * 10) asInteger/10) asFloat printString, ' Mb'
 
-    size < 1024    ifTrue: [^size printString, ' B'].
-    size < 1048576 ifTrue: [^(((size/1024) * 10) asInteger/10) asFloat printString, ' KB'].
-    ^(((size/1048576) * 10) asInteger/10) asFloat printString, ' MB'
-
-
-
-
+    "Modified: / 6.2.1998 / 03:38:45 / cg"
 ! !
 
 !DirectoryView::FileRow methodsFor:'private'!
--- a/FileSelectionBrowser.st	Fri Feb 06 00:38:12 1998 +0100
+++ b/FileSelectionBrowser.st	Fri Feb 06 03:43:42 1998 +0100
@@ -132,11 +132,11 @@
           #'window:' 
            #(#WindowSpec
               #'name:' 'File Selection Browser'
-              #'layout:' #(#LayoutFrame 106 0 175 0 605 0 524 0)
+              #'layout:' #(#LayoutFrame 230 0 472 0 897 0 821 0)
               #'label:' 'File Selection Browser'
               #'min:' #(#Point 10 10)
               #'max:' #(#Point 1152 900)
-              #'bounds:' #(#Rectangle 106 175 606 525)
+              #'bounds:' #(#Rectangle 230 472 898 822)
               #'usePreferredExtent:' false
           )
           #'component:' 
@@ -171,7 +171,7 @@
                                     )
                                      #(#InputFieldSpec
                                         #'name:' 'directoryInputField'
-                                        #'layout:' #(#LayoutFrame 0 0.0 -22 1 0 1.0 0 1)
+                                        #'layout:' #(#LayoutFrame 2 0.0 -22 1 0 1.0 0 1)
                                         #'model:' #selectionOfDirectory
                                         #'immediateAccept:' false
                                     )
@@ -186,7 +186,7 @@
                                    #(
                                      #(#InputFieldSpec
                                         #'name:' 'EditField'
-                                        #'layout:' #(#LayoutFrame 1 0.0 -22 1 0 1.0 0 1)
+                                        #'layout:' #(#LayoutFrame 1 0.0 -22 1 -2 1.0 0 1)
                                         #'model:' #valueOfFileName
                                         #'acceptOnReturn:' false
                                         #'acceptOnTab:' false
@@ -205,13 +205,15 @@
                 )
                  #(#UISubSpecification
                     #'name:' 'SubSpecification'
-                    #'layout:' #(#LayoutFrame 2 0.0 -32 1 -2 1.0 -8 1.0)
+                    #'layout:' #(#LayoutFrame 2 0.0 -32 1 0 1.0 -8 1.0)
                     #'majorKey:' #ToolApplicationModel
                     #'minorKey:' #windowSpecForCommitWithoutChannels
                 )
               )
           )
       )
+
+    "Modified: / 6.2.1998 / 03:42:48 / cg"
 ! !
 
 !FileSelectionBrowser methodsFor:'accessing'!
hg/stx-libtool2