There's easygui:add-topbar-item for adding a menu item to the application menu.<div>Allowing for keyboard shortcuts for such an item is a ToDo.</div><div>There may be issues to do with conflicts between shortcuts.</div><div>If you're happy to ignore such problems, making versions for yourself of</div><div>easygui:add-topbar-item and easygui:add-menu-item with an extra argument,</div><div>and where the third mention of</div><div>   ns-nullstring</div><div>is replaced with</div><div>   (ccl::%make-nsstring <your-shortcut-sequence-goes-here>)</div><div>should (I think) allow keyboard shortcuts too.</div><div>(look in ccl/examples/cocoa/easygui/views.lisp)</div><div>I do not know how you'd put command- or control- keys into these strings,</div><div>I'm sure there's a way ... </div><div><br></div><div>Arthur<br><br>----- Original Message -----<br>From: Joakim Sandgren <joakim@joakimsandgren.com><br>Date: Friday, April 17, 2009 11:20 am<br>Subject: Re: [Openmcl-devel] menu<br>To: Raffael Cavallaro <raffaelcavallaro@mac.com><br>Cc: Openmcl-devel Devel <openmcl-devel@clozure.com><br><br><span><p><table><tbody><tr><td style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; "><p><font style="font-style: normal; font-weight: normal; background-color: rgb(245, 248, 240); font-size: 14px; ">> </font>I'm sorry. I didn't talk about re-mapping the keyboard but to add a command to execute a action, in this case one of my own functions... </p><div>i found a add-menu-item in the coca ide folder (i think?) but I dont know really how this works and I have not been able to add an action to the command...</div><div><br></div><div><font style="font-style: normal; font-weight: normal; background-color: rgb(245, 248, 240); font-size: 14px; ">> </font>Thank You</div><div><br></div><div><font style="font-style: normal; font-weight: normal; background-color: rgb(245, 248, 240); font-size: 14px; ">> </font>SIncerely</div><div><br></div><div><font style="font-style: normal; font-weight: normal; background-color: rgb(245, 248, 240); font-size: 14px; ">> </font>Joakim</div><div><br><div><div><font style="font-style: normal; font-weight: normal; background-color: rgb(245, 248, 240); font-size: 14px; ">> </font>Le 13 avr. 09 à 18:22, Raffael Cavallaro a écrit :</div><br class="Apple-interchange-newline"><blockquote type="cite"><div><br><font style="font-style: normal; font-weight: normal; background-color: rgb(245, 248, 240); font-size: 14px; ">> </font>On Apr 12, 2009, at 4:49 PM, Joakim Sandgren wrote:<br><br><blockquote type="cite"><font style="font-style: normal; font-weight: normal; background-color: rgb(245, 248, 240); font-size: 14px; ">> </font>Hi,<br></blockquote><blockquote type="cite"><font style="font-style: normal; font-weight: normal; background-color: rgb(245, 248, 240); font-size: 14px; ">> </font>How hard is it to assign a command (mac leopard ide 1.3) for a  <br></blockquote><blockquote type="cite"><font style="font-style: normal; font-weight: normal; background-color: rgb(245, 248, 240); font-size: 14px; ">> </font>function ?<br></blockquote><blockquote type="cite"><font style="font-style: normal; font-weight: normal; background-color: rgb(245, 248, 240); font-size: 14px; ">> </font>in old mcl I added key commands in the menus to do things...<br></blockquote><br><font style="font-style: normal; font-weight: normal; background-color: rgb(245, 248, 240); font-size: 14px; ">> </font>It's not very hard. I have this in my init (which I have to load  <br><font style="font-style: normal; font-weight: normal; background-color: rgb(245, 248, 240); font-size: 14px; ">> </font>manually of course, but that's another IDE enhancement request…)<br><br><font style="font-style: normal; font-weight: normal; background-color: rgb(245, 248, 240); font-size: 14px; ">> </font>(in-package :hemlock)<br><br><font style="font-style: normal; font-weight: normal; background-color: rgb(245, 248, 240); font-size: 14px; ">> </font>(bind-key "Forward Word" #k"meta-rightarrow")<br><font style="font-style: normal; font-weight: normal; background-color: rgb(245, 248, 240); font-size: 14px; ">> </font>(bind-key "Select Forward Word" #k"meta-shift-rightarrow")<br><font style="font-style: normal; font-weight: normal; background-color: rgb(245, 248, 240); font-size: 14px; ">> </font>(bind-key "Forward Form" #k"control-meta-rightarrow")<br><font style="font-style: normal; font-weight: normal; background-color: rgb(245, 248, 240); font-size: 14px; ">> </font>(bind-key "Select Forward Form" #k"control-meta-shift-rightarrow")<br><br><font style="font-style: normal; font-weight: normal; background-color: rgb(245, 248, 240); font-size: 14px; ">> </font>(bind-key "Backward Word" #k"meta-leftarrow")<br><font style="font-style: normal; font-weight: normal; background-color: rgb(245, 248, 240); font-size: 14px; ">> </font>(bind-key "Select Backward Word" #k"meta-shift-leftarrow")<br><font style="font-style: normal; font-weight: normal; background-color: rgb(245, 248, 240); font-size: 14px; ">> </font>(bind-key "Backward Form" #k"control-meta-leftarrow")<br><font style="font-style: normal; font-weight: normal; background-color: rgb(245, 248, 240); font-size: 14px; ">> </font>(bind-key "Select Backward Form" #k"control-meta-shift-leftarrow")<br><br><font style="font-style: normal; font-weight: normal; background-color: rgb(245, 248, 240); font-size: 14px; ">> </font>You can see ccl/cocoa-ide/hemlock/src/binding.lisp for the standard  <br><font style="font-style: normal; font-weight: normal; background-color: rgb(245, 248, 240); font-size: 14px; ">> </font>bindings and how  to modify them.<br><br><font style="font-style: normal; font-weight: normal; background-color: rgb(245, 248, 240); font-size: 14px; ">> </font>For thinks appearing in menus you can use the keyboard shortcuts tab  <br><font style="font-style: normal; font-weight: normal; background-color: rgb(245, 248, 240); font-size: 14px; ">> </font>of apple's keyboard and mouse preference pane.<br><br><font style="font-style: normal; font-weight: normal; background-color: rgb(245, 248, 240); font-size: 14px; ">> </font>warmest regards,<br><br><font style="font-style: normal; font-weight: normal; background-color: rgb(245, 248, 240); font-size: 14px; ">> </font>Ralph<br><br><font style="font-style: normal; font-weight: normal; background-color: rgb(245, 248, 240); font-size: 14px; ">> </font>Raffael Cavallaro, Ph.D.<br><a href="javascript:main.compose('new','t=raffaelcavallaro@mac.com')"><font style="font-style: normal; font-weight: normal; background-color: rgb(245, 248, 240); font-size: 14px; ">> </font>raffaelcavallaro@mac.com</a><br><br><font style="font-style: normal; font-weight: normal; background-color: rgb(245, 248, 240); font-size: 14px; ">> </font>_______________________________________________<br><font style="font-style: normal; font-weight: normal; background-color: rgb(245, 248, 240); font-size: 14px; ">> </font>Openmcl-devel mailing list<br><font style="font-style: normal; font-weight: normal; background-color: rgb(245, 248, 240); font-size: 14px; ">> </font>Openmcl-devel@clozure.com<br><font style="font-style: normal; font-weight: normal; background-color: rgb(245, 248, 240); font-size: 14px; ">> </font>http://clozure.com/mailman/listinfo/openmcl-devel<br><br></div></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; "><div><font class="Apple-style-span" color="#595959" face="'Trebuchet MS'"><br class="Apple-interchange-newline"><br></font></div><div><font class="Apple-style-span" color="#595959" face="'Trebuchet MS'"><br></font></div><div><font class="Apple-style-span" face="'Trebuchet MS'" color="#595959"><font style="font-style: normal; font-weight: normal; background-color: rgb(245, 248, 240); font-size: 14px; ">> </font>Joakim Sandgren</font></div><div><font class="Apple-style-span" face="'Trebuchet MS'" color="#595959"><font style="font-style: normal; font-weight: normal; background-color: rgb(245, 248, 240); font-size: 14px; ">> </font>joakim sandgren musik</font></div><div><font class="Apple-style-span" face="'Trebuchet MS'" color="#595959"><font style="font-style: normal; font-weight: normal; background-color: rgb(245, 248, 240); font-size: 14px; ">> </font>42, rue de Maubeuge</font></div><div><font class="Apple-style-span" face="'Trebuchet MS'" color="#595959"><font style="font-style: normal; font-weight: normal; background-color: rgb(245, 248, 240); font-size: 14px; ">> </font>75009 Paris</font></div><div><font class="Apple-style-span" face="'Trebuchet MS'" color="#595959"><font style="font-style: normal; font-weight: normal; background-color: rgb(245, 248, 240); font-size: 14px; ">> </font>France</font></div><div><font class="Apple-style-span" face="'Trebuchet MS'" color="#595959"><font style="font-style: normal; font-weight: normal; background-color: rgb(245, 248, 240); font-size: 14px; ">> </font>+33 (0)1 45 26 43 90</font></div><div><font class="Apple-style-span" face="'Trebuchet MS'" color="#595959"><a href="javascript:main.compose('new','t=info@joakimsandgren.com')"><font style="font-style: normal; font-weight: normal; background-color: rgb(245, 248, 240); font-size: 14px; ">> </font>info@joakimsandgren.com</a></font></div><div><font class="Apple-style-span" face="'Trebuchet MS'" color="#595959"><a href="http://www.joakimsandgren.com/" target="1"><font style="font-style: normal; font-weight: normal; background-color: rgb(245, 248, 240); font-size: 14px; ">> </font>http://www.joakimsandgren.com</a></font></div></span> </div><br></div></td></tr></tbody></table> </p></span>> _______________________________________________<br>> Openmcl-devel mailing list<br>> Openmcl-devel@clozure.com<br>> http://clozure.com/mailman/listinfo/openmcl-devel</div>