FileDialog.st
changeset 17990 0e4375f0483f
parent 17919 d806bf4a9532
child 18015 c2c3ac7e3d6d
equal deleted inserted replaced
17989:fe5233911e1b 17990:0e4375f0483f
       
     1 "{ Encoding: utf8 }"
       
     2 
     1 "
     3 "
     2  COPYRIGHT (c) 2002 by eXept Software AG
     4  COPYRIGHT (c) 2002 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
  2060     ].
  2062     ].
  2061     ^ false
  2063     ^ false
  2062 !
  2064 !
  2063 
  2065 
  2064 returnWasPressedInFilterOrFilenameField
  2066 returnWasPressedInFilterOrFilenameField
  2065     |ev|
  2067     |wg ev|
  2066 
  2068 
  2067     ev := self windowGroup lastEvent.
  2069     ((wg := self windowGroup) notNil
  2068     (ev notNil 
  2070     and:[(ev := wg lastEvent) notNil 
       
  2071     and:[ev notNil 
  2069     and:[ev isKeyEvent 
  2072     and:[ev isKeyEvent 
  2070     and:[ev key == #Return
  2073     and:[ev key == #Return
  2071     and:[(   ev targetView isSameOrComponentOf:filterField) 
  2074     and:[(   ev targetView isSameOrComponentOf:filterField) 
  2072          or:[false "ev targetView isSameOrComponentOf:filenameField"]]]]) ifTrue:[
  2075          or:[false "ev targetView isSameOrComponentOf:filenameField"]]]]]]) ifTrue:[
  2073         ^ true
  2076         ^ true
  2074     ].
  2077     ].
  2075     ^ false
  2078     ^ false
  2076 ! !
  2079 ! !
  2077 
  2080