'From etoys2.3 of 28 November 2007 [latest update: #1849] on 19 December 2007 at 11:17:24 am'! "Change Set: Unnamed2 Date: 19 December 2007 Author: Takashi Yamamiya Ticket #5341: Added a preference #usePopUpArrows." Preferences addBooleanPreference: #usePopUpArrows category: #scripting default: true balloonHelp: 'If true, arrows in tiles are magnified upon mouse over.' ! !TileMorph methodsFor: 'arrows popup' stamp: 'tak 12/19/2007 10:50'! showPopArrows | vpanel hpanel | Preferences usePopUpArrows ifFalse: [^ self]. self hidePopArrows. self isPopArrowNeeded ifFalse: [^ self]. vpanel := self buildVPopArrows. hpanel := self buildHPopArrows. self activeHand setProperty: #popArrows toValue: {self. vpanel. hpanel}. self layoutChanged! !