'From etoys4.0 of 9 October 2008 [latest update: #2280] on 11 September 2009 at 2:59:14 pm'! "Change Set: savebuttonhelp-yo Date: 9 September 2009 Author: Yoshiki Ohshima Now the stuff is above the button but comment said otherwise."! !FileList2 class methodsFor: 'blue ui' stamp: 'yo 9/11/2009 14:59'! buildSaveButtons: window fileList: aFileList | buttonData buttons aRow | buttonData := Preferences enableLocalSave ifTrue: [#(#('Save' #okHit 'Save in the place specified above') #('Save on local disk only' #saveLocalOnlyHit 'saves in the Squeaklets folder') #('Cancel' #cancelHit 'return without saving') ) translatedNoop] ifFalse: [#(#('Save' #okHit 'Save in the place specified above') #('Cancel' #cancelHit 'return without saving') ) translatedNoop]. buttons := buttonData collect: [:each | self buildButtonText: each first translated balloonText: each third translated receiver: aFileList selector: each second]. aFileList updateLoginButtonAppearance. buttons := {aFileList loginField. aFileList loginButton. Morph new color: Color transparent; width: 50}, buttons. aRow := window addARow: buttons. aRow color: ScriptingSystem paneColor. aRow listCentering: #bottomRight. aRow layoutInset: 3 @ 3. aRow cellInset: 6 @ 3. ^ aRow! !