On Cog:<div><br></div><div><div>primitiveHostWindowTitle: windowIndex string: titleString</div><div><span class="Apple-tab-span" style="white-space:pre"> </span><primitive: 'primitiveHostWindowTitle' module: 'HostWindowPlugin'></div>
<div><span class="Apple-tab-span" style="white-space:pre"> </span>self primitiveFailed</div><div><br></div><div><div>squeakWindowHandle</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>"Answer the native Squeak window handle, presumably a pointer, as an unsigned integer.</div>
<div><span class="Apple-tab-span" style="white-space:pre"> </span> This value should be usable in native calls to the window manager as well as</div><div><span class="Apple-tab-span" style="white-space:pre"> </span> the argument to primitiveNativeWindowPosition:"</div>
<div><span class="Apple-tab-span" style="white-space:pre"> </span><primitive: 'primitiveSqueakWindowHandle' module: 'HostWindowPlugin'></div><div><span class="Apple-tab-span" style="white-space:pre"> </span>self primitiveFailed</div>
</div><div><br></div><div><div>squeakWinIndex</div><div><br></div><div><span class="Apple-tab-span" style="white-space:pre"> </span>"What winIndex refers to Squeak's main window?"</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>^ Smalltalk platformName caseOf: {</div>
<div><span class="Apple-tab-span" style="white-space:pre"> </span>['Win32'] -> [ (self squeakWindowHandle) ].<span class="Apple-tab-span" style="white-space:pre"> </span>"Window Index is just the handle here."</div>
<div><span class="Apple-tab-span" style="white-space:pre"> </span>['unix'] -> [ self squeakWindowHandle ]. <span class="Apple-tab-span" style="white-space:pre"> </span>"Window Index is just the handle here."</div>
<div><span class="Apple-tab-span" style="white-space:pre"> </span>['Mac OS'] -> [ 1 ] <span class="Apple-tab-span" style="white-space:pre"> </span>"The Host Window plugin shares the window-ref lookup table."</div>
<div><span class="Apple-tab-span" style="white-space:pre"> </span>} otherwise: [ -1 ].</div></div><div><br></div><div>self primitiveHostWindowTitle: self squeakWinIndex string: 'Yowza!'</div><div><br></div><div>You can find the full set of primitives in a class called HostWindows in OpenQwaq. You can find the plugin in Cog's HostWindowPlugin</div>
<br><div class="gmail_quote">On Fri, Feb 24, 2012 at 12:19 PM, Gary Chambers <span dir="ltr"><<a href="mailto:gazzaguru2@btinternet.com">gazzaguru2@btinternet.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<u></u>
<div bgcolor="#ffffff">
<div><font face="Arial">For Windows only...</font></div>
<div><font face="Arial"></font> </div>
<div><font face="Arial">(HostWindowProxy new instVarNamed: #windowHandle
put: Win32Window getFocus; yourself)<br> windowTitle:
aString</font></div>
<div><font face="Arial"></font> </div>
<div><font face="Arial"></font> </div>
<div><font face="Arial">Would be nice if the HostWindow stuff had some
develpment time...</font></div>
<div><br>Regards, Gary<br></div><div><div></div><div class="h5">
<blockquote style="BORDER-LEFT:#000000 2px solid;PADDING-LEFT:5px;PADDING-RIGHT:0px;MARGIN-LEFT:5px;MARGIN-RIGHT:0px" dir="ltr">
<div style="FONT:10pt arial">----- Original Message ----- </div>
<div style="FONT:10pt arial;BACKGROUND:#e4e4e4"><b>From:</b>
<a title="usman.bhatti@gmail.com" href="mailto:usman.bhatti@gmail.com" target="_blank">Usman
Bhatti</a> </div>
<div style="FONT:10pt arial"><b>To:</b> <a title="pharo-project@lists.gforge.inria.fr" href="mailto:pharo-project@lists.gforge.inria.fr" target="_blank">Pharo Development</a> </div>
<div style="FONT:10pt arial"><b>Sent:</b> Friday, February 24, 2012 7:56
PM</div>
<div style="FONT:10pt arial"><b>Subject:</b> [Pharo-project] change pharo
image title</div>
<div><br></div>
<div>Is there a way to programmatically set the title of a pharo image on
startup? I grabbed the first level pasteup morph and tried to play with it but
I didn't find the intended method.</div>
<div><br></div>
<div>thanx</div>
<div><br></div>
<div>usman</div></blockquote></div></div></div>
</blockquote></div><br><br clear="all"><div><br></div>-- <br>best,<div>Eliot</div><br>
</div>