'From etoys2.2 of 24 September 2007 [latest update: #1696] on 10 October 2007 at 5:31:39 pm'! "Change Set: gridVisFix-sw Date: 10 October 2007 Author: Scott Wallace Corrects a typo in etoys2.2 update 1669playfieldOptions-sw that broke the action of the toggle in the playfield options menu which governs whether the grid should be visible."! !PasteUpMorph methodsFor: 'menu & halo' stamp: 'sw 10/10/2007 17:29'! playfieldOptionsMenu "Answer an auxiliary menu with options specific to playfields -- too many to be housed in the main menu" | aMenu isWorld | isWorld _ self isWorldMorph. aMenu _ MenuMorph new defaultTarget: self. aMenu addStayUpItem. #( (autoLineLayoutString toggleAutoLineLayout 'whether submorphs should automatically be laid out in lines') (autoExpansionString toggleAutomaticPhraseExpansion 'whether tile phrases, dropped on me, should automatically sprout Scriptors around them') (autoViewingString toggleAutomaticViewing 'governs whether, when an object is touched inside me, a viewer should automatically be launched for it') (behaveLikeAHolderString toggleBehaveLikeAHolder 'whether auto-line-layout, resize-to-fit, and indicate-cursor should be set to true; useful for animation control, etc') (fenceEnabledString toggleFenceEnabled 'whether moving objects should stop at the edge of their container') (gridVisibleString gridVisibleOnOff 'whether the grid should be shown when gridding is on') (indicateCursorString toggleIndicateCursor 'whether the "current" submorph should be indicated with a dark black border') (mouseOverHalosString toggleMouseOverHalos 'whether objects should put up halos when the mouse is over them') (originAtCenterString toggleOriginAtCenter 'whether the cartesian origin of the playfield should be at its lower-left corner or at the center of the playfield') (isPartsBinString toggleIsPartsBin 'whether dragging an object from the interior should produce a COPY of the object') (resizeToFitString toggleResizeToFit 'whether I should automatically strive exactly to fit my contents') (showThumbnailString toggleAlwaysShowThumbnail 'whether large objects should be represented by thumbnail miniatures of themselves') (griddingString griddingOnOff 'whether gridding should be used in my interior') ) translatedNoop do: [:triplet | (isWorld and: [#(toggleAutoLineLayout toggleBehaveLikeAHolder toggleIndicateCursor toggleIsPartsBin toggleAlwaysShowThumbnail toggleResizeToFit ) includes: triplet second]) ifFalse: [aMenu addUpdating: triplet first action: triplet second. aMenu balloonTextForLastItem: triplet third translated]]. aMenu addLine. aMenu add: 'round up strays' translated action: #roundUpStrays. aMenu balloonTextForLastItem: 'Bring back all objects whose current coordinates keep them from being visible, so that at least a portion of each of my interior objects can be seen.' translated. isWorld ifFalse: [aMenu add: 'shuffle contents' translated action: #shuffleSubmorphs. aMenu balloonTextForLastItem: 'Rearranges my contents in random order' translated]. aMenu add: 'set grid spacing...' translated action: #setGridSpec. aMenu balloonTextForLastItem: 'Set the spacing to be used when gridding is on' translated. isWorld ifFalse: [aMenu add: 'set thumbnail height...' translated action: #setThumbnailHeight. aMenu balloonTextForLastItem: 'if currently showing thumbnails governs the standard height for them' translated]. self backgroundSketch ifNotNil: [aMenu add: 'delete background painting' translated action: #deleteBackgroundPainting. aMenu balloonTextForLastItem: 'delete the graphic that forms the background for this me.' translated]. presenter ifNil: [aMenu add: 'make detachable' translated action: #makeDetachable. aMenu balloonTextForLastItem: 'Allow this area to be separately governed by its own controls.' translated]. aMenu addLine. aMenu add: 'use standard texture' translated action: #setStandardTexture. aMenu balloonTextForLastItem: 'use a pale yellow-and-blue background texture here.' translated. aMenu add: 'make graph paper...' translated action: #makeGraphPaper. aMenu balloonTextForLastItem: 'Design your own graph paper and use it as the background texture here.' translated. aMenu addLine. aMenu add: 'show viewers of all players' translated action: #showAllPlayers. aMenu balloonTextForLastItem: 'Make viewers for all players which have user-written scripts in this playfield.' translated. aMenu add: 'remove viewers of all players' translated action: #hideAllPlayers. aMenu balloonTextForLastItem: 'Remove the viewers for all players in this playfield. This will save space before you publish this project' translated. aMenu addTitle: 'playfield options' translated. ^ aMenu ! !