I did ScriptingSystem saveForm: (Form fromBMPFileNamed: 'Video:icons:stop.bmp') atKey: 'stopMPEG'.
How do I include this forms in an enhancement ?
Karl
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@16 depth: 1 fromArray: #( 0 0 0 0 0 266338304 103809024 103809024 103809024 103809024 266338304 0 0 0 0 0) offset: 0@0)); add: ('Halo-Tile'->(Form extent: 16@16 depth: 1 fromArray: #( 0 0 0 0 0 536346624 536346624 404226048 404226048 536346624 536346624 0 0 0 0 0) offset: 0@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
squeak-dev@lists.squeakfoundation.org