# HG changeset patch # User Claus Gittinger # Date 886677796 -3600 # Node ID 19dddcff0f5f7d91eccdaeacee737d06f43fc5c9 # Parent 351914fcc5a4c6421500d958b0af6013ab20d419 changed defaultExtent (was way too small) diff -r 351914fcc5a4 -r 19dddcff0f5f FileSelectionBrowser.st --- a/FileSelectionBrowser.st Thu Feb 05 01:02:00 1998 +0100 +++ b/FileSelectionBrowser.st Thu Feb 05 12:23:16 1998 +0100 @@ -47,7 +47,9 @@ ! history + "Created: / 10.1.1998 / 11:00:06 / tz" + "Modified: #windowSpec / 5.2.1998 / 09:36:40 / cg" ! ! !FileSelectionBrowser class methodsFor:'instance creation'! @@ -134,14 +136,16 @@ ^ #(#FullSpec + #'attributes:' #() #'window:' #(#WindowSpec + #'attributes:' #() #'name:' 'File Selection Browser' - #'layout:' #(#LayoutFrame 207 0 351 0 606 0 650 0) + #'layout:' #(#LayoutFrame 62 0 234 0 560 0 540 0) #'label:' 'File Selection Browser' #'min:' #(#Point 10 10) #'max:' #(#Point 1152 900) - #'bounds:' #(#Rectangle 207 351 607 651) + #'bounds:' #(#Rectangle 62 234 561 541) #'usePreferredExtent:' false ) #'component:' @@ -149,6 +153,7 @@ #'collection:' #( #(#VariableHorizontalPanelSpec + #'attributes:' #() #'name:' 'panel' #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -40 1.0) #'component:' @@ -156,12 +161,14 @@ #'collection:' #( #(#ViewSpec + #'attributes:' #() #'name:' 'view1' #'component:' #(#SpecCollection #'collection:' #( #(#FileSelectionTreeSpec + #'attributes:' #() #'name:' 'directoryTreeView' #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) #'model:' #selectionOfDirectory @@ -178,12 +185,14 @@ ) ) #(#ViewSpec + #'attributes:' #() #'name:' 'view2' #'component:' #(#SpecCollection #'collection:' #( #(#InputFieldSpec + #'attributes:' #() #'name:' 'EditField' #'layout:' #(#LayoutFrame 1 0.0 -22 1 0 1.0 0 1) #'model:' #valueOfFileName @@ -191,6 +200,7 @@ #'acceptOnTab:' false ) #(#SubCanvasSpec + #'attributes:' #() #'name:' 'subCanvas1' #'layout:' #(#LayoutFrame 1 0.0 0 0.0 0 1.0 -22 1.0) #'clientHolder:' #directoryView @@ -203,6 +213,7 @@ #'handles:' #(#Any 0.5 1.0) ) #(#UISubSpecification + #'attributes:' #() #'name:' 'SubSpecification' #'layout:' #(#LayoutFrame 2 0.0 -32 1 -2 1.0 -8 1.0) #'majorKey:' #ToolApplicationModel @@ -211,6 +222,8 @@ ) ) ) + + "Modified: / 5.2.1998 / 09:36:40 / cg" ! ! !FileSelectionBrowser methodsFor:'accessing'!