FileApplicationNoteBook.st
changeset 5609 9ea9d7e7ef95
parent 5586 aba072239d9a
child 5610 bbb8d7ef1de8
equal deleted inserted replaced
5608:e3b65e30bb9c 5609:9ea9d7e7ef95
  4551     preferredFontEncoding := FontDescription preferredFontEncodingFor:fileEncoding.
  4551     preferredFontEncoding := FontDescription preferredFontEncodingFor:fileEncoding.
  4552     (CharacterEncoder isEncoding:preferredFontEncoding subSetOf:fontsEncoding) ifFalse:[
  4552     (CharacterEncoder isEncoding:preferredFontEncoding subSetOf:fontsEncoding) ifFalse:[
  4553             doNotShowFontDialog == true ifTrue:[
  4553             doNotShowFontDialog == true ifTrue:[
  4554                 action := #show
  4554                 action := #show
  4555             ] ifFalse:[
  4555             ] ifFalse:[
  4556                 action := Dialog choose:(resources string:'''%1'' seems to require a %2 font (file encoding is %3).' 
  4556                 action := Dialog choose:(resources string:'''%1'' seems to require a %2 (or unicode) font (file encoding is %3).' 
  4557                                                      with:self fileName baseName 
  4557                                                      with:self fileName baseName 
  4558                                                      with:preferredFontEncoding allBold 
  4558                                                      with:preferredFontEncoding allBold 
  4559                                                      with:fileEncoding)
  4559                                                      with:fileEncoding)
  4560                                labels:(resources array:#('Cancel' 'Show' 'Don''t Ask Again' 'Change Font'))
  4560                                labels:(resources array:#('Cancel' 'Show' 'Don''t Ask Again' 'Change Font'))
  4561                                values:#(nil #show #showAlways #encoding)
  4561                                values:#(nil #show #showAlways #encoding)
  4877     editView saveAction:[ self doSaveAs ].
  4877     editView saveAction:[ self doSaveAs ].
  4878 
  4878 
  4879     aWidget modifiedChannel:self viewModifiedChannel.
  4879     aWidget modifiedChannel:self viewModifiedChannel.
  4880 
  4880 
  4881     editView externalEncoding:self fileEncoding.
  4881     editView externalEncoding:self fileEncoding.
  4882     editView characterEncoding:'unicode'.
  4882     "/ editView characterEncoding:'unicode'. - thats the default anyway
  4883 !
  4883 !
  4884 
  4884 
  4885 postBuildWith:aBuilder
  4885 postBuildWith:aBuilder
  4886 
  4886 
  4887     super postBuildWith:aBuilder.
  4887     super postBuildWith:aBuilder.
  5437 ! !
  5437 ! !
  5438 
  5438 
  5439 !FileApplicationNoteBook class methodsFor:'documentation'!
  5439 !FileApplicationNoteBook class methodsFor:'documentation'!
  5440 
  5440 
  5441 version
  5441 version
  5442     ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.155 2004-02-25 20:19:47 cg Exp $'
  5442     ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.156 2004-02-28 12:58:25 cg Exp $'
  5443 ! !
  5443 ! !