<html><head></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; ">seems to work fine in XMLisp: <a href="http://code.google.com/p/xmlisp/">http://code.google.com/p/xmlisp/</a>   (CCL + Cocotron)<div><br></div><div>alex</div><div><br><div><div>On Jul 11, 2011, at 8:38 AM, Greg Bennett wrote:</div><br class="Apple-interchange-newline"><blockquote type="cite">
<div bgcolor="#ffffff" text="#000000">
    <font size="+1"><font face="Arial">Good morning from Greg Bennett,<br>
        <br>
        I am trying to find my way around the cocoa material in the
        MS-Windows<br>
        files included in the trunk. I'm running revision 14863 of
        version 1.7 under<br>
        Windows 7 Pro; using the 32-bit environment with its listener.<br>
        <br>
        Specifically I tried to work my way down the code in<br>
        ccl/examples/cocoa/ui-elements/HOWTO.html<br>
        but I could persuade subviews to show themselves.<br>
        <br>
        In the notation of that page, I can create and display
        my-window,<br>
        <br>
        I can create my-button ..  but<br>
        <br>
        (#/addSubview: (#/contentView my-window) my-button)<br>
        <br>
        returns NIL and leaves the my-window's appearance unchanged.<br>
        <br>
        However<br>
        (#/subviews (#/contentView my-window))<br>
        does return my-button thusly:<br>
        #<NS-MUTABLE-ARRAY (<br>
         "<NSButton[0x33dc010] frame: {{10, 10}, {72, 32}}>"<br>
         ) (#x342F458)><br>
        <br>
        It looks as if I need some sort of re-display method for the<br>
        contentView, so on the basis of P238 in Aaron Hillegass' 3rd
        Edition, I tried<br>
        (#/setNeedsDisplay: (#/contentView my-window) #$YES)<br>
        which returns NIL and no change to my-window<br>
        <br>
        Perhaps there is a spot on Clozure's website in which the
        oddities of MS-Windows and<br>
        drawing and CCL are noted. A pointer to such a spot or to a
        place where such items<br>
        are discussed would help me along</font></font><font size="+1"><font face="Arial">; perhaps any such discussion is in the pipermail
        archives</font></font><br>
    <font size="+1"><font face="Arial"> <br>
        Thanks for all the effort which has obviously gone into making
        it even possible for<br>
        cocoa to run in this environment.<br>
        <br>
        Cheers /Greg Bennett</font></font>
  </div>

_______________________________________________<br>Openmcl-devel mailing list<br><a href="mailto:Openmcl-devel@clozure.com">Openmcl-devel@clozure.com</a><br>http://clozure.com/mailman/listinfo/openmcl-devel<br></blockquote></div><br><div>
<span class="Apple-style-span" style="border-collapse: separate; color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; orphans: 2; text-align: auto; text-indent: 0px; text-transform: none; white-space: normal; widows: 2; word-spacing: 0px; -webkit-border-horizontal-spacing: 0px; -webkit-border-vertical-spacing: 0px; -webkit-text-decorations-in-effect: none; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0; "><span class="Apple-style-span" style="border-collapse: separate; border-spacing: 0px 0px; color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; text-align: auto; -khtml-text-decorations-in-effect: none; text-indent: 0px; -apple-text-size-adjust: auto; text-transform: none; orphans: 2; white-space: normal; widows: 2; word-spacing: 0px; "><span class="Apple-style-span" style="border-collapse: separate; border-spacing: 0px 0px; color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; text-align: auto; -khtml-text-decorations-in-effect: none; text-indent: 0px; -apple-text-size-adjust: auto; text-transform: none; orphans: 2; white-space: normal; widows: 2; word-spacing: 0px; "><span class="Apple-style-span" style="border-collapse: separate; border-spacing: 0px 0px; color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; text-align: auto; -khtml-text-decorations-in-effect: none; text-indent: 0px; -apple-text-size-adjust: auto; text-transform: none; orphans: 2; white-space: normal; widows: 2; word-spacing: 0px; "><p style="margin: 0.0px 0.0px 0.0px 0.0px"><font face="Helvetica" size="3" style="font: 12.0px Helvetica">Prof. Alexander Repenning</font></p><p style="margin: 0.0px 0.0px 0.0px 0.0px"><br class="khtml-block-placeholder"></p><p style="margin: 0.0px 0.0px 0.0px 0.0px">University of Colorado</p><p style="margin: 0.0px 0.0px 0.0px 0.0px">Computer Science Department</p><p style="margin: 0.0px 0.0px 0.0px 0.0px">Boulder, CO 80309-430</p><p style="margin: 0.0px 0.0px 0.0px 0.0px"><br class="khtml-block-placeholder"></p><p style="margin: 0.0px 0.0px 0.0px 0.0px"><font face="Helvetica" size="3" style="font: 12.0px Helvetica">vCard: <a href="http://www.cs.colorado.edu/~ralex/AlexanderRepenning.vcf">http://www.cs.colorado.edu/~ralex/AlexanderRepenning.vcf</a></font></p><br class="Apple-interchange-newline"></span></span></span></span>
</div>
<br></div></body></html>