Welcome to the CHICKEN Scheme pasting service

snip added by anonymous on Sat Oct 21 22:25:40 2017

  (let ((sliders (map (cut qt:find mainwindow <>) '("sl1" "sl2" "sl3" "sl4")))
        (signals '("valueChanged(int)" "valueChanged(int)" "valueChanged(int)" "valueChanged(int)"))
        (fns (list (qt:receiver (cut set! a <>))
                   (qt:receiver (cut set! b <>))
                   (qt:receiver (cut set! c <>))
                   (qt:receiver (cut set! d <>)) ))
        (slots '("slot(int)" "slot(int)" "slot(int)" "slot(int)")) )
    (map qt:connect sliders signals fns slots) )
[ permalink | raw ]

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
Name of the CHICKEN extension manager:
Visually impaired? Let me spell it for you (wav file) download WAV