AbstractFileBrowser.st
changeset 15981 d859a227e0b6
parent 15936 4d0368c047f5
child 15982 159a73773eb4
child 16084 8632ae52e598
equal deleted inserted replaced
15979:20293250af55 15981:d859a227e0b6
     1 "{ Encoding: utf8 }"
       
     2 
       
     3 "
     1 "
     4  COPYRIGHT (c) 2002 by eXept Software AG
     2  COPYRIGHT (c) 2002 by eXept Software AG
     5               All Rights Reserved
     3               All Rights Reserved
     6 
     4 
     7  This software is furnished under a license and may be used
     5  This software is furnished under a license and may be used
  8300                     lang fileIn:fileName.
  8298                     lang fileIn:fileName.
  8301                 ] ifFalse:[
  8299                 ] ifFalse:[
  8302                     "/ loading a regular (chunk) or xml source file
  8300                     "/ loading a regular (chunk) or xml source file
  8303                     Error handle:[:ex |
  8301                     Error handle:[:ex |
  8304                         self errorNotify:'Error during file in: ', ex description.
  8302                         self errorNotify:'Error during file in: ', ex description.
       
  8303                         ex resume.
  8305                     ] do:[
  8304                     ] do:[
  8306                         aStream := fileName readStream.
  8305                         aStream := fileName readStream.
  8307                         [
  8306                         [
  8308                             Class withoutUpdatingChangesDo:[
  8307                             Class withoutUpdatingChangesDo:[
  8309                                 wasLazy := Compiler compileLazy:lazy.
  8308                                 wasLazy := Compiler compileLazy:lazy.