r38607 - in /trunk/libconfig-model-tkui-perl: Build.PL ChangeLog META.yml debian/changelog debian/control 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 16:09:47 UTC 2009
Author: ddumont-guest
Date: Thu Jun 25 16:09:41 2009
New Revision: 38607
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=38607
Log:
ready for release
Modified:
trunk/libconfig-model-tkui-perl/Build.PL
trunk/libconfig-model-tkui-perl/ChangeLog
trunk/libconfig-model-tkui-perl/META.yml
trunk/libconfig-model-tkui-perl/debian/changelog
trunk/libconfig-model-tkui-perl/debian/control
trunk/libconfig-model-tkui-perl/lib/Config/Model/Tk/LeafViewer.pm
trunk/libconfig-model-tkui-perl/lib/Config/Model/TkUI.pm
trunk/libconfig-model-tkui-perl/t/big_model.pm
trunk/libconfig-model-tkui-perl/t/config-model-ui.t
Modified: trunk/libconfig-model-tkui-perl/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-tkui-perl/Build.PL?rev=38607&op=diff
==============================================================================
--- trunk/libconfig-model-tkui-perl/Build.PL (original)
+++ trunk/libconfig-model-tkui-perl/Build.PL Thu Jun 25 16:09:41 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: trunk/libconfig-model-tkui-perl/ChangeLog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-tkui-perl/ChangeLog?rev=38607&op=diff
==============================================================================
--- trunk/libconfig-model-tkui-perl/ChangeLog (original)
+++ trunk/libconfig-model-tkui-perl/ChangeLog Thu Jun 25 16:09:41 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: trunk/libconfig-model-tkui-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-tkui-perl/META.yml?rev=38607&op=diff
==============================================================================
--- trunk/libconfig-model-tkui-perl/META.yml (original)
+++ trunk/libconfig-model-tkui-perl/META.yml Thu Jun 25 16:09:41 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: trunk/libconfig-model-tkui-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-tkui-perl/debian/changelog?rev=38607&op=diff
==============================================================================
--- trunk/libconfig-model-tkui-perl/debian/changelog (original)
+++ trunk/libconfig-model-tkui-perl/debian/changelog Thu Jun 25 16:09:41 2009
@@ -1,8 +1,14 @@
-libconfig-model-tkui-perl (1.208-2) UNRELEASED; urgency=low
+libconfig-model-tkui-perl (1.210-1) unstable; urgency=low
+ [ Nathan Handler ]
* debian/watch: Update to ignore development releases.
- -- Nathan Handler <nhandler at ubuntu.com> Sat, 06 Jun 2009 01:33:22 +0000
+ [ Dominique Dumont ]
+ * New upstream release
+ * control: depends on libconfig-model-perl >= 0.637
+ * control: Updated to policy 3.8.2
+
+ -- Dominique Dumont <dominique.dumont at hp.com> Thu, 25 Jun 2009 18:08:29 +0200
libconfig-model-tkui-perl (1.208-1) unstable; urgency=low
Modified: trunk/libconfig-model-tkui-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-tkui-perl/debian/control?rev=38607&op=diff
==============================================================================
--- trunk/libconfig-model-tkui-perl/debian/control (original)
+++ trunk/libconfig-model-tkui-perl/debian/control Thu Jun 25 16:09:41 2009
@@ -5,7 +5,7 @@
perl-modules (>= 5.10) | libmodule-build-perl
Build-Depends-Indep: perl (>= 5.8.8-12),
perl-tk (>= 800),
- libconfig-model-perl (>= 0.635),
+ libconfig-model-perl (>= 0.637),
libexception-class-perl,
libtest-pod-perl,
libtk-dirselect-perl,
@@ -13,7 +13,7 @@
liblog-log4perl-perl (>= 1.11)
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Uploaders: Dominique Dumont <dominique.dumont at hp.com>
-Standards-Version: 3.8.1
+Standards-Version: 3.8.2
Homepage: http://search.cpan.org/dist/Config-Model-TkUI/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libconfig-model-tkui-perl/
Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libconfig-model-tkui-perl/
@@ -22,7 +22,7 @@
Architecture: all
Depends: ${perl:Depends}, ${misc:Depends},
perl-tk,
- libconfig-model-perl (>= 0.635),
+ libconfig-model-perl (>= 0.637),
libexception-class-perl,
libtk-dirselect-perl,
liblog-log4perl-perl (>= 1.11)
Modified: trunk/libconfig-model-tkui-perl/lib/Config/Model/Tk/LeafViewer.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-tkui-perl/lib/Config/Model/Tk/LeafViewer.pm?rev=38607&op=diff
==============================================================================
--- trunk/libconfig-model-tkui-perl/lib/Config/Model/Tk/LeafViewer.pm (original)
+++ trunk/libconfig-model-tkui-perl/lib/Config/Model/Tk/LeafViewer.pm Thu Jun 25 16:09:41 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: trunk/libconfig-model-tkui-perl/lib/Config/Model/TkUI.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-tkui-perl/lib/Config/Model/TkUI.pm?rev=38607&op=diff
==============================================================================
--- trunk/libconfig-model-tkui-perl/lib/Config/Model/TkUI.pm (original)
+++ trunk/libconfig-model-tkui-perl/lib/Config/Model/TkUI.pm Thu Jun 25 16:09:41 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: trunk/libconfig-model-tkui-perl/t/big_model.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-tkui-perl/t/big_model.pm?rev=38607&op=diff
==============================================================================
--- trunk/libconfig-model-tkui-perl/t/big_model.pm (original)
+++ trunk/libconfig-model-tkui-perl/t/big_model.pm Thu Jun 25 16:09:41 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: trunk/libconfig-model-tkui-perl/t/config-model-ui.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-tkui-perl/t/config-model-ui.t?rev=38607&op=diff
==============================================================================
--- trunk/libconfig-model-tkui-perl/t/config-model-ui.t (original)
+++ trunk/libconfig-model-tkui-perl/t/config-model-ui.t Thu Jun 25 16:09:41 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