TextView.st
changeset 5523 1d2ed51687e2
parent 5460 c353fd71390d
child 5543 39eb7c59b271
child 5550 d1911247fdf8
equal deleted inserted replaced
5521:1a03685bdf16 5523:1d2ed51687e2
   830                             ifTrue:[#'iso10646-1']
   830                             ifTrue:[#'iso10646-1']
   831                             ifFalse:[encodingArg asSymbol].
   831                             ifFalse:[encodingArg asSymbol].
   832 
   832 
   833     characterEncoding ~~ encodingSymOrNil ifTrue:[
   833     characterEncoding ~~ encodingSymOrNil ifTrue:[
   834         "/ TODO: reencode contents if required.
   834         "/ TODO: reencode contents if required.
   835         (list size ~~ 0
   835 "/        (list size ~~ 0
   836         and:[ list contains:[:line | line size > 0]]) ifTrue:[
   836 "/        and:[ list contains:[:line | line size > 0]]) ifTrue:[
   837             (self confirm:(resources stringWithCRs:'Your text may need to be re-coded - this is not yet supported.\\Proceed ?'))
   837 "/            (self confirm:(resources stringWithCRs:'Your text may need to be re-coded - this is not yet supported.\\Proceed ?'))
   838             ifFalse:[^ self].
   838 "/            ifFalse:[^ self].
   839         ].
   839 "/        ].
   840         characterEncoding := encodingSymOrNil.
   840         characterEncoding := encodingSymOrNil.
   841     ].
   841     ].
   842 
   842 
   843     "Modified (format): / 25-01-2012 / 00:28:27 / cg"
   843     "Modified (format): / 25-01-2012 / 00:28:27 / cg"
   844 !
   844 !