The Trunk: EToys-cmm.276.mcz

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

The Trunk: EToys-cmm.276.mcz

commits-2
Chris Muller uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-cmm.276.mcz

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

Name: EToys-cmm.276
Author: cmm
Time: 7 December 2016, 12:56:16.35587 pm
UUID: 5057b31d-2425-48ce-b461-d9399e7cc16a
Ancestors: EToys-bf.275

Fix DNU when searching for "Paint" in the Object Catalog.

=============== Diff against EToys-bf.275 ===============

Item was changed:
  ----- Method: PDA>>openAsMorphIn: (in category 'initialization') -----
  openAsMorphIn: window  "PDA new openAsMorph openInWorld"
  "Create a pluggable version of all the morphs for a Browser in Morphic"
  | dragNDropFlag paneColor chooser |
  window color: Color black.
  paneColor := (Color r: 0.6 g: 1.0 b: 0.0).
  window model: self.
+ dragNDropFlag := SystemBrowser browseWithDragNDrop.
- dragNDropFlag := Preferences browseWithDragNDrop.
  window addMorph: ((PluggableListMorph on: self list: #peopleListItems
  selected: #peopleListIndex changeSelected: #peopleListIndex:
  menu: #peopleMenu: keystroke: #peopleListKey:from:) enableDragNDrop: dragNDropFlag)
  frame: (0@0 corner: 0.3@0.25).
  window addMorph: ((chooser := PDAChoiceMorph new color: paneColor) contentsClipped: 'all';
  target: self; actionSelector: #chooseFrom:categoryItem:; arguments: {chooser};
  getItemsSelector: #categoryChoices)
  frame: (0@0.25 corner: 0.3@0.3).
  window addMorph: ((MonthMorph newWithModel: self) color: paneColor; extent: 148@109)
  frame: (0.3@0 corner: 0.7@0.3).
  window addMorph: (PDAClockMorph new color: paneColor;
  faceColor: (Color r: 0.4 g: 0.8 b: 0.6))  "To match monthMorph"
  frame: (0.7@0 corner: 1.0@0.3).
 
  window addMorph: ((PluggableListMorph on: self list: #toDoListItems
  selected: #toDoListIndex changeSelected: #toDoListIndex:
  menu: #toDoMenu: keystroke: #toDoListKey:from:) enableDragNDrop: dragNDropFlag)
  frame: (0@0.3 corner: 0.3@0.7).
  window addMorph: ((PluggableListMorph on: self list: #scheduleListItems
  selected: #scheduleListIndex changeSelected: #scheduleListIndex:
  menu: #scheduleMenu: keystroke: #scheduleListKey:from:) enableDragNDrop: dragNDropFlag)
  frame: (0.3@0.3 corner: 0.7@0.7).
  window addMorph: ((PluggableListMorph on: self list: #notesListItems
  selected: #notesListIndex changeSelected: #notesListIndex:
  menu: #notesMenu: keystroke: #notesListKey:from:) enableDragNDrop: dragNDropFlag)
  frame: (0.7@0.3 corner: 1@0.7).
 
  window addMorph: (PluggableTextMorph on: self
  text: #currentItemText accept: #acceptCurrentItemText:
  readSelection: #currentItemSelection menu: #currentItemMenu:)
  frame: (0@0.7 corner: 1@1).
  window firstSubmorph color: paneColor.
  window updatePaneColors.
  window step.
  ^ window!