diff -r 53c19d72ff59 -r 6c6716dd6642 FileBrowser.st --- a/FileBrowser.st Thu Sep 04 12:56:49 2003 +0200 +++ b/FileBrowser.st Thu Sep 04 20:57:09 2003 +0200 @@ -519,124 +519,120 @@ - ^ - - #(#FullSpec - #window: - #(#WindowSpec - #name: 'File Search' - #layout: #(#LayoutFrame 4 0 50 0 315 0 349 0) - #level: 0 - #label: 'File Search' - #min: #(#Point 10 10) - #max: #(#Point 1280 1024) - #bounds: #(#Rectangle 4 50 316 350) - #usePreferredExtent: false - #returnIsOKInDialog: true - #escapeIsCancelInDialog: true - ) - #component: - #(#SpecCollection - #collection: - #( - #(#LabelSpec - #name: 'Label1' - #layout: #(#LayoutFrame 0 0 10 0 0 1 32 0) - #label: 'Search for files named:' - #translateLabel: true - #adjust: #left - ) - #(#InputFieldSpec - #name: 'EntryField1' - #layout: #(#LayoutFrame 10 0 36 0 305 0 58 0) - #tabable: true - #model: #namePatternHolder - ) - #(#CheckBoxSpec - #name: 'CheckBox1' - #layout: #(#LayoutFrame 7 0 66 0 143 0 88 0) - #tabable: true - #model: #ignoreCaseInName - #label: 'Ignore case' - #translateLabel: true - ) - #(#LabelSpec - #name: 'Label2' - #layout: #(#LayoutFrame 0 0.0 107 0 0 1.0 129 0) - #label: 'Containing the string:' - #translateLabel: true - #adjust: #left - ) - #(#InputFieldSpec - #name: 'EntryField2' - #layout: #(#LayoutFrame 10 0 133 0 305 0 155 0) - #enableChannel: #notSearchForSameContents - #tabable: true - #model: #contentsPatternHolder - ) - #(#CheckBoxSpec - #name: 'CheckBox2' - #layout: #(#LayoutFrame 6 0 163 0 142 0 185 0) - #enableChannel: #notSearchForSameContents - #tabable: true - #model: #ignoreCaseInContents - #label: 'Ignore case' - #translateLabel: true - ) - #(#LabelSpec - #name: 'Label3' - #layout: #(#LayoutFrame 0 0.0 223 0 -30 1.0 245 0) - #label: 'Containing same contents as selected:' - #translateLabel: true - #adjust: #left - ) - #(#DividerSpec - #name: 'Separator1' - #layout: #(#LayoutFrame 0 0.0 97 0 0 1.0 101 0) - ) - #(#CheckToggleSpec - #name: 'CheckToggle1' - #layout: #(#LayoutOrigin -25 1 225 0) - #tabable: true - #model: #searchForSameContents - #enableChannel: #searchForSameContentsEnabled - #isTriggerOnDown: true - #showLamp: false - #lampColor: #(#Color 100.0 100.0 0.0) - ) - #(#HorizontalPanelViewSpec - #name: 'HorizontalPanel1' - #layout: #(#LayoutFrame 0 0.0 -30 1 0 1.0 0 1.0) - #component: - #(#SpecCollection - #collection: - #( - #(#ActionButtonSpec - #name: 'Button1' - #label: 'Cancel' - #translateLabel: true - #tabable: true - #model: #cancel - #extent: #(#Point 151 25) - ) - #(#ActionButtonSpec - #name: 'Button2' - #label: 'Search' - #translateLabel: true - #tabable: true - #model: #accept - #isDefault: true - #extent: #(#Point 152 25) - ) - ) - ) - #horizontalLayout: #fitSpace - #verticalLayout: #centerMax - #horizontalSpace: 3 - #verticalSpace: 3 - ) + ^ + #(FullSpec + name: fileSearchDialogSpec + window: + (WindowSpec + label: 'File Search' + name: 'File Search' + min: (Point 10 10) + bounds: (Rectangle 14 46 326 346) + ) + component: + (SpecCollection + collection: ( + (LabelSpec + label: 'Search for files named:' + name: 'Label1' + layout: (LayoutFrame 0 0 10 0 0 1 32 0) + translateLabel: true + adjust: left + ) + (InputFieldSpec + name: 'EntryField1' + layout: (LayoutFrame 10 0 36 0 305 0 58 0) + tabable: true + model: namePatternHolder + acceptOnPointerLeave: false + ) + (CheckBoxSpec + label: 'Ignore case' + name: 'CheckBox1' + layout: (LayoutFrame 7 0 66 0 143 0 88 0) + tabable: true + model: ignoreCaseInName + translateLabel: true + ) + (LabelSpec + label: 'Containing the string:' + name: 'Label2' + layout: (LayoutFrame 0 0.0 107 0 0 1.0 129 0) + translateLabel: true + adjust: left + ) + (InputFieldSpec + name: 'EntryField2' + layout: (LayoutFrame 10 0 133 0 305 0 155 0) + enableChannel: notSearchForSameContents + tabable: true + model: contentsPatternHolder + acceptOnPointerLeave: false + ) + (CheckBoxSpec + label: 'Ignore case' + name: 'CheckBox2' + layout: (LayoutFrame 6 0 163 0 142 0 185 0) + enableChannel: notSearchForSameContents + tabable: true + model: ignoreCaseInContents + translateLabel: true + ) + (LabelSpec + label: 'Containing same contents as selected:' + name: 'Label3' + layout: (LayoutFrame 0 0.0 223 0 -30 1.0 245 0) + translateLabel: true + adjust: left + ) + (DividerSpec + name: 'Separator1' + layout: (LayoutFrame 0 0.0 97 0 0 1.0 101 0) + ) + (CheckToggleSpec + name: 'CheckToggle1' + layout: (LayoutOrigin -25 1 225 0) + tabable: true + model: searchForSameContents + enableChannel: searchForSameContentsEnabled + isTriggerOnDown: true + showLamp: false + lampColor: (Color 100.0 100.0 0.0) + ) + (HorizontalPanelViewSpec + name: 'HorizontalPanel1' + layout: (LayoutFrame 0 0.0 -30 1 0 1.0 0 1.0) + horizontalLayout: fitSpace + verticalLayout: centerMax + horizontalSpace: 3 + verticalSpace: 3 + component: + (SpecCollection + collection: ( + (ActionButtonSpec + label: 'Cancel' + name: 'Button1' + translateLabel: true + tabable: true + model: cancel + extent: (Point 151 25) + ) + (ActionButtonSpec + label: 'Search' + name: 'Button2' + translateLabel: true + tabable: true + model: accept + isDefault: true + extent: (Point 152 25) + ) + ) + ) - ) + ) + ) + + ) ) ! ! @@ -7852,5 +7848,5 @@ !FileBrowser class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.543 2003-08-28 11:23:03 cg Exp $' + ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.544 2003-09-04 18:56:43 stefan Exp $' ! !