<P>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&nbsp;the <FONT face="Courier New">(<SPAN class=keyword>require</SPAN> (<SPAN class=keyword>lib</SPAN> <SPAN class=selfeval>"framework.ss"</SPAN> <SPAN class=selfeval>"framework"</SPAN>))</FONT>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.</P>
<P>Here is my code:</P>
<P>(require (lib "framework.ss" "framework")) <BR>(define go<BR>&nbsp;&nbsp;&nbsp; (lambda ()<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (sleep 3)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (test:new-window (get-panel '(0 0 0 1)))&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ; definitions canvas<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (test:menu-select "Edit" "Select All")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (test:menu-select "Edit" "Delete")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (type-line "(define fact")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (type-line "(lambda (n)")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (type-line "(if (zero? n)")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (type-line "1")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (type-line "(* n (fact (sub1 n))))))")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (test:button-push (get-panel '(0 0 0 0 5 0)))&nbsp; ; check-syntax button<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (test:button-push (get-panel '(0 0 0 0 5 3)))&nbsp; ; execute button<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (sleep 3)<BR>&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; (type-line "(fact 4)")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (sleep 1)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (printf "Test complete. Pending actions: ~s~n" <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (test:number-pending-actions))))</P>
<P>&nbsp; (define type-line<BR>&nbsp;&nbsp;&nbsp; (lambda (str)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (for-each test:keystroke (string-&gt;list str))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (test:keystroke #\return)))</P>
<P>&nbsp; (define get-panel<BR>&nbsp;&nbsp;&nbsp; (lambda (path)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (let loop ([path&nbsp; path] <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; [panel (send (test:get-active-frame) get-top-panel)])<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (if (null? path)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; panel<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (loop (cdr path) <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (list-ref (ivar panel children) (car path)))))))<BR></P>
<P>I am running language Pretty Big (includes MrEd and Advanced) at version 203.</P>
<P>Any help would be appreciated.</P><BR><BR>Shawn Legrand <br>Carpe Noctem! Carpe Diem! Hieros Gamos!<br>splegrand@yahoo.com