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
58
59
60
61
62
63
64
65
66
67
68
69
|
#
# This file is part of Tk-ObjEditor
#
# This software is copyright (c) 2014 by Dominique Dumont.
#
# This is free software; you can redistribute it and/or modify it under
# the same terms as the Perl 5 programming language system itself.
#
# ObjEditor - A widget to edit data and object
use Tk ;
use Tk::ObjEditor ;
# sample object to edit
package Toto ;
sub new
{
my $type = shift ;
my $tkstuff = shift ;
my $scalar = 'dummy scalar ref value';
my $self =
{
'key1' => 'value1',
'array' => [qw/a b sdf/, {'v1' => '1', 'v2' => 2},'dfg'],
'key2' => {
'sub key1' => 'sv1',
'sub key2' => 'sv2'
},
'piped|key' => {a => 1 , b => 2},
'scalar_ref_ref' => \\$scalar,
'empty string' => '',
'non_empty string' => ' ',
'long' => 'very long line'.'.' x 80 ,
'is undef' => undef,
'some text' => "some \n dummy\n Text\n",
} ;
bless $self,$type;
}
package main;
sub obj_ed
{
my($demo) = @_;
$TOP = $MW->WidgetDemo
(
-name => $demo,
-text => 'ObjEditor - data and object editor.',
-geometry_manager => 'grid',
-title => 'A widget to edit data or object',
-iconname => 'ObjEditorDemo'
) ;
$TOP->Label(text => "Please click on right button on any item to modify the data")->pack ;
my $dummy = new Toto ();
$TOP -> ObjEditor
(
caller => $dummy,
direct => 1,
destroyable => 0
) -> pack;
}
|
