equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1995-1998 by eXept Software AG |
2 COPYRIGHT (c) 1995-1998 by eXept Software AG |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
703 height:12; |
701 height:12; |
704 bits:(ByteArray fromPackedString:'A@@N@F;@?>A?0G>@O8A?0O? [,@N@@P@'); |
702 bits:(ByteArray fromPackedString:'A@@N@F;@?>A?0G>@O8A?0O? [,@N@@P@'); |
705 yourself); |
703 yourself); |
706 yourself |
704 yourself |
707 ] |
705 ] |
|
706 ! |
|
707 |
|
708 builderIcon |
|
709 "This resource specification was automatically generated |
|
710 by the ImageEditor of ST/X." |
|
711 |
|
712 "Do not manually edit this!! If it is corrupted, |
|
713 the ImageEditor may not be able to read the specification." |
|
714 |
|
715 " |
|
716 self builderIcon inspect |
|
717 ImageEditor openOnClass:self andSelector:#builderIcon |
|
718 Icon flushCachedIcons |
|
719 " |
|
720 |
|
721 <resource: #image> |
|
722 |
|
723 ^Icon |
|
724 constantNamed:'UIPainter builderIcon' |
|
725 ifAbsentPut:[(Depth1Image width:48 height:48 photometric:#whiteIs0) bits:(ByteArray fromPackedString:' |
|
726 @@@@@@@@O??????<H@@@@@@DH_@@@@@DH_@OC?>DH_@IC??$H_@IC??4H_@IC??$H_@IC?>DH_@F@J DH_@F@M DH_@F@J DH_@F@M DH_@F@J DH_@F@M D |
|
727 H_@F@J DH_@F@M DH_@F@J DH_@F@M DH_@F@J DH_@_ M DH_@ PJ DH_@)PM DH_@)PJ DH_@)PM DH? )PJ DI?0)PM DK?8)PJ DK18)PM DK 8)PJ D |
|
728 K@X)PM DK@X PG@DK@X_ @@DH@@@@@@DH@@@@@@DO??????<@@@@@@@@NDIHNG''@IDIHIDD H$IHH$DPIDIHH$DPNDIHH$D IDIHH''G@H$IHH$E@H$IHH$D |
|
729 IBQHIDDPNA!!ONG$P@@@@@@@@'); yourself] |
708 ! |
730 ! |
709 |
731 |
710 defaultIcon |
732 defaultIcon |
711 <resource: #programImage> |
733 <resource: #programImage> |
712 |
734 |
5130 |
5152 |
5131 painterView isOpen ifTrue:[ |
5153 painterView isOpen ifTrue:[ |
5132 ^ self. |
5154 ^ self. |
5133 ]. |
5155 ]. |
5134 |
5156 |
5135 icon := Smalltalk imageFromFileNamed:'UIPainter.xbm' forClass:self class. |
5157 icon := self class builderIcon. |
5136 |
5158 |
5137 topView := self window. |
5159 topView := self window. |
5138 |
5160 |
5139 painterView openInGroup:(topView windowGroup). |
5161 painterView openInGroup:(topView windowGroup). |
5140 painterView application:self. |
5162 painterView application:self. |