[squeak-dev] The Inbox: EToys-tcj.324.mcz

Tim Johnson digit at sonic.net
Mon Apr 9 19:48:37 UTC 2018


Ah, the purpose of the spawned month window, which functions again after 
my change and after getting past #isThisEverCalled:

"Spawn Entire Month
While this feature (accessible from bottom pane menu) is very crude and 
does not offer interaction, its real purpose is for printing.  Expand 
the spawned window to full screen, use the morph menu to choose ''print 
PS to File...'', and then send the resulting .eps file to your printer.  
(At the time of this writing portrait and landscpe [sic] options were 
reversed ;-).'"

Hooray :D

Best,
Tim

On 2018-04-09 12:42, Tim Johnson wrote:
> Hi all,
> 
> How to test:
> 
> 1. do it: PDAMorph new openInWorld
> 
> 2. Yellow/menu button in the bottom pane (probably contains "no item
> is selected")
> 
> 3. select "spawn entire month"
> 
> 4. Witness some usage of #isThisEverCalled in the following methods:
> 
> Halt: This is indeed called: 'PluggableListMorph>>list:'
> Halt: This is indeed called: 'PluggableListMorph>>selectedMorph:'
> 
> (is #isThisEverCalled ever called anymore?  seems useful)
> 
> ...and once you get past these, you may see a rather unadorned window
> appear which looks like a calendar view for a month (but in my image,
> contains no labels -- perhaps due to PluggableListMorph>>#list: not
> doing part of its old job anymore, or something else, or nothing at
> all).
> 
> Thanks,
> Tim
> 
> 
> 
> On 2018-04-09 19:33, commits at source.squeak.org wrote:
>> A new version of EToys was added to project The Inbox:
>> http://source.squeak.org/inbox/EToys-tcj.324.mcz
>> 
>> ==================== Summary ====================
>> 
>> Name: EToys-tcj.324
>> Author: tcj
>> Time: 9 April 2018, 12:33:26.80885 pm
>> UUID: 4cdd717b-002f-4dc1-96e4-b32bb0452038
>> Ancestors: EToys-nice.323
>> 
>> Replace deprecated (and removed) 3.8-era message sends with
>> contemporary equivalents.  Note:  now that this works again, it
>> exposes two sends of #isThisEverCalled.
>> 
>> =============== Diff against EToys-nice.323 ===============
>> 
>> Item was changed:
>>   ----- Method: PDA>>openMonthView (in category 'initialization') 
>> -----
>>   openMonthView
>>   	| row month col paneExtent window paneColor nRows |
>>   	month := date notNil
>>   		ifTrue: [date month]
>>   		ifFalse: ["But... it's here somewhere..."
>>   				((self dependents detect: [:m | m isKindOf: PDAMorph])
>>   					findA: MonthMorph) month].
>>   	window := SystemWindow labelled: month printString.
>>   	paneColor := Color transparent.
>>   	window color: (Color r: 0.968 g: 1.0 b: 0.355).
>> + 	nRows := 0.  month weeksDo: [:w | nRows := nRows + 1].
>> - 	nRows := 0.  month eachWeekDo: [:w | nRows := nRows + 1].
>>   	paneExtent := ((1.0/7) @ (1.0/nRows)).
>>   	row := 0.
>> + 	month weeksDo:
>> - 	month eachWeekDo:
>>   		[:week | col := 0.
>> + 		week datesDo:
>> - 		week do:
>>   			[:day | day month = month ifTrue:
>>   				[window addMorph: ((PluggableListMorph on: self list: nil
>>   						selected: nil changeSelected: nil menu: nil keystroke: nil)
>>   							list: {(day dayOfMonth printString , '  ' , day weekday)
>> asText allBold}
>>   								, (self scheduleListForDay: day))
>>   					frame: (paneExtent * (col at row) extent: paneExtent)].
>>   			col := col + 1].
>>   		row := row + 1].
>> 
>>   	window firstSubmorph color: paneColor.
>>   	window updatePaneColors.
>>   	window openInWorld!


More information about the Squeak-dev mailing list