The Trunk: ST80-dtl.92.mcz

David T. Lewis uploaded a new version of ST80 to project The Trunk:
http://source.squeak.org/trunk/ST80-dtl.92.mcz

==================== Summary ====================

Name: ST80-dtl.92
Author: dtl
Time: 6 February 2010, 5:05:29.21 pm
UUID: b52dae65-3353-4477-ad2e-34ffa9fc0a5a
Ancestors: ST80-nice.91

Add PluggableFileList>>mvcOpenLable:in: to remove explicit MVC dependency in PluggableFileList.

=============== Diff against ST80-nice.91 ===============

Item was added:
+ ----- Method: PluggableFileList>>mvcOpenLabel:in: (in category '*ST80-Pluggable Views') -----
+ mvcOpenLabel: ignored in: aWorld
+ "Open a view of an instance of me."
+ "PluggableFileList new open"
+ | topView volListView templateView fileListView fileStringView leftButtonView middleButtonView rightButtonView |
+
+ self directory: directory.
+ topView := (PluggableFileListView new)
+ model: self.
+
+ volListView := PluggableListView on: self
+ list: #volumeList
+ selected: #volumeListIndex
+ changeSelected: #volumeListIndex:
+ menu: #volumeMenu:.
+ volListView autoDeselect: false.
+ volListView window: (0@0 extent: 80@45).
+ topView addSubView: volListView.
+
+ templateView := PluggableTextView on: self
+ text: #pattern
+ accept: #pattern:.
+ templateView askBeforeDiscardingEdits: false.
+ templateView window: (0@0 extent: 80@15).
+ topView addSubView: templateView below: volListView.
+
+ fileListView := PluggableListView on: self
+ list: #fileList
+ selected: #fileListIndex
+ changeSelected: #fileListIndex:
+ menu: #fileListMenu:.
+ fileListView window: (0@0 extent: 120@60).
+
+ topView addSubView: fileListView toRightOf: volListView.
+
+ fileListView controller terminateDuringSelect: true.  "Pane to left may change under scrollbar"
+
+ "fileStringView := PluggableTextView on: self
+ text: #fileString
+ accept: #fileString:.
+ fileStringView askBeforeDiscardingEdits: false.
+ fileStringView window: (0@0 extent: 200@15).
+ topView addSubView: fileStringView below: templateView."
+ fileStringView := templateView.
+
+
+ leftButtonView := PluggableButtonView
+ on: self
+ getState: nil
+ action: #leftButtonPressed.
+ leftButtonView
+ label: 'Cancel';
+ backgroundColor: Color red;
+ borderWidth: 3;
+ window: (0@0 extent: 50@15).
+
+ middleButtonView := PluggableButtonView
+ on: self
+ getState: nil
+ action: nil.
+ middleButtonView
+ label: prompt;
+ window: (0@0 extent: 100@15);
+ borderWidth: 1;
+ controller: NoController new.
+
+ rightButtonView := PluggableButtonView
+ on: self
+ getState: nil
+ action: #rightButtonPressed.
+ rightButtonView
+ label: 'Accept';
+ backgroundColor: (self canAccept ifTrue: [Color green] ifFalse: [Color lightYellow]);
+ borderWidth: (self canAccept ifTrue: [3] ifFalse: [1]);
+ window: (0@0 extent: 50@15).
+ self canAccept ifFalse: [rightButtonView controller: NoController new].
+
+ topView acceptButtonView: rightButtonView.
+
+ topView
+ addSubView: leftButtonView below: fileStringView;
+ addSubView: middleButtonView toRightOf: leftButtonView;
+ addSubView: rightButtonView toRightOf: middleButtonView.
+
+ self changed: #getSelectionSel.
+ topView doModalDialog.
+
+ ^self result
+ !