1 "

     3 "

     2  COPYRIGHT (c) 1997 by eXept Software AG

     4  COPYRIGHT (c) 1997 by eXept Software AG

     3               All Rights Reserved

     5               All Rights Reserved

     4 

     6 

     5  This software is furnished under a license and may be used

     7  This software is furnished under a license and may be used

     8  be provided or otherwise made available to, or used by, any

    10  be provided or otherwise made available to, or used by, any

     9  other person. No title to or ownership of the software is

    11  other person. No title to or ownership of the software is

    10  hereby transferred.

    12  hereby transferred.

    11 "

    13 "

    12 "{ Package: 'stx:libtool2' }"

    14 "{ Package: 'stx:libtool2' }"

    13 

    17 

    14 SelectionBrowser subclass:#FileSelectionBrowser

    18 SelectionBrowser subclass:#FileSelectionBrowser

    15 	instanceVariableNames:'selectedFileFilter directoryView listOfFileFilters directory'

    19 	instanceVariableNames:'selectedFileFilter directoryView listOfFileFilters directory'

    16 	classVariableNames:''

    20 	classVariableNames:''

    17 	poolDictionaries:''

    21 	poolDictionaries:''

   623 "/        self valueOfFileName value:((self valueOfFileName value ? 'unknown') 

   627 "/        self valueOfFileName value:((self valueOfFileName value ? 'unknown') 

   624 "/                                    asFilename

   628 "/                                    asFilename

   625 "/                                        withSuffix:(fileFilter asFilename suffix))

   629 "/                                        withSuffix:(fileFilter asFilename suffix))

   626         self valueOfFileName value: (

   630         self valueOfFileName value: (

   627             ((self valueOfFileName value ? 'unknown') readStream upTo: $.), '.',

   631             ((self valueOfFileName value ? 'unknown') readStream upTo: $.), '.',

   629     ]. 

   633     ]. 

   630     nm := directory.

   634     nm := directory.

   631     nm isNil ifTrue:[

   635     nm isNil ifTrue:[

   632         nm := self class lastSelection.

   636         nm := self class lastSelection.

   633         nm isNil ifTrue:[

   637         nm isNil ifTrue:[

   658 !

   662 !

   659 

   663 

   660 version_CVS

   664 version_CVS

   661     ^ '$Header$'

   665     ^ '$Header$'

   662 ! !

   666 ! !