AbstractFileBrowser.st
changeset 9206 7ed728324dbf
parent 9173 5d01c91bcfd6
child 9267 a8afd9424514
equal deleted inserted replaced
9205:07015f8db981 9206:7ed728324dbf
  6969         and:[ files first hasSuffix:'img' ])
  6969         and:[ files first hasSuffix:'img' ])
  6970       ]
  6970       ]
  6971 !
  6971 !
  6972 
  6972 
  6973 hasXml
  6973 hasXml
  6974     ^ [ XML::XMLParser notNil 
  6974     ^ [ XML::XMLParser notNil ]
  6975         and:[XML::XMLParser isLoaded]]
       
  6976 !
  6975 !
  6977 
  6976 
  6978 hasXmlFileSelected
  6977 hasXmlFileSelected
  6979     "/ cg - no longer use this to enable XML-inspector (always enabled).
  6978     "/ cg - no longer use this to enable XML-inspector (always enabled).
  6980     "/ then handle the error when it ever fails during xml-parsing.
  6979     "/ then handle the error when it ever fails during xml-parsing.
  7923 ! !
  7922 ! !
  7924 
  7923 
  7925 !AbstractFileBrowser class methodsFor:'documentation'!
  7924 !AbstractFileBrowser class methodsFor:'documentation'!
  7926 
  7925 
  7927 version
  7926 version
  7928     ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.425 2009-11-04 00:51:30 cg Exp $'
  7927     ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.426 2009-11-06 11:15:29 cg Exp $'
  7929 !
  7928 !
  7930 
  7929 
  7931 version_CVS
  7930 version_CVS
  7932     ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.425 2009-11-04 00:51:30 cg Exp $'
  7931     ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.426 2009-11-06 11:15:29 cg Exp $'
  7933 ! !
  7932 ! !