r38600 - in /branches/upstream/libconfig-model-tkui-perl/current: Build.PL ChangeLog META.yml lib/Config/Model/Tk/LeafViewer.pm lib/Config/Model/TkUI.pm t/big_model.pm t/config-model-ui.t
ddumont-guest at users.alioth.debian.org
ddumont-guest at users.alioth.debian.org
Thu Jun 25 15:44:26 UTC 2009
Author: ddumont-guest
Date: Thu Jun 25 15:44:21 2009
New Revision: 38600
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=38600
Log:
[svn-upgrade] Integrating new upstream version, libconfig-model-tkui-perl (1.210)
Modified:
branches/upstream/libconfig-model-tkui-perl/current/Build.PL
branches/upstream/libconfig-model-tkui-perl/current/ChangeLog
branches/upstream/libconfig-model-tkui-perl/current/META.yml
branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/LeafViewer.pm
branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/TkUI.pm
branches/upstream/libconfig-model-tkui-perl/current/t/big_model.pm
branches/upstream/libconfig-model-tkui-perl/current/t/config-model-ui.t
Modified: branches/upstream/libconfig-model-tkui-perl/current/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconfig-model-tkui-perl/current/Build.PL?rev=38600&op=diff
==============================================================================
--- branches/upstream/libconfig-model-tkui-perl/current/Build.PL (original)
+++ branches/upstream/libconfig-model-tkui-perl/current/Build.PL Thu Jun 25 15:44:21 2009
@@ -1,6 +1,6 @@
# $Author: ddumont $
-# $Date: 2009-03-31 13:41:21 +0200 (Tue, 31 Mar 2009) $
-# $Revision: 910 $
+# $Date: 2009-06-23 14:19:05 +0200 (Tue, 23 Jun 2009) $
+# $Revision: 983 $
# Copyright (c) 2007-2009 Dominique Dumont.
#
@@ -23,7 +23,7 @@
use Module::Build;
-require 5.006 ;
+require 5.008 ;
my $build = Module::Build->new
(
@@ -32,7 +32,7 @@
dist_abstract => "Tk GUI to edit config data through Config::Model",
dist_author => "Dominique Dumont (ddumont at cpan dot org)",
requires => {
- 'Config::Model' => '0.635',
+ 'Config::Model' => '0.637',
'Exception::Class' => 0,
'Tk' => 0,
'Tk::DirSelect' => 0,
Modified: branches/upstream/libconfig-model-tkui-perl/current/ChangeLog
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconfig-model-tkui-perl/current/ChangeLog?rev=38600&op=diff
==============================================================================
--- branches/upstream/libconfig-model-tkui-perl/current/ChangeLog (original)
+++ branches/upstream/libconfig-model-tkui-perl/current/ChangeLog Thu Jun 25 15:44:21 2009
@@ -1,9 +1,19 @@
+2009-06-23 Dominique Dumont <dominique.dumont at hp.com> v1.210
+
+ * lib/Config/Model/Tk/LeafViewer.pm (add_info): use
+ upstream_default() method instead of deprecated built_in().
+
+2009-05-30 Dominique Dumont <dominique.dumont at hp.com>
+
+ * lib/Config/Model/TkUI.pm (Populate): added -title option so the
+ application can set the title of the TkUI window
+
2009-04-07 Dominique Dumont <dominique.dumont at hp.com> v1.208
* lib/Config/Model/Tk/HashEditor.pm (Populate): Improved widget
ergonomy. Added some balloon help.
-2009-03-31 Dominique Dumont <dominique.dumont at hp.com> unreleased
+2009-03-31 Dominique Dumont <dominique.dumont at hp.com>
* lib/Config/Model/Tk/*.pm (): Added display of summary
Modified: branches/upstream/libconfig-model-tkui-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconfig-model-tkui-perl/current/META.yml?rev=38600&op=diff
==============================================================================
--- branches/upstream/libconfig-model-tkui-perl/current/META.yml (original)
+++ branches/upstream/libconfig-model-tkui-perl/current/META.yml Thu Jun 25 15:44:21 2009
@@ -1,6 +1,6 @@
---
name: Config-Model-TkUI
-version: 1.208
+version: 1.210
author:
- Dominique Dumont (ddumont at cpan dot org)
abstract: Tk GUI to edit config data through Config::Model
@@ -8,7 +8,7 @@
resources:
license: http://opensource.org/licenses/lgpl-license.php
requires:
- Config::Model: 0.635
+ Config::Model: 0.637
Exception::Class: 0
Log::Log4perl: 1.11
Tk: 0
@@ -37,7 +37,7 @@
version: 1.0910
Config::Model::Tk::LeafViewer:
file: lib/Config/Model/Tk/LeafViewer.pm
- version: 1.0910
+ version: 1.0979
Config::Model::Tk::ListEditor:
file: lib/Config/Model/Tk/ListEditor.pm
version: 1.0910
@@ -49,8 +49,8 @@
version: 1.0910
Config::Model::TkUI:
file: lib/Config/Model/TkUI.pm
- version: 1.208
-generated_by: Module::Build version 0.3
+ version: 1.210
+generated_by: Module::Build version 0.33
meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.2.html
- version: 1.2
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: 1.4
Modified: branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/LeafViewer.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/LeafViewer.pm?rev=38600&op=diff
==============================================================================
--- branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/LeafViewer.pm (original)
+++ branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/LeafViewer.pm Thu Jun 25 15:44:21 2009
@@ -1,6 +1,6 @@
# $Author: ddumont $
-# $Date: 2009-03-31 13:41:21 +0200 (Tue, 31 Mar 2009) $
-# $Revision: 910 $
+# $Date: 2009-06-23 13:41:22 +0200 (Tue, 23 Jun 2009) $
+# $Revision: 979 $
# Copyright (c) 2008 Dominique Dumont.
#
@@ -30,7 +30,7 @@
use base qw/Tk::Frame Config::Model::Tk::AnyViewer/;
use vars qw/$VERSION/ ;
-$VERSION = sprintf "1.%04d", q$Revision: 910 $ =~ /(\d+)/;
+$VERSION = sprintf "1.%04d", q$Revision: 979 $ =~ /(\d+)/;
Construct Tk::Widget 'ConfigModelLeafViewer';
@@ -118,8 +118,8 @@
'type : '.$leaf->value_type.$choice_str,
);
- if (defined $leaf->built_in) {
- push @items, "built_in value: " . $leaf->built_in ;
+ if (defined $leaf->upstream_default) {
+ push @items, "upstream_default value: " . $leaf->upstream_default ;
}
elsif (defined $leaf->fetch('standard')) {
push @items, "default value: " . $leaf->fetch('standard') ;
Modified: branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/TkUI.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/TkUI.pm?rev=38600&op=diff
==============================================================================
--- branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/TkUI.pm (original)
+++ branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/TkUI.pm Thu Jun 25 15:44:21 2009
@@ -1,6 +1,6 @@
# $Author: ddumont $
-# $Date: 2009-04-07 13:16:38 +0200 (Tue, 07 Apr 2009) $
-# $Revision: 920 $
+# $Date: 2009-06-23 13:41:22 +0200 (Tue, 23 Jun 2009) $
+# $Revision: 979 $
# Copyright (c) 2007,2009 Dominique Dumont.
#
@@ -53,7 +53,7 @@
use Config::Model::Tk::NodeViewer ;
-$VERSION = '1.208' ;
+$VERSION = '1.210' ;
Construct Tk::Widget 'ConfigModelUI';
@@ -101,6 +101,9 @@
}
my $extra_menu = delete $args->{'-extra-menu'} || [] ;
+
+ my $title = delete $args->{'-title'}
+ || "config-edit ".$cw->{root}->config_class_name ;
# check unknown parameters
croak "Unknown parameter ",join(' ',keys %$args) if %$args;
@@ -206,6 +209,7 @@
$cw->on_select($item)} ;
$tree->bind('<Button-3>', $b3_sub) ;
+ $args->{-title} = $title;
$cw->SUPER::Populate($args) ;
$cw->ConfigSpecs
Modified: branches/upstream/libconfig-model-tkui-perl/current/t/big_model.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconfig-model-tkui-perl/current/t/big_model.pm?rev=38600&op=diff
==============================================================================
--- branches/upstream/libconfig-model-tkui-perl/current/t/big_model.pm (original)
+++ branches/upstream/libconfig-model-tkui-perl/current/t/big_model.pm Thu Jun 25 15:44:21 2009
@@ -1,7 +1,7 @@
# -*- cperl -*-
# $Author: ddumont $
-# $Date: 2009-03-31 13:41:21 +0200 (Tue, 31 Mar 2009) $
-# $Revision: 910 $
+# $Date: 2009-06-23 14:34:38 +0200 (Tue, 23 Jun 2009) $
+# $Revision: 984 $
# this file is used by test script
@@ -65,8 +65,10 @@
std_id => {
type => 'hash',
index_type => 'string',
- cargo_type => 'node',
- config_class_name => 'SlaveZ' ,
+ cargo => {
+ type => 'node',
+ config_class_name => 'SlaveZ'
+ } ,
},
sub_slave => { type => 'node' ,
config_class_name => 'SubSlave',
@@ -97,47 +99,54 @@
[
name => 'Master',
- permission => [ [qw/tree_macro warp/] => 'advanced'] ,
+ experience => [ [qw/tree_macro warp/] => 'advanced'] ,
class_description => "Master description",
level => [ [qw/hash_a tree_macro int_v/] => 'important' ],
element => [
std_id => { type => 'hash',
index_type => 'string',
- cargo_type => 'node',
- config_class_name => 'SlaveZ' ,
+ cargo => { type => 'node',
+ config_class_name => 'SlaveZ'
+ } ,
},
[qw/lista listb/] => { type => 'list',
- cargo_type => 'leaf',
- cargo_args => {value_type => 'uniline'},
+ cargo => { type => 'leaf',
+ value_type => 'uniline'
+ },
},
[qw/hash_a hash_b/] => { type => 'hash',
index_type => 'string',
- cargo_type => 'leaf',
- cargo_args => {value_type => 'uniline'},
+ cargo => { type => 'leaf',
+ value_type => 'uniline'
+ },
},
ordered_hash => { type => 'hash',
index_type => 'string',
ordered => 1 ,
- cargo_type => 'leaf',
- cargo_args => {value_type => 'uniline'},
+ cargo => { type => 'leaf',
+ value_type => 'uniline'
+ },
},
ordered_hash_of_mandatory => { type => 'hash',
index_type => 'string',
ordered => 1 ,
- cargo_type => 'leaf',
- cargo_args => {value_type => 'uniline',
- mandatory => 1,
- },
+ cargo => { type => 'leaf',
+ value_type => 'uniline',
+ mandatory => 1,
+ },
},
- ordered_hash_of_nodes => { type => 'hash',
- index_type => 'string',
- ordered => 1 ,
- cargo_type => 'node',
- config_class_name => 'SlaveZ'
- },
+ 'ordered_hash_of_nodes'
+ => { type => 'hash',
+ index_type => 'string',
+ ordered => 1 ,
+ cargo => { type => 'node',
+ config_class_name => 'SlaveZ'
+ },
+ },
olist => { type => 'list',
- cargo_type => 'node',
- config_class_name => 'SlaveZ' ,
+ cargo => { type => 'node',
+ config_class_name => 'SlaveZ' ,
+ },
},
enum_list => { type => 'list',
cargo => { type => 'leaf',
@@ -195,9 +204,9 @@
min => 5,
max => 15
},
- built_in_default => { type => 'leaf',
+ upstream_default => { type => 'leaf',
value_type => 'integer',
- built_in => '10',
+ upstream_default => '10',
},
my_plain_check_list => { type => 'check_list',
choice => ['AA' .. 'AE'],
Modified: branches/upstream/libconfig-model-tkui-perl/current/t/config-model-ui.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconfig-model-tkui-perl/current/t/config-model-ui.t?rev=38600&op=diff
==============================================================================
--- branches/upstream/libconfig-model-tkui-perl/current/t/config-model-ui.t (original)
+++ branches/upstream/libconfig-model-tkui-perl/current/t/config-model-ui.t Thu Jun 25 15:44:21 2009
@@ -1,7 +1,7 @@
# -*- cperl -*-
# $Author: ddumont $
-# $Date: 2008-12-22 13:19:00 +0100 (Mon, 22 Dec 2008) $
-# $Revision: 815 $
+# $Date: 2009-06-23 13:41:22 +0200 (Tue, 23 Jun 2009) $
+# $Revision: 979 $
use warnings FATAL => qw(all);
use ExtUtils::testlib;
@@ -32,7 +32,7 @@
ok(1,"Compilation done");
-my $model = Config::Model -> new (legacy => 'ignore') ;
+my $model = Config::Model -> new () ;
my $inst = $model->instance (root_class_name => 'Master',
model_file => 't/big_model.pm',
More information about the Pkg-perl-cvs-commits
mailing list