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
| $VAR1 = {
'row' => 0,
'col' => 0,
'sel' => '0',
'label' => bless( {'_TkValue_' => '.frame1.frame.pane.frame.frame1.label1'}, 'Tk::Label' ),
'frame' => bless( {
'_After_' => {},
'_Destroy_' => [
'ConfigSpecs',
'Configure',
bless( [
sub { "DUMMY" },
$VAR1->{'frame'}
], 'Tk::Callback' ),
'_names_'
],
'_names_' => {
'label' => 1
},
'Configure' => {
'-background' => 'white',
'-foreground' => 'Black'
},
'_TkValue_' => '.frame1.frame.pane.frame.frame1',
'ConfigSpecs' => {
'-fg' => '-foreground',
'-background' => [
[
'SELF'
],
'background',
'Background',
'SystemButtonFace'
],
'-label' => [
'METHOD',
undef,
undef,
undef
],
'-bg' => '-background',
'-foreground' => [
[
'PASSIVE'
],
'foreground',
'Foreground',
'Black'
],
'DEFAULT' => [
'SELF'
],
'-labelPack' => [
'METHOD',
undef,
undef,
undef
],
'-labelVariable' => [
'METHOD',
undef,
undef,
undef
]
}
}, 'Tk::Frame' ),
'img' => bless( {'_TkValue_' => '.frame1.frame.pane.frame.frame1.label'}, 'Tk::Label' )
}; |
Partager