
<html><head></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; ">Yes, I am talking about the insertion point in a text view - size and colour.<div><div>What function should I use, I have no experience in Cocoa functions at all.</div></div><div><br></div><div>thanks,</div><div><br></div><div>JP</div><div><br></div><div><div>On 27 Sep 2011, at 21:33, Gary Byers wrote:</div><br class="Apple-interchange-newline"><blockquote type="cite"><div>And if by "cursor" you mean "insertion point in a text view", you'd have to<br>use a different set of Cocoa methods, notably #/drawInsertionPointInRect:color:turnedOn:<br><br>On Tue, 27 Sep 2011, R. Matthew Emerson wrote:<br><br><blockquote type="cite"><br></blockquote><blockquote type="cite">On Sep 24, 2011, at 9:34 AM, Janusz Podrazik wrote:<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite"><blockquote type="cite">Hi,<br></blockquote></blockquote><blockquote type="cite"><blockquote type="cite"><br></blockquote></blockquote><blockquote type="cite"><blockquote type="cite">I wonder were can I change the size and the color of the cursor in CCL.<br></blockquote></blockquote><blockquote type="cite"><blockquote type="cite"><br></blockquote></blockquote><blockquote type="cite"><blockquote type="cite">In LispWorks we can do:<br></blockquote></blockquote><blockquote type="cite"><blockquote type="cite"><br></blockquote></blockquote><blockquote type="cite"><blockquote type="cite">; cursor size<br></blockquote></blockquote><blockquote type="cite"><blockquote type="cite"><br></blockquote></blockquote><blockquote type="cite"><blockquote type="cite">(setq *cursor-color* :red)<br></blockquote></blockquote><blockquote type="cite"><blockquote type="cite">(setq *cursor-style* :inverse) ; ; :caret = narrow :left-bar = wider :inverse = large :underline = underline<br></blockquote></blockquote><blockquote type="cite"><blockquote type="cite">(setq *cursor-blink* nil) ; nil = blink, 0 = no blink<br></blockquote></blockquote><blockquote type="cite"><blockquote type="cite">(set-cursor-style)<br></blockquote></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">You have to use Cocoa functions directly.<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">(#/set (#/openHandCursor ns:ns-cursor)) will change the cursor to an open hand.<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">So, from a listener, you could type<br></blockquote><blockquote type="cite">(gui::execute-in-gui #'(lambda () (#/set (#/openHandCursor ns:ns-cursor)) (sleep 3)))<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">and see the open hand cursor for a few seconds.<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">It's typical to set up cursor tracking rectangles so that the cursor is automatically updated whenever the cursor enters the tracking rectangle.<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite"><a href="http://developer.apple.com/library/mac/#documentation/Cocoa/Conceptual/EventOverview/TrackingAreaObjects/TrackingAreaObjects.html">http://developer.apple.com/library/mac/#documentation/Cocoa/Conceptual/EventOverview/TrackingAreaObjects/TrackingAreaObjects.html</a><br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">_______________________________________________<br></blockquote><blockquote type="cite">Openmcl-devel mailing list<br></blockquote><blockquote type="cite"><a href="mailto:Openmcl-devel@clozure.com">Openmcl-devel@clozure.com</a><br></blockquote><blockquote type="cite"><a href="http://clozure.com/mailman/listinfo/openmcl-devel">http://clozure.com/mailman/listinfo/openmcl-devel</a><br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite"><br></blockquote></div></blockquote></div><br><div>

<span class="Apple-style-span" style="border-collapse: separate; color: rgb(0, 0, 0); font-family: Helvetica; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; orphans: 2; text-align: -webkit-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: 0px; font-size: medium; "><span class="Apple-style-span" style="border-collapse: separate; color: rgb(0, 0, 0); font-family: Helvetica; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; orphans: 2; text-align: -webkit-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: 0px; font-size: medium; "><div style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; "><span class="Apple-style-span" style="border-collapse: separate; color: rgb(0, 0, 0); font-family: Helvetica; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; orphans: 2; 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: 0px; font-size: medium; "><div style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; "><div>MRAC Publishing</div><div><a href="mailto:info@mracpublishing.com">info@mracpublishing.com</a></div><div><a href="http://januszpodrazik.com">http://januszpodrazik.com</a></div><div><br></div></div></span><br class="Apple-interchange-newline"></div></span><br class="Apple-interchange-newline"></span><br class="Apple-interchange-newline">

</div>

<br></body></html>