[perl-Gtk3] Add a usage message to Gtk3::ListStore::set



commit 9871e6fb1cb2bcc002c3789dfbdff55840c11987
Author: Torsten SchÃnfeld <kaffeetisch gmx de>
Date:   Sat Sep 10 23:52:01 2011 +0200

    Add a usage message to Gtk3::ListStore::set

 lib/Gtk3.pm |    4 +++-
 1 files changed, 3 insertions(+), 1 deletions(-)
---
diff --git a/lib/Gtk3.pm b/lib/Gtk3.pm
index 9abb0fb..7546909 100644
--- a/lib/Gtk3.pm
+++ b/lib/Gtk3.pm
@@ -2,6 +2,7 @@ package Gtk3;
 
 use strict;
 use warnings;
+use Carp qw/croak/;
 use Glib::Object::Introspection;
 use Exporter;
 
@@ -113,7 +114,8 @@ sub Gtk3::ListStore::set {
     @columns = keys %cols_to_vals;
     @values = values %cols_to_vals;
   } else {
-    # FIXME
+    croak ('Usage: Gtk3::ListStore::set ($store, \ columns, \ values)',
+           ' -or-: Gtk3::ListStore::set ($store, $column1 => $value1, ...)');
   }
   my @wrapped_values = ();
   foreach my $i (0..$#columns) {



[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]