'From Squeakland.396-Nihongo7.29 of 14 March 2005 [latest update: #54] on 16 March 2005 at 9:04:52 pm'! "Change Set: AddTranslationMar16-2 Date: 16 March 2005 Author: Yoshiki Ohshima Adds #translated."! !ButtonProperties methodsFor: 'menu' stamp: 'yo 3/16/2005 20:58'! setActWhen | selections | selections _ #(mouseDown mouseUp mouseStillDown). actWhen _ (SelectionMenu labels: (selections collect: [:t | t translated]) selections: selections) startUpWithCaption: 'Choose one of the following conditions' translated ! ! !ButtonProperties methodsFor: 'menu' stamp: 'yo 3/16/2005 20:53'! setActionSelector | newSel | newSel _ FillInTheBlank request: 'Please type the selector to be sent to the target when this button is pressed' translated initialAnswer: actionSelector. newSel isEmpty ifFalse: [self actionSelector: newSel]. ! ! !SimpleButtonMorph methodsFor: 'menu' stamp: 'yo 3/16/2005 21:00'! setActWhen | selections | selections _ #(buttonDown buttonUp whilePressed startDrag). actWhen := (SelectionMenu labels: (selections collect: [:t | t translated]) selections: selections) startUpWithCaption: 'Choose one of the following conditions' translated! ! !SimpleButtonMorph methodsFor: 'menu' stamp: 'yo 3/16/2005 20:54'! setActionSelector | newSel | newSel _ FillInTheBlank request: 'Please type the selector to be sent to the target when this button is pressed' translated initialAnswer: actionSelector. newSel isEmpty ifFalse: [self actionSelector: newSel]. ! ! !StringButtonMorph methodsFor: 'menu' stamp: 'yo 3/16/2005 21:02'! setActWhen | selections | selections _ #(buttonDown buttonUp whilePressed). actWhen _ (SelectionMenu labelList: (selections collect: [:t | t translated]) selections: selections) startUpWithCaption: 'Choose one of the following conditions' translated. ! ! !StringButtonMorph methodsFor: 'menu' stamp: 'yo 3/16/2005 20:54'! setActionSelector | newSel | newSel _ FillInTheBlank request: 'Please type the selector to be sent to the target when this button is pressed' translated initialAnswer: actionSelector. newSel isEmpty ifFalse: [self actionSelector: newSel]. ! !