FileSelectionBrowser.st
changeset 452 d6d5eceb23a9
parent 426 b8110a424326
child 462 90b8b353cd2f
equal deleted inserted replaced
451:a8da4f1924a4 452:d6d5eceb23a9
   202                 )
   202                 )
   203                  #(#UISubSpecification
   203                  #(#UISubSpecification
   204                     #'name:' 'SubSpecification'
   204                     #'name:' 'SubSpecification'
   205                     #'layout:' #(#LayoutFrame 2 0.0 -32 1 -2 1.0 -8 1.0)
   205                     #'layout:' #(#LayoutFrame 2 0.0 -32 1 -2 1.0 -8 1.0)
   206                     #'majorKey:' #ToolApplicationModel
   206                     #'majorKey:' #ToolApplicationModel
   207                     #'minorKey:' #windowSpecForCommit
   207                     #'minorKey:' #windowSpecForCommitWithoutChannels
   208                 )
   208                 )
   209               )
   209               )
   210           )
   210           )
   211       )
   211       )
   212 ! !
   212 ! !
   315 
   315 
   316     super open.
   316     super open.
   317     accept value
   317     accept value
   318     ifTrue:
   318     ifTrue:
   319     [
   319     [
   320         ^(self selectionOfDirectory value ? '') , Filename separator, (self valueOfFileName value ? '')
   320         ^self valueOfFileName value ? ''
   321     ].
   321     ].
   322     ^nil
   322     ^nil
   323 
   323 
   324 
   324 
   325 
   325