Question:How do I include forms for IconicButtons in an enhancement
Bert Freudenberg
bert at isg.cs.uni-magdeburg.de
Thu Nov 30 08:40:26 UTC 2000
On Wed, 29 Nov 2000, Karl Ramberg wrote:
> I did
> ScriptingSystem saveForm: (Form fromBMPFileNamed:
> 'Video:icons:stop.bmp') atKey: 'stopMPEG'.
>
> How do I include this forms in an enhancement ?
Use ScriptingSystem>>mergeGraphicsFrom: in the changeset Postscript. The
parameter is a dictionary key->form. You get the form's textual
representation by using "form storeOn: Transcript". So the result looks
roughly like this (this is from http://swiki.gsug.org/sqfixes/219.html):
"Postscript:
Initialize icons in the standard form dictionary"
ScriptingSystem mergeGraphicsFrom: ((Dictionary
new) add: ('Halo-Debug'->(Form
extent: 16 at 16
depth: 1
fromArray: #( 0 0 0 0 0 266338304 103809024 103809024 103809024
103809024 266338304 0 0 0 0 0)
offset: 0 at 0)); add: ('Halo-Tile'->(Form
extent: 16 at 16
depth: 1
fromArray: #( 0 0 0 0 0 536346624 536346624 404226048 404226048
536346624 536346624 0 0 0 0 0)
offset: 0 at 0)); yourself)
Besides, you could easily write a utility method that gives you (and all
of us :) this string. Something like
ScriptingSystem storeStringForFormsAtAll: #('startbutton' 'stopbutton')
-- Bert
More information about the Squeak-dev
mailing list
|