The Trunk: EToys-tfel.251.mcz

Tim Felgentreff uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-tfel.251.mcz

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

Name: EToys-tfel.251
Author: tfel
Time: 23 September 2016, 4:56:28.394724 pm
UUID: 2ccc5290-487a-fc49-833c-2f771035e779
Ancestors: EToys-tfel.250

remove becomeModal

=============== Diff against EToys-tfel.250 ===============

Item was changed:
  ----- Method: EToyProjectDetailsMorph class>>getFullInfoFor:ifValid:expandedFormat: (in category 'instance creation') -----
  getFullInfoFor: aProject ifValid: aMessageSend expandedFormat: expandedFormat
  "Obtain project info for the project by putting up a dialog-box showing current values for the various project-info variables and allowing the user to change the data."
 
  | detailsMorph  |
  detailsMorph := self basicNew.
  detailsMorph expandedFormat: expandedFormat;
  project: aProject actionBlock: aMessageSend;
  initialize;
- becomeModal;
  beSticky;
  openCenteredInWorld!

Item was changed:
  ----- Method: EToyProjectQueryMorph class>>onServer: (in category 'instance creation') -----
  onServer: aProjectServer
  "EToyProjectQueryMorph onServer: SuperSwikiServer testOnlySuperSwiki"
 
  | detailsMorph messageToSendIfValid |
 
  detailsMorph := self basicNew.
 
  messageToSendIfValid := MessageSend receiver: detailsMorph selector: #carryOutQuery:onProjectServer: arguments: {nil. aProjectServer}.
 
  detailsMorph
  project: nil
  actionBlock: messageToSendIfValid;
 
  "*** actionBlock: [ :x |
  criteria := OrderedCollection new.
  x keysAndValuesDo: [ :k :v |
  (clean := v withBlanksTrimmed convertToEncoding: SuperSwikiServer defaultEncodingName) isEmpty
  ifFalse: [criteria add: k,': *',clean,'*']].
  aProjectServer queryProjectsAndShow: criteria];  ****"
 
  initialize;
- becomeModal;
  openCenteredInWorld!

Item was changed:
  ----- Method: FileList2 class>>buildMorphicWindow:title: (in category '*Etoys-Squeakland-blue ui') -----
  buildMorphicWindow: aFileList title: aString
  | window |
  window := ScriptingSystem buildPanelTitled: aString.
  window setProperty: #FileList toValue: aFileList.
  aFileList modalView: window.
- window becomeModal.
  ^ window!