#DOCUMENTATION by cg
class: Bookmark
comment/format in:
#changed:with:
#label:
class: Bookmark::Folder
comment/format in: #name:
--- a/Bookmark.st Tue Jun 19 03:31:58 2018 +0000
+++ b/Bookmark.st Wed Jun 20 12:44:26 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
Copyright (c) 2007-2010 Jan Vrany, SWING Research Group, Czech Technical University in Prague
Copyright (c) 2009-2010 eXept Software AG
@@ -242,13 +244,14 @@
"Modified (format): / 18-11-2011 / 14:31:05 / cg"
!
-label: aStringOrText
+label:aStringOrText
label := aStringOrText.
- self model changed: #label with: self
+ self model changed:#label with:self
"Created: / 02-06-2011 / 23:13:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 03-06-2011 / 10:46:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified (format): / 20-06-2018 / 12:44:02 / Claus Gittinger"
! !
!Bookmark methodsFor:'accessing-defaults'!
@@ -312,15 +315,16 @@
!Bookmark methodsFor:'change & update'!
-changed: aspect with: param
-
+changed:aspect with:param
| model |
- super changed: aspect with: param.
- (model := self model) notNil ifTrue:
- [model changed: aspect with: param].
+ super changed:aspect with:param.
+ (model := self model) notNil ifTrue:[
+ model changed:aspect with:param
+ ].
"Created: / 23-05-2011 / 16:22:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified (format): / 20-06-2018 / 12:43:54 / Claus Gittinger"
! !
!Bookmark methodsFor:'converting'!
@@ -633,13 +637,14 @@
"Modified: / 02-06-2011 / 11:52:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
-name: aString
+name:aString
name := aString.
- self model changed: #label with: self
+ self model changed:#label with:self
"Created: / 23-05-2011 / 10:02:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 03-06-2011 / 10:46:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified (format): / 20-06-2018 / 12:44:10 / Claus Gittinger"
! !
!Bookmark::Folder methodsFor:'accessing-defaults'!
@@ -792,7 +797,7 @@
label :=
(className copyFrom: ((className lastIndexOf: $:) + 1)) allBold ,
- ' » ' , (selector "asText allItalic")
+ ' » ' , (selector "asText allItalic")
"Created: / 05-05-2011 / 23:04:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 02-06-2011 / 22:00:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"