Thanks for your quick response. That explains a lot.  Robby Findler <robby@cs.uchicago.edu> wrote: <BLOCKQUOTE style="PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #1010ff 2px solid">The problem is with the example, which has been since removed from the framework manual (It should not have gone out with v203). There is no test:get-active-frame anymore, instead use get-top-level-focus-window, which is now a builtin function. In general, this example is manipulating DrScheme it self, which means that the code cannot be run from the definitions window, but that it must be run from a privaledged place that is only available for debugging DrScheme, so the example is of little use. Hopefully, you can make a simple example yourself, based on the app you want to test. Let me know if you get stuck. Robby At Sun, 16 Mar 2003 12:56:52 -0800 (PST), Shawn Legrand wrote: > ------------------------------------------------------------------------------ > > When trying to run the frame fact example in section 3.3.1 of the PLT Framework: GUI > Application Framework manual I am receiving an error message: reference to undefined > identifier: test:get-active-frame. I have the (require (lib "framework.ss" > "framework"))statement, in fact if I remove that statement I then fail on the test:new- > window statement, so it appears the require is functioning correctly.. I have looked at > test.ss and it appears to me that the get-active-frame define is in there and should be > OK (but I am a newbie to DrScheme so that may mean little). I have searched the list > archive with no hits. > > Here is my code: > > (require (lib "framework.ss" "framework")) > (define go > (lambda () > (sleep 3) > (test:new-window (get-panel '(0 0 0 1))) ; definitions canvas > (test:menu-select "Edit" "Select All") > (test:menu-select "Edit" "Delete") > (type-line "(define fact") > (type-line "(lambda (n)") > (type-line "(if (zero? n)") > (type-line "1") > (type-line "(* n (fact (sub1 n))))))") > (test:button-push (get-panel '(0 0 0 0 5 0))) ; check-syntax button > (test:button-push (get-panel '(0 0 0 0 5 3))) ; execute button > (sleep 3) > (type-line "(fact 4)") > (sleep 1) > (printf "Test complete. Pending actions: ~s~n" > (test:number-pending-actions)))) > > (define type-line > (lambda (str) > (for-each test:keystroke (string->list str)) > (test:keystroke #\return))) > > (define get-panel > (lambda (path) > (let loop ([path path] > [panel (send (test:get-active-frame) get-top-panel)]) > (if (null? path) > panel > (loop (cdr path) > (list-ref (ivar panel children) (car path))))))) > > > I am running language Pretty Big (includes MrEd and Advanced) at version 203. > > Any help would be appreciated. > > > Shawn Legrand > Carpe Noctem! Carpe Diem! Hieros Gamos! > splegrand@yahoo.com > ------------------------------------------------------------------------------ > > When trying to run the frame fact example in section 3.3.1 of the PLT Framework: GUI > Application Framework manual I am receiving an error message: reference to undefined > identifier: test:get-active-frame. I have the (require (lib "framework.ss" > "framework"))statement, in fact if I remove that statement I then fail on the test:new- > window statement, so it appears the require is functioning correctly.. I have looked at > test.ss and it appears to me that the get-active-frame define is in there and should be > OK (but I am a newbie to DrScheme so that may mean little). I have searched the list > archive with no hits. > > Here is my code: > > (require (lib "framework.ss" "framework")) > (define go >     (lambda () >       (sleep 3) >       (test:new-window (get-panel '(0 0 0 1)))       ; definitions canvas >       (test:menu-select "Edit" "Select All") >       (test:menu-select "Edit" "Delete") >       (type-line "(define fact") >       (type-line "(lambda (n)") >       (type-line "(if (zero? n)") >       (type-line "1") >       (type-line "(* n (fact (sub1 n))))))") >       (test:button-push (get-panel '(0 0 0 0 5 0)))  ; check-syntax button >       (test:button-push (get-panel '(0 0 0 0 5 3)))  ; execute button >       (sleep 3) >    & nbsp;   (type-line "(fact 4)") >       (sleep 1) >       (printf "Test complete. Pending actions: ~s~n" >               (test:number-pending-actions)))) > >   (define type-line >     (lambda (str) >       (for-each test:keystroke (string->list str)) >       (test:keystroke #\return))) > >   (define get-panel >     (lambda (path) >       (let loop ([path  path] >                  [panel (send (test:get-active-frame) get-top-panel)]) >         (if (null? path) >             panel >             (loop (cdr path) >                   (list-ref (ivar panel children) (car path))))))) > > I am running language Pretty Big (includes MrEd and Advanced) at version 203. > > Any help would be appreciated. > > Shawn Legrand > Carpe Noctem! Carpe Diem! Hieros Gamos! > splegrand@yahoo.com </BLOCKQUOTE> Shawn Legrand Carpe Noctem! Carpe Diem! Hieros Gamos! splegrand@yahoo.com