I have a simple problem when trying to use anonymous (lambda callback):
this works fine :
(frame ".fd")
(text ".fd.data")
(scrollbar ".fd.sb")
(define (rolo:ui-sb-refresh p1 p2 p3 p4) (.fd.sb 'set p1 p2 p3 p4))
(define (rolo:ui-sb-command pos) (.fd.data 'yview pos))
(.fd.data 'configure :yscrollCommand 'rolo:ui-sb-refresh)
(.fd.sb 'configure :command 'rolo:ui-sb-command)
now is I try to replace it by:
(frame ".fd")
(text ".fd.data")
(scrollbar ".fd.sb")
(.fd.data 'configure :yscrollCommand '(lambda (p1 p2 p3 p4)
(.fd.sb 'set p1 p2 p3 p4)))
(.fd.sb 'configure :command '(lambda (pos) (.fd.data 'yview pos)))
the scrollbar doesn't react ? What am I doing wrong ?
Tanks for your help.
Marc.
--
Furrer Marc EPFL DI-LTI, 1015 Lausanne, Suisse
Marc.Furrer_at_di.epfl.ch +41 21 693 29 07 / 66 00 (Fax)
http://ltiwww.epfl.ch/~furrer
--
You are a wise man my friend.
Not yet sir. But with your help, I am learning.
-- Riker and Data, "The Measure of a Man", stardate 42523.7
--
PGP 2.6 encrypted mail are welcomed, public key on nearest server
Received on Wed Jan 04 1995 - 15:25:22 CET