[squeak-dev] etoys stack patch

Lauren Pullen drurowin at gmail.com
Wed Aug 24 04:28:38 UTC 2022


Wait, no.

Not that changeset!  This one.

On 8/24/22 04:21, Lauren Pullen wrote:
> Hi all,
> 
> I'd post this using Monticello, but when I go to save it to the Inbox
> all of EToys is marked as changed... ...
> 
> Subject: fix StackMorph display
> 
> Use icons and fix corrupt characters in StackMorph's control panes to
> look like BooklikeMorph.
> 
-------------- next part --------------
'From Squeak6.1alpha of 23 August 2022 [latest update: #22163] on 23 August 2022 at 10:27:11 pm'!

!StackMorph methodsFor: 'page controls' stamp: 'lrnp 8/23/2022 22:25'!
fullControlSpecs
	"Answer specifications for the long form of iconic stack/book controls"

	^ {
		#spacer.
		#variableSpacer.
		{'-'.			#deleteCard.			'Delete this card' translated}.
		#spacer.
		{ '«'	.		#goToFirstCardOfStack.	'First card' translated}.
		#spacer.
		{ '<'. 		#goToPreviousCardInStack.		'Previous card' translated}.
		#spacer.
		{'·'.			#invokeBookMenu. 	'Click here to get a menu of options for this stack.' translated}.
		"#spacer.	{'¬Ž'.			#reshapeBackground.  'Reshape' translated}.	"

		#spacer.
		{'§'.			#showDesignationsOfObjects. 	'Show designations' translated}.
		#spacer.
		{'>'	.		#goToNextCardInStack.	'Next card' translated}.
		#spacer.
		{ '»'.		#goToLastCardOfStack.	'Final card' translated}.
		#spacer.
		{'+'.		#insertCard.			'Add a new card after this one' translated}.
		#variableSpacer.
		{'o'.			#fewerPageControls.			'Fewer controls
(if shift key pressed,
deletes controls)' translated}
}! !

!StackMorph methodsFor: 'page controls' stamp: 'lrnp 8/23/2022 21:58'!
shortControlSpecs
	"Answer specficiations for the shorter form of stack controls"

	^ {
		#spacer.
		#variableSpacer.
		{ #PrevPage.	#goToPreviousCardInStack.		'Previous card' translated}.
		#spacer.
		{#MenuIcon.		#invokeBookMenu. 			'Click here to get a menu for this stack.' translated}.
		#spacer.
		{#NextPage.	#goToNextCardInStack.		'Next card' translated}.
		#variableSpacer.
		{'...'.		#showMoreControls.			'More controls
(if shift key pressed,
deletes controls)' translated}
}! !



More information about the Squeak-dev mailing list