--- a/BookmarkListEditor.st Fri Jan 27 22:18:53 2012 +0100
+++ b/BookmarkListEditor.st Sun Jan 29 12:53:39 2012 +0000
@@ -412,17 +412,16 @@
!BookmarkListEditor methodsFor:'hooks'!
commonPostOpen
+
| root |
- self bookmarkList isNil ifTrue:[
- self bookmarkList: BookmarkList forSystemBrowser
- ].
+ self bookmarkList ifNil:
+ [self bookmarkList: BookmarkList forSystemBrowser].
root := self bookmarkList root.
root isExpanded ifFalse:[root expand].
"Created: / 02-06-2011 / 10:41:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 02-06-2011 / 13:33:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified (format): / 18-11-2011 / 14:32:36 / cg"
! !
!BookmarkListEditor methodsFor:'menu actions'!
@@ -468,17 +467,16 @@
!
menuNew: className
+
| folder new |
-
folder := self selection.
- folder isNil ifTrue:[folder := self bookmarkList root].
+ folder ifNil:[folder := self bookmarkList root].
folder isFolderBookmark ifFalse: [folder := folder parent].
new := (Smalltalk at: className) new.
folder add: new.
"Created: / 02-06-2011 / 11:49:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 02-06-2011 / 13:24:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 18-11-2011 / 14:32:49 / cg"
!
menuNewFolder
@@ -496,15 +494,14 @@
!
menuRename
+
| sel name |
-
sel := self selection.
name := Dialog request: 'Enter new name' initialAnswer: sel label asString.
- name isNil ifTrue:[^self].
+ name ifNil:[^self].
sel label: name.
"Modified: / 03-06-2011 / 10:43:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 18-11-2011 / 14:33:00 / cg"
!
menuSave
@@ -517,9 +514,9 @@
!BookmarkListEditor class methodsFor:'documentation'!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/BookmarkListEditor.st,v 1.3 2011-11-18 13:33:19 cg Exp $'
+ ^ '§Header: /cvs/stx/stx/libtool/BookmarkListEditor.st,v 1.2 2011/07/03 18:00:49 cg Exp §'
!
version_SVN
- ^ '§Id§'
-! !
+ ^ '$Id$'
+! !
\ No newline at end of file