<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=utf-8">
</head>
<body text="#000000" bgcolor="#FFFFFF">
<p>
</p>
<div class="moz-text-flowed" style="font-family: -moz-fixed;
font-size: 12px;" lang="x-unicode">From Greg Bennett, running
64bit Mint 18.2 and sbcl 1.4.0 [should fix that!]
<br>
<br>
<br>
I am trying to port a project using mcclim as the graphics
machine.
<br>
<br>
Using
code from CLIM User Guide V2.2.2 P19:<br>
<br>
<START of CODE>
<br>
<br>
(in-package :clim-user)
<br>
<br>
(define-application-frame test ()
<br>
()
<br>
(:panes
<br>
(display :application))
<br>
(:layouts
<br>
(default display)))
<br>
<br>
(define-test-command (com-quit :menu t) ()
<br>
(frame-exit <b class="moz-txt-star"><span class="moz-txt-tag">*</span>application-frame<span
class="moz-txt-tag">*</span></b>))
<br>
<br>
(defvar <b class="moz-txt-star"><span class="moz-txt-tag">*</span>test-frame<span
class="moz-txt-tag">*</span></b> nil)
<br>
<br>
(defun test ()
<br>
(flet ((run ()
<br>
(let ((frame (make-application-frame 'test)))
<br>
(setq <b class="moz-txt-star"><span
class="moz-txt-tag">*</span>test-frame<span
class="moz-txt-tag">*</span></b> frame) (run-frame-top-level
frame))))
<br>
(sb-thread::make-thread #'run :name "test")
<br>
<b class="moz-txt-star"><span class="moz-txt-tag">*</span>test-frame<span
class="moz-txt-tag">*</span></b>))
<br>
<br>
<END of CODE>
<br>
<br>
and then (test), I can get a mcclim window in which I can draw
while still having the sbcl
<br>
listener alive.
<br>
<br>
I'd like to learn how to create other instances of application
frames on the same thread
<br>
[named "test" in this case]
Is it as simple as invoking clim:run-frame-toplevel again, for<br>
instance ?<br>
<br>
If there are pointers to mcclim's handling of threads, I'd be
happy to learn of them.<br>
<br>
Thanks for advice and assistance,
<br>
Cheers /GB
<br>
<br>
------------------------------------------------------------------------------
<br>
Check out the vibrant tech community on one of the world's most
<br>
engaging tech sites, Slashdot.org! <a
class="moz-txt-link-freetext" href="http://sdm.link/slashdot">http://sdm.link/slashdot</a>
<br>
_______________________________________________
<br>
Sbcl-devel mailing list
<br>
<a class="moz-txt-link-abbreviated"
href="mailto:Sbcl-devel@lists.sourceforge.net">Sbcl-devel@lists.sourceforge.net</a>
<br>
<a class="moz-txt-link-freetext"
href="https://lists.sourceforge.net/lists/listinfo/sbcl-devel">https://lists.sourceforge.net/lists/listinfo/sbcl-devel</a>
<br>
<br>
</div>
</body>
</html>