Question?: stklos define-method and lambda

From: Joe Norton <norton_at_adttx.sps.mot.com>
Date: Sun, 28 Apr 96 22:12:12 CDT

I have a question regarding stklos' define-method and lambda. I want
to define some bindings for a stklos widget that I created (based on
the blt_graph widget).

Instead of explicitly defining 2 new methods for the <Blt-Graph>
class, I would like to define the 2 "lambda" expressions below (see
arrows -->). However, I do not think this is possible (the stk
interprerter is reporting a "unbound variable: <1l1817193229-gr"
error). I feel that I would need some type of "lambda-method"
construct for this to work. Is this correct? Does anyone have any
suggestions on the best way to approach this problem?

thanks,

- joe

  ;;;;;;;;;;;;;;;;;
  ;; blt-get-anchor
  
  (define-method blt-get-anchor ((self <Blt-Graph>) x y)
    (hash-table-put! (pos self) '('B 'x) nil)
    (hash-table-put! (pos self) '('B 'y) nil)
  
    (blt-get-coords self x y 'A)
  
    (bind self "<B1-Motion>"
--> (lambda ((|W| <Blt-Graph>) x y)
                   (blt-scan |W| x y)))
      
    (bind self "<ButtonRelease-1>"
--> (lambda ((|W| <Blt-Graph>) x y)
                   (blt-zoom |W| x y))))

_,.-=~'`^`'~=-.,__,.-=~'`^`'~=-.,__,.-=~'`^`'~=-.,__,.-=~'`^`'~=-.,__,.-=~'`^

     Joe Norton joe_norton_at_email.sps.mot.com
     Advanced Design Technologies 5165396.skytel_at_pagegate.sps.mot.com
     Motorola, Inc.

     phone: (512) 891-8664 | pager: (800) 516-5396 | fax: (512) 891-3161
 6501 William Cannon Drive West | Mail Drop OE321 | Austin TX 78705-8598 USA

_,.*"~'`~`'~"*.,__,.*"~'`~`'~"*.,__,.*"~'`~`'~"*.,__,.*"~'`~`'~"*.,__,.*"~'`~
Received on Mon Apr 29 1996 - 05:14:50 CEST