Megatest

Check-in [24cc661bd8]
Login
Overview
Comment:Added tree widget example
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 24cc661bd89e77957fe0fcc4a3a523f38963a465
User & Date: matt on 2011-11-06 14:42:19
Other Links: manifest | tags
Context
2011-11-06
23:59
Partial fix for eztests. All but warn working correctly' check-in: 8ed9886ecf user: matt tags: trunk
14:42
Added tree widget example check-in: 24cc661bd8 user: matt tags: trunk
2011-11-05
18:11
Got cells.scm and matrix.scm example files working. More steps stuff working Added tests for ezsteps and logpro l check-in: b2b8a3f26c user: matt tags: trunk
Changes

Added tree.scm version [9e2a608ad8].

























































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

(use iup canvas-draw canvas-draw-iup)

(define t #f) 

(define tree-dialog
  (dialog
   #:title "Tree Test"
   (let ((t1 (treebox
                 #:selection_cb (lambda (obj id state)
                                    (print "selection_db with id=" id " state=" state)
                                    (print "Userdata: " (attribute obj "USERDATA"))
                                    (attribute-set! obj "USERDATA" "Testvalue")))))
     (set! t t1)
     t1)))

(show tree-dialog)
(map (lambda (elname el)
       (print "Adding " elname " with value " el)
       (attribute-set! t elname el)
       (attribute-set! t "USERDATA" el))
     '("VALUE" "NAME"    "ADDLEAF" "ADDBRANCH1" "ADDLEAF2"    "VALUE")
     '("0"     "Figures" "Other"   "triangle"   "equilateral" "4")
     )
(map (lambda (attr)
       (print attr " is " (attribute t attr)))
     '("KIND1" "PARENT2" "STATE1"))
(main-loop)