DirectoryContentsBrowser.st
changeset 5404 cc0458a59070
parent 5383 ae8a426ef69e
child 5425 fed05f7926d7
equal deleted inserted replaced
5403:e2674897ea4f 5404:cc0458a59070
  1649         ^ true.
  1649         ^ true.
  1650     ].
  1650     ].
  1651 "/ strange feeling, because behavior is different depending on
  1651 "/ strange feeling, because behavior is different depending on
  1652 "/ where the mouse pointer is (treeView vs. contentsView)
  1652 "/ where the mouse pointer is (treeView vs. contentsView)
  1653 "/
  1653 "/
  1654 "/    (key == #CursorLeft) ifTrue:[
  1654     (key == #CursorLeft) ifTrue:[
  1655 "/        self doGoDirectoryUp.
  1655         self doGoDirectoryUp.
  1656 "/        ^ true
  1656         ^ true
  1657 "/    ].
  1657     ].
  1658 "/    (key == #CursorRight) ifTrue:[
  1658 "/    (key == #CursorRight) ifTrue:[
  1659 "/        self doBack.
  1659 "/        self doBack.
  1660 "/        ^ true
  1660 "/        ^ true
  1661 "/    ].
  1661 "/    ].
  1662     browserItemList size == 0 ifTrue:[
  1662     browserItemList size == 0 ifTrue:[
  3095 ! !
  3095 ! !
  3096 
  3096 
  3097 !DirectoryContentsBrowser class methodsFor:'documentation'!
  3097 !DirectoryContentsBrowser class methodsFor:'documentation'!
  3098 
  3098 
  3099 version
  3099 version
  3100     ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.141 2003-12-01 11:14:01 penk Exp $'
  3100     ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.142 2003-12-15 11:22:17 cg Exp $'
  3101 ! !
  3101 ! !