[squeak-dev] The Trunk: EToys-tfel.251.mcz

commits at source.squeak.org commits at source.squeak.org
Fri Sep 23 14:57:46 UTC 2016

Tim Felgentreff uploaded a new version of EToys to project The Trunk:

==================== 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;
- 		becomeModal;

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}.
  		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];  ****"
- 		becomeModal;

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!

More information about the Squeak-dev mailing list