--- a/FileBrowserV3.st Sat Apr 21 09:36:11 2012 +0100
+++ b/FileBrowserV3.st Sat Apr 21 09:36:31 2012 +0100
@@ -723,6 +723,13 @@
self bookmarkBarVisibleHolder value
"Created: / 04-04-2012 / 12:08:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+switchToBookmarkEntry: bookmark
+
+ self gotoFile: bookmark path asFilename
+
+ "Created: / 20-04-2012 / 18:07:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!FileBrowserV3 methodsFor:'aspects'!
@@ -776,23 +783,30 @@
!FileBrowserV3 methodsFor:'change & update'!
+currentFileNameHolderChanged
+ super currentFileNameHolderChanged.
+ self updateBookmark
+
+ "Created: / 20-04-2012 / 18:04:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
update:something with:aParameter from:changedObject
"Invoked when an object that I depend upon sends a change notification."
- changedObject == fileEntryFieldHolder ifTrue:[
- self updateBookmark.
- ].
+ "stub code automatically generated - please change as required"
+ "/ changedObject == someOfMyValueHolders ifTrue:[
+ "/ self doSomethingApropriate.
+ "/ ^ self.
+ "/ ].
super update:something with:aParameter from:changedObject
-
- "Modified: / 13-04-2012 / 12:36:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
updateBookmark
| file bookmark |
file := fileEntryFieldHolder value.
- file notEmptyOrNil ifFalse:[
+ file notEmptyOrNil ifTrue:[
bookmark := Bookmark forFile: file.
].
self bookmarkHolder value: bookmark.
@@ -851,5 +865,5 @@
!FileBrowserV3 class methodsFor:'documentation'!
version_SVN
- ^ '$Id: FileBrowserV3.st 7979 2012-04-13 18:16:04Z vranyj1 $'
+ ^ '$Id: FileBrowserV3.st 7985 2012-04-21 08:36:31Z vranyj1 $'
! !