2010/5/16 Eliot Miranda <eliot.mira...@gmail.com>
>
>
> 2010/5/16 Mariano Martinez Peck <marianop...@gmail.com>
>
>>
>>
>> On Sun, May 16, 2010 at 4:42 PM, Lukas Renggli <reng...@gmail.com> wrote:
>>
>>> I asked the same question a few weeks back and the only working
>>> solution I found was to patch the window size in the image file. The
>>> actual implementation is from Max Leske:
>>>
>>>
>>> http://github.com/renggli/builder/blob/master/scripts/resize-window.sh
>>>
>>>
>> OMG. WHAT A HACK!!!! but works hahahah. I cannot believe such thing
>> could work...but in fact, it does!
>>
>> It is sad this cannot be done with Smalltalk, just evaluating something in
>> the image.
>>
>
> ? Why do you assume it can't be done in Smalltalk?
>
Just because we didn't get an answer before ;)
>
> shrinkDisplayInImageFile: imageFileName
>
> | fs |
> fs := StandardFileStream fileNamed: imageFileName.
> fs binary.
> [fs position: 24.
> SmalltalkImage current isLittleEndian
> ifTrue:
> [fs nextLittleEndianNumber: 4 put: (1024 bitShift:
> 16) + 768. "Display size"
> fs nextLittleEndianNumber: 4 put: 0. "full-screen
> flag (off)"]
> ifFalse:
> [self error: 'not yet implemented']]
> ensure: [fs close]! !
>
>
>>
>>
Cool. It works, but ONLY appling it to another image....which in such case I
rather shell :(
I tried:
| fs |
fs := StandardFileStream fileNamed: (SmalltalkImage current
imageName).
fs binary.
[fs position: 24.
SmalltalkImage current isLittleEndian
ifTrue:
[fs nextLittleEndianNumber: 4 put: (1024 bitShift:
16) + 768. "Display size"
fs nextLittleEndianNumber: 4 put: 0. "full-screen
flag (off)"]
ifFalse:
[self error: 'not yet implemented']]
ensure: [fs close]
Notice the (SmalltalkImage current imageName).
but didn't work. Is this expected? Is there a way to change the current
image?
Thanks!
Mariano
> Thanks!
>>
>> Mariano
>>
>>
>>
>>
>>> Lukas
>>>
>>> 2010/5/16 Mariano Martinez Peck <marianop...@gmail.com>:
>>> > I know I already asked this, but I didn't get a working solution. I
>>> want to
>>> > change the default size of the host windows that runs on Pharo. Does
>>> someone
>>> > know how to do that?
>>> >
>>> > I attach the 2 screenshots: what I have, and what I want.
>>> >
>>> > Thanks
>>> >
>>> > mariano
>>> >
>>> > _______________________________________________
>>> > Pharo-project mailing list
>>> > Pharo-project@lists.gforge.inria.fr
>>> > http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
>>> >
>>>
>>>
>>>
>>> --
>>> Lukas Renggli
>>> www.lukas-renggli.ch
>>>
>>> _______________________________________________
>>> Pharo-project mailing list
>>> Pharo-project@lists.gforge.inria.fr
>>> http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
>>>
>>
>>
>> _______________________________________________
>> Pharo-project mailing list
>> Pharo-project@lists.gforge.inria.fr
>> http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
>>
>
>
> _______________________________________________
> Pharo-project mailing list
> Pharo-project@lists.gforge.inria.fr
> http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
>
_______________________________________________
Pharo-project mailing list
Pharo-project@lists.gforge.inria.fr
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
