[Pkg] The Trunk: ST80-mt.183.mcz

commits at source.squeak.org commits at source.squeak.org
Fri May 1 18:49:33 UTC 2015


Marcel Taeumel uploaded a new version of ST80 to project The Trunk:
http://source.squeak.org/trunk/ST80-mt.183.mcz

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

Name: ST80-mt.183
Author: mt
Time: 1 May 2015, 8:49:18.781 pm
UUID: 2a9e776d-332f-1745-b070-49786b01e8b7
Ancestors: ST80-dtl.182

Some assumptions on model interface removed.

=============== Diff against ST80-dtl.182 ===============

Item was changed:
  ----- Method: StringHolderController>>userHasNotEdited (in category 'edit flag') -----
  userHasNotEdited
  	"Note that my text is free of user edits."
  
+ 	model changed: #clearUserEdits.!
- 	model clearUserEditFlag
- !

Item was changed:
  ----- Method: StringHolderView>>promptForCancel (in category 'updating') -----
  promptForCancel
  	"Ask if it is OK to cancel changes to text"
  	| okToCancel stripes |
  	self topView isCollapsed ifTrue:
  		[(self confirm: 'Changes have not been saved.
+ Is it OK to cancel those changes?' translated) ifTrue: [model changed: #clearUserEdits].
- Is it OK to cancel those changes?' translated) ifTrue: [model clearUserEditFlag].
  		^ self].
  	stripes := (Form extent: 16 at 16 fromStipple: 16r36C9) bits.
  	Display border: self insetDisplayBox width: 4
  			rule: Form reverse fillColor: stripes.
  	okToCancel := self confirm: 'Changes have not been saved.
  Is it OK to cancel those changes?' translated.
  	Display border: self insetDisplayBox width: 4
  			rule: Form reverse fillColor: stripes.
  	okToCancel ifTrue:
  		[self updateDisplayContents.
+ 		model changed: #clearUserEdits].
- 		model clearUserEditFlag].
  !



More information about the Packages mailing list