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