FileBrowser.st
changeset 17925 71b07f3c6848
parent 17870 b270a77dd705
child 17949 f4ada786326b
equal deleted inserted replaced
17924:e9ec188d9e59 17925:71b07f3c6848
     1 "{ Encoding: utf8 }"
       
     2 
       
     3 "
     1 "
     4  COPYRIGHT (c) 1991 by Claus Gittinger
     2  COPYRIGHT (c) 1991 by Claus Gittinger
     5               All Rights Reserved
     3               All Rights Reserved
     6 
     4 
     7  This software is furnished under a license and may be used
     5  This software is furnished under a license and may be used
  1739     ^ [ fileListView selection size > 0
  1737     ^ [ fileListView selection size > 0
  1740         and:[ self hasMP3Player value]]
  1738         and:[ self hasMP3Player value]]
  1741 !
  1739 !
  1742 
  1740 
  1743 hasSelection
  1741 hasSelection
       
  1742     "aspect holding true, if a file is selected"
       
  1743 
  1744     ^ [fileListView selection size > 0]
  1744     ^ [fileListView selection size > 0]
  1745 
  1745 
  1746     "Created: / 4.8.1998 / 14:10:31 / cg"
  1746     "Created: / 4.8.1998 / 14:10:31 / cg"
  1747     "Modified: / 4.8.1998 / 14:10:57 / cg"
  1747     "Modified: / 4.8.1998 / 14:10:57 / cg"
  1748 !
  1748 !