'From etoys2.3 of 28 November 2007 [latest update: #1841] on 14 December 2007 at 2:27:53 pm'! "Change Set: NoCameraTrashCan Date: 11 December 2007 Author: Karl Ramberg with postscript fixup by Scott Wallace TrashCans internal ScrapsBook made a Camera sound for each new page it made for new items dropped. IT WAS QUITE LOUD!! Fixed here. The close, previous page, next page and EMPTY buttons was changed"! !BooklikeMorph methodsFor: 'page controls' stamp: 'kfr 12/12/2007 22:13'! minimumControlSpecs "Answer specs defining the widgets in the short form of the control panel." ^ { #spacer. #variableSpacer. {#PrevPage. #previousPage. 'Previous page' translated}. #spacer. {#NextPage. #nextPage. 'Next page' translated}. #variableSpacer. #spacer. } ! ! !Utilities class methodsFor: 'scraps' stamp: 'kfr 12/12/2007 22:15'! scrapsBook | header aButton label | ScrapsBook ifNil: [ScrapsBook _ BookMorph new pageSize: 200@300; setNameTo: 'scraps' translated. ScrapsBook color: Color yellow muchLighter. ScrapsBook borderColor: Color darkGray; borderWidth: 2. ScrapsBook removeEverything; evenFewerPageControls; insertPage. ScrapsBook setProperty:#transitionSpec toValue: (Array with: 'silence' with: #none with: #none). header _ AlignmentMorph newRow wrapCentering: #center; cellPositioning: #leftCenter. header setProperty: #header toValue: true. header addMorph: (ScrapsBook tanOButton). header addMorphBack: AlignmentMorph newVariableTransparentSpacer beSticky. label _ (UpdatingStringMorph new target: self) beSticky. label font: Preferences standardEToysFont. header addMorphBack: label. label getSelector: #trashTitle; useStringFormat; step. header addMorphBack: AlignmentMorph newVariableTransparentSpacer beSticky. header addMorphBack: (aButton _ SimpleButtonMorph new label: 'EMPTY' translated font: Preferences standardButtonFont). aButton target: Utilities; color: Color veryLightGray; actionSelector: #maybeEmptyTrash; setBalloonText: 'Click here to empty the trash.' translated. ScrapsBook currentPage addMorph: (TextMorph new contents: 'Objects you drag into the trash will automatically be saved here, one object per page, in case you need them later. To disable this feature set the "preserveTrash" Preference to false. You can individually expunge objects by hitting the - control, and you can empty out all the objects in the trash can by hitting the "EMPTY" button at top right.' translated wrappedTo: 190). ScrapsBook addMorphFront: header. ScrapsBook setProperty: #scraps toValue: true]. ^ ScrapsBook "Utilities emptyScrapsBook" ! ! "Postscript:" Utilities scrapsBook setProperty: #transitionSpec toValue: #('silence' none none). !