How to step after a (break) ?

Hi all here on the list!

First one for me here - new to LW but not new to Lisp ;-) As I am  
coming from a different implementation I am seeing challenges I  
wasn't having before ...

That is (using LW PE on Mac OS X Intel 10.4.10):

(defun main ()
    (run-window 'gnc-app-test01 nil))

(defun test01-main ()
   #+lispworks
     (mp:process-send mp:*main-process* '(main))
   #-lispworks
     (main)
)

Now I open the stepper and because I need to do mp:process-send I am  
loosing the process stepping. In other words I can't step into the  
main function when stepping from test01-main. Wanted to be clever  
then an put a breakpoint into main at (run-window ...) - but, hey, I  
never get LW to stop there ... The only chance is to put  (break) in  
at some place. Which I did in a function 'tk-togl-init which gets  
called from within 'run-window:

==========================================
Backtrace taken at: 22 Sep 2007 18:57:33
==========================================
#<The COMMON-LISP-USER package, 54/128 internal, 0/4 external>
#<MP:PROCESS Name "Cocoa Event Loop" Priority 60000000 State "Running">

Condition: Break.
Call to CELTK::TK-TOGL-INIT (offset 24)
   CELTK::INTERP : #<Pointer to type :VOID = #x168B0410>

Call to CELTK:RUN-WINDOW (offset 199)
   CELTK::ROOT-CLASS      : NET.GOENNINGER.APP.CELLO-WIDGETS- 
USER::GNC-APP-TEST01
   CELTK::RESETP          : NIL
   CELTK::WINDOW-INITARGS : NIL

So far so good. Now I get a Listener window popping up giving me a  
few choices but no way to step from there ...

I get a crash of LW somewhere after that point and I need to step ...  
Any ideas/hints/pointers on how to achieve this is really  
appreciated ...

Thanks!!!

Frank

--
   Frank Goenninger
   frgo@goenninger.net

Re: How to step after a (break) ?

I think what you are running into is that you can't step in a user  
interface process on the Mac. All interfaces use a single process, so  
stepping would lock up the entire interface. This is a major  
limitation of the Mac version that I hope gets solved some day.

On Sep 22, 2007, at 1:21 PM, Frank Goenninger wrote:

> Now I open the stepper and because I need to do mp:process-send I  
> am loosing the process stepping. In other words I can't step into  
> the main function when stepping from test01-main. Wanted to be  
> clever then an put a breakpoint into main at (run-window ...) -  
> but, hey, I never get LW to stop there ... The only chance is to  
> put  (break) in at some place. Which I did in a function 'tk-togl- 
> init which gets called from within 'run-window:

John DeSoi, Ph.D.
http://pgedit.com/
Power Tools for PostgreSQL

Re: How to step after a (break) ? - Starting the stepper programmatically ?

Another way out could be starting the stepper programmatically... Is  
there any way to do that ?

Thx!

Frank

Am 22.09.2007 um 19:21 schrieb Frank Goenninger:

>
> Hi all here on the list!
>
> First one for me here - new to LW but not new to Lisp ;-) As I am  
> coming from a different implementation I am seeing challenges I  
> wasn't having before ...
>
> That is (using LW PE on Mac OS X Intel 10.4.10):
>
> (defun main ()
>    (run-window 'gnc-app-test01 nil))
>
> (defun test01-main ()
>   #+lispworks
>     (mp:process-send mp:*main-process* '(main))
>   #-lispworks
>     (main)
> )
>
> Now I open the stepper and because I need to do mp:process-send I  
> am loosing the process stepping. In other words I can't step into  
> the main function when stepping from test01-main. Wanted to be  
> clever then an put a breakpoint into main at (run-window ...) -  
> but, hey, I never get LW to stop there ... The only chance is to  
> put  (break) in at some place. Which I did in a function 'tk-togl- 
> init which gets called from within 'run-window:
>
> ==========================================
> Backtrace taken at: 22 Sep 2007 18:57:33
> ==========================================
> #<The COMMON-LISP-USER package, 54/128 internal, 0/4 external>
> #<MP:PROCESS Name "Cocoa Event Loop" Priority 60000000 State  
> "Running">
>
> Condition: Break.
> Call to CELTK::TK-TOGL-INIT (offset 24)
>   CELTK::INTERP : #<Pointer to type :VOID = #x168B0410>
>
> Call to CELTK:RUN-WINDOW (offset 199)
>   CELTK::ROOT-CLASS      : NET.GOENNINGER.APP.CELLO-WIDGETS- 
> USER::GNC-APP-TEST01
>   CELTK::RESETP          : NIL
>   CELTK::WINDOW-INITARGS : NIL
>
> So far so good. Now I get a Listener window popping up giving me a  
> few choices but no way to step from there ...
>
> I get a crash of LW somewhere after that point and I need to  
> step ... Any ideas/hints/pointers on how to achieve this is really  
> appreciated ...
>
> Thanks!!!
>
> Frank
>
> --
>   Frank Goenninger
>   frgo@goenninger.net
>
>
>