# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1529491466 -7200
# Node ID 770f94b6fab7ee7f06e298988585fb4fd4ba01b3
# Parent  cdfa222e801c26287b3d92fcc78b82ce9956f545
#DOCUMENTATION by cg
class: Bookmark
comment/format in:
	#changed:with:
	#label:

class: Bookmark::Folder
comment/format in: #name:

diff -r cdfa222e801c -r 770f94b6fab7 Bookmark.st
--- 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>"