FileSelectionBox.st
changeset 1670 8d24855a9f0b
parent 1643 2710f3be2a77
child 1671 5afdf222b738
equal deleted inserted replaced
1669:8c48fac7e961 1670:8d24855a9f0b
   296 
   296 
   297     |string sep|
   297     |string sep|
   298 
   298 
   299     string := super contents.
   299     string := super contents.
   300     string isNil ifTrue:[
   300     string isNil ifTrue:[
   301 	^ selectionList directory pathName
   301         ^ selectionList directory pathName
   302     ].
   302     ].
   303     sep := Filename separator.
   303     (string asFilename isAbsolute) ifTrue:[
   304     (string startsWith:sep) ifTrue:[
   304         ^ string
   305 	^ string
       
   306     ].
   305     ].
   307     ^ (selectionList directory pathName asFilename construct:string) asString
   306     ^ (selectionList directory pathName asFilename construct:string) asString
       
   307 
       
   308     "Modified: / 9.9.1998 / 21:23:16 / cg"
   308 !
   309 !
   309 
   310 
   310 directory
   311 directory
   311     "return the directory which is currently shown"
   312     "return the directory which is currently shown"
   312 
   313 
   591     |dir string fname|
   592     |dir string fname|
   592 
   593 
   593     string := enterField contents.
   594     string := enterField contents.
   594     (string notNil and:[string notEmpty]) ifTrue:[
   595     (string notNil and:[string notEmpty]) ifTrue:[
   595         string := string withoutSeparators.
   596         string := string withoutSeparators.
       
   597 self halt.
   596         string asFilename isAbsolute ifTrue:[
   598         string asFilename isAbsolute ifTrue:[
   597             fname := string asFilename
   599             fname := string asFilename
   598         ] ifFalse:[
   600         ] ifFalse:[
   599             dir := selectionList directory pathName asFilename.
   601             dir := selectionList directory pathName asFilename.
   600             fname := dir construct:string
   602             fname := dir construct:string
   612         ].
   614         ].
   613     ].
   615     ].
   614 
   616 
   615     super okPressed
   617     super okPressed
   616 
   618 
       
   619     "Modified: / 9.9.1998 / 21:21:14 / cg"
   617 !
   620 !
   618 
   621 
   619 patternChanged
   622 patternChanged
   620     selectionList pattern:patternField contents. 
   623     selectionList pattern:patternField contents. 
   621     self updateList
   624     self updateList
   640 ! !
   643 ! !
   641 
   644 
   642 !FileSelectionBox class methodsFor:'documentation'!
   645 !FileSelectionBox class methodsFor:'documentation'!
   643 
   646 
   644 version
   647 version
   645     ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.51 1998-08-12 07:57:15 cg Exp $'
   648     ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.52 1998-09-09 20:10:13 cg Exp $'
   646 ! !
   649 ! !