RoundedBorder.st
changeset 8434 6637134c62b6
parent 7939 f5018d46a5e7
--- a/RoundedBorder.st	Thu Jul 26 22:35:39 2018 +0200
+++ b/RoundedBorder.st	Sat Jul 28 10:08:22 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2015 by Claus Gittinger / eXept Software AG
               All Rights Reserved
@@ -80,6 +82,8 @@
 !RoundedBorder class methodsFor:'image specs'!
 
 templateBottomLeftImage
+    <resource: #programImage>
+
     TemplateBottomLeft isNil ifTrue:[
         TemplateBottomLeft := self templateBottomRightImage rotated:90
     ].    
@@ -88,9 +92,13 @@
     "
      self templateBottomLeftImage
     "
+
+    "Modified: / 28-07-2018 / 09:53:47 / Claus Gittinger"
 !
 
 templateBottomRightImage
+    <resource: #programImage>
+
     TemplateBottomRight isNil ifTrue:[
         TemplateBottomRight := self templateTopRightImage rotated:90
     ].    
@@ -99,9 +107,13 @@
     "
      self templateBottomRightImage
     "
+
+    "Modified: / 28-07-2018 / 09:53:43 / Claus Gittinger"
 !
 
 templateTopLeftImage    
+    <resource: #programImage>
+
     TemplateTopLeft isNil ifTrue:[
         TemplateTopLeft := self topLeftImageUnfilledMasked4
     ].    
@@ -111,9 +123,13 @@
      TemplateTopLeft := TemplateTopRight := nil.
      TemplateBottomLeft := TemplateBottomRight := nil.
     "
+
+    "Modified: / 28-07-2018 / 09:53:40 / Claus Gittinger"
 !
 
 templateTopRightImage
+    <resource: #programImage>
+
     TemplateTopRight isNil ifTrue:[
         TemplateTopRight := self templateTopLeftImage rotated:90
     ].    
@@ -122,6 +138,8 @@
     "
      self templateTopRightImage
     "
+
+    "Modified: / 28-07-2018 / 09:53:31 / Claus Gittinger"
 !
 
 topLeftImageUnfilledMasked