The Trunk: 60Deprecated-pre.25.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: 60Deprecated-pre.25.mcz

commits-2
Patrick Rein uploaded a new version of 60Deprecated to project The Trunk:
http://source.squeak.org/trunk/60Deprecated-pre.25.mcz

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

Name: 60Deprecated-pre.25
Author: pre
Time: 13 October 2018, 2:25:15.766477 pm
UUID: d9e05404-90d5-4047-bf7a-37e2edb39963
Ancestors: 60Deprecated-ul.24

Deprecates the mvcOpen method of FancyMailComposition. It introduces a dependency from Morphic to ST-80 and the tool, if to be preserved, should be toolbuilderized.

=============== Diff against 60Deprecated-ul.24 ===============

Item was added:
+ ----- Method: FancyMailComposition>>mvcOpen (in category '*60Deprecated-ST80-Support') -----
+ mvcOpen
+ | textView sendButton  |
+
+ mvcWindow := StandardSystemView new
+ label: 'Mister Postman';
+ minimumSize: 400@250;
+ model: self.
+
+ textView := PluggableTextView
+ on: self
+ text: #messageText
+ accept: #messageText:.
+ textEditor := textView controller.
+
+ sendButton := PluggableButtonView
+ on: self
+ getState: nil
+ action: #submit.
+ sendButton label: 'Send'.
+ sendButton borderWidth: 1.
+
+ sendButton window: (1@1 extent: 398@38).
+ mvcWindow addSubView: sendButton.
+
+ textView window: (0@40 corner: 400@250).
+ mvcWindow addSubView: textView below: sendButton.
+
+ mvcWindow controller open.
+
+
+ !