'From Squeak3.7beta of ''1 April 2004'' [latest update: #5972] on 16 July 2004 at 10:04:49 am'! "Change Set: EventRecorderFix Date: 15 July 2004 Author: Marcus and Stef EventRecorderMorph some test for RequestBoxMorph, which does not exist anymore."! !EventRecorderMorph methodsFor: 'fileIn/Out' stamp: 'md 7/15/2004 17:22'! readTape ^ self readTape: (FillInTheBlank request: 'Tape to read' initialAnswer: 'tapeName.tape').! ! !EventRecorderMorph methodsFor: 'fileIn/Out' stamp: 'md 7/15/2004 17:23'! writeTape | args b | args := (b := self button: 'writeTape') isNil ifTrue: [#()] ifFalse: [b arguments]. (args notEmpty and: [args first notEmpty]) ifTrue: [args first. self writeTape: args first] ifFalse: [^self writeTape: (FillInTheBlank request: 'Tape to write' initialAnswer: 'tapeName.tape')].! !