--- 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