The Trunk: EToys-topa.284.mcz

Tobias Pape uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-topa.284.mcz

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

Name: EToys-topa.284
Author: topa
Time: 14 March 2017, 5:12:34.993671 pm
UUID: c4bc7ada-4cdd-445f-97d5-a0a2c16fcd19
Ancestors: EToys-ul.283

A Pragma pref for popup arrows

=============== Diff against EToys-ul.283 ===============

Item was changed:
  RectangleMorph subclass: #TileMorph
  instanceVariableNames: 'type slotName literal operatorOrExpression actualObject downArrow upArrow suffixArrow typeColor lastArrowTick nArrowTicks operatorReadoutString possessive retractArrow vocabulary vocabularySymbol'
+ classVariableNames: 'DownPicture EqualityOperators RetractPicture SuffixArrowAllowance SuffixPicture UpArrowAllowance UpPicture UpdatingOperators UsePopUpArrows'
- classVariableNames: 'DownPicture EqualityOperators RetractPicture SuffixArrowAllowance SuffixPicture UpArrowAllowance UpPicture UpdatingOperators'
  poolDictionaries: ''
  category: 'Etoys-Scripting Tiles'!
 
  !TileMorph commentStamp: '<historical>' prior: 0!
  A tile with up, down and suffix arrows.
 
  To install new Forms for the arrows, just nil out UpPicture, DownPicture,
  or SuffixPicture.
  Create actors with the picture you want and write it out with these file names:
  'tile inc arrow.morph' 'tile dec arrow.morph' 'tile suffix
  arrow.morph'.  Make sure that file is in the same directory as the image.
  Open an EToy.!

Item was added:
+ ----- Method: TileMorph class>>usePopUpArrows (in category 'preferences') -----
+ usePopUpArrows
+
+ <preference: 'Use pop-up arrows for tiles'
+ category: 'scripting'
+ description: 'If true, uses pop-up arrows in tiles '
+ type: #Boolean>
+ ^ UsePopUpArrows ifNil: [UsePopUpArrows := false].!

Item was added:
+ ----- Method: TileMorph class>>usePopUpArrows: (in category 'preferences') -----
+ usePopUpArrows: aBoolean
+
+ UsePopUpArrows := aBoolean.!

Item was changed:
  ----- Method: TileMorph>>showPopArrows (in category '*Etoys-Squeakland-arrows popup') -----
  showPopArrows
  | vpanel hpanel |
+ self class usePopUpArrows
- 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!