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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
# vim: syntax=perl
{
"-name" => "a simplistic example", # workaround for some perl bug
-type => "sortable",
-dispheight => 3,
-compare=>sub { $_[0]->{v} <=> $_[1]->{v} },
-node_opts=>{
-shape => "oval", -size => [30,20],
-display => sub { return $_[0]->cget(-content)->{v} }
},
-init_data => [
{ v => 592 },
{ v => 821 },
{ v => 334 },
{ v => 175 },
{ v => 838 },
{ v => 861 },
{ v => 332 },
{ v => 428 },
{ v => 420 },
{ v => 503 },
{ v => 701 },
{ v => 41 },
{ v => 789 },
{ v => 4 },
{ v => 615 },
{ v => 451 },
{ v => 372 },
{ v => 603 },
{ v => 522 },
{ v => 756 },
{ v => 829 },
{ v => 820 },
{ v => 764 },
{ v => 36 },
{ v => 934 },
{ v => 467 },
{ v => 288 },
{ v => 777 },
{ v => 361 },
{ v => 407 },
{ v => 613 },
{ v => 816 },
{ v => 483 },
{ v => 990 },
{ v => 608 },
{ v => 966 },
],
-operation => [
# remove => { v => 75 },
# insert => { v => 48 },
],
};
|
