/[gtk-cffi]/gtk-cffi/examples/ex9.lisp
ViewVC logotype

Diff of /gtk-cffi/examples/ex9.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by rklochkov, Mon May 7 09:02:03 2012 UTC revision 1.5 by rklochkov, Sun Oct 7 12:02:11 2012 UTC
# Line 1  Line 1 
1  (asdf:oos 'asdf:load-op :gtk-cffi-ext)  (asdf:oos 'asdf:load-op :gtk-cffi-ext)
2  ;(declaim (optimize speed))  (declaim (optimize speed))
3  (defpackage #:test9  (defpackage #:test9
4    (:use #:common-lisp #:iter #:gtk-cffi #:gtk-cffi-ext #:g-object-cffi))    (:use #:common-lisp #:iter #:gtk-cffi #:gtk-cffi-ext #:g-object-cffi))
5  (in-package #:test9)  (in-package #:test9)
# Line 22  Line 22 
22  (append-values *model0* '(3))  (append-values *model0* '(3))
23    
24  (let ((arr (make-array 0 :adjustable t :fill-pointer 0)))  (let ((arr (make-array 0 :adjustable t :fill-pointer 0)))
25    (iter (for i from 1 to 100000)    (iter (for i from 1 to 100000) ;; benchmark
26          (vector-push-extend (list (format nil "str ~a" i) i) arr))          (vector-push-extend (list (format nil "str ~a" i) i) arr))
27    (setf (larray (implementation *model*)) arr))    (setf (larray (implementation *model*)) arr))
28    
# Line 34  Line 34 
34      ('scrolled-window      ('scrolled-window
35       ('tree-view :model *model* :columns '("Test str" "Test int"))))); "Test int"))))       ('tree-view :model *model* :columns '("Test str" "Test int"))))); "Test int"))))
36    
37  ;(show *window*)  (show *window*)
38  (show #(1 2 3 4 5))  ;(show #(1 2 3 4 5))
39    
40  (gtk-main)  (gtk-main)

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

  ViewVC Help
Powered by ViewVC 1.1.5