view release on metacpan or  search on metacpan

doc/examples/sql/DataGlue.as  view on Meta::CPAN

// test w/ combobox, listbox, tree, chart?

_global.DataGlue = function(dataProvider)
{
	this.dataProvider = dataProvider;
}

 view release on metacpan or  search on metacpan

lib/GUIDeFATE.pm  view on Meta::CPAN

		}
		
		while ($line =~m/(\^([A-z]+)\s*\^)/g){ #ComboBoxes
			my $ps=length($`);my $label=$2; my $len=length ($label);$label=~s/^(\s+)|(\s+)$//g;
			$line=~s/(\^([A-z]+)\s*\^)/" " x length($1)/e;
			$log= "combobox calls function &combo$bid\n"; ##
			if ($verbose){ print $log; }
			if ($auto){ $autoGen.=makeSub("combo$bid", "combobox with data from \@$label"); }
			addWidget(["combo",$bid,$label,[$winScale*($ps*2-1),$winScale*$l*4],[$winScale*($len*2+3),$winScale*4], \&{"main::combo".$bid}]);
			$bid++;
		}
		while ($line =~m/(\{([^}]*)\})/g){   # buttons are made from { <label> } 
			my $ps=length($`);my $label=$2; my $len=length ($label);$label=~s/^(\s+)|(\s+)$//g;

 view release on metacpan or  search on metacpan

lib/Games/Axmud/Client.pm  view on Meta::CPAN

                'Games::Axmud::Table::RadioButton'
                                        => $axmud::SCRIPT . ' radio button',
                'Games::Axmud::Table::Entry'
                                        => $axmud::SCRIPT . ' entry box',
                'Games::Axmud::Table::ComboBox'
                                        => $axmud::SCRIPT . ' combobox',
                'Games::Axmud::Table::SimpleList'
                                        => $axmud::SCRIPT . ' simple list',
                'Games::Axmud::Table::TextView'
                                        => $axmud::SCRIPT . ' simple textview',
                'Games::Axmud::Table::Pane'

 view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

t/0117_button_boxes.t
t/0118_paned.t
t/0119_table.t
t/0120_list_tree_store.t
t/0121_cell_renderer.t
t/0122_combobox.t
t/0123_treeview.t
t/0124_scrolled_window.t
t/0125_assistant.t
t/0126_notebook.t
t/0127_file_chooser_dialog.t

 view release on metacpan or  search on metacpan

t/sandbox/pkg-files.lst  view on Meta::CPAN

/usr/include/gtk-2.0/gtk/gtkclist.h
/usr/include/gtk-2.0/gtk/gtkcolorbutton.h
/usr/include/gtk-2.0/gtk/gtkcolorsel.h
/usr/include/gtk-2.0/gtk/gtkcolorseldialog.h
/usr/include/gtk-2.0/gtk/gtkcombo.h
/usr/include/gtk-2.0/gtk/gtkcombobox.h
/usr/include/gtk-2.0/gtk/gtkcomboboxentry.h
/usr/include/gtk-2.0/gtk/gtkcontainer.h
/usr/include/gtk-2.0/gtk/gtkctree.h
/usr/include/gtk-2.0/gtk/gtkcurve.h
/usr/include/gtk-2.0/gtk/gtkdebug.h
/usr/include/gtk-2.0/gtk/gtkdialog.h

 view release on metacpan or  search on metacpan

lib/Geo/Raster/Layer/Dialogs/Copy.pm  view on Meta::CPAN

	$list = Gtk2::ListStore->new('Glib::String');
	$auto->set_model($list);
	$auto->set_text_column(0);
	$to->set_completion($auto);

	my $combo = $dialog->get_widget('copy_driver_combobox');
	my $renderer = Gtk2::CellRendererText->new;
	$combo->pack_start ($renderer, TRUE);
	$combo->add_attribute ($renderer, text => 0);
	$combo->signal_connect(changed=>\&copy_driver_selected, [$self, $gui]);    
    
	$combo = $dialog->get_widget('copy_region_combobox');
	$renderer = Gtk2::CellRendererText->new;
	$combo->pack_start ($renderer, TRUE);
	$combo->add_attribute ($renderer, text => 0);
	$combo->signal_connect(changed=>\&copy_region_selected, [$self, $gui]);
    

lib/Geo/Raster/Layer/Dialogs/Copy.pm  view on Meta::CPAN

	    $dialog->get_widget('copy_'.$_.'_entry')->signal_connect(
		changed => 
		sub {
		    my(undef, $self) = @_;
		    return if $self->{_ignore_copy_entry_change};
		    $self->{copy_raster_dialog}->get_widget('copy_region_combobox')->set_active(0);
		    copy_info($self);
		}, $self);
	}
    }

lib/Geo/Raster/Layer/Dialogs/Copy.pm  view on Meta::CPAN

	push @drivers, $name;
    }
    for my $driver (sort @drivers) {
	$model->set($model->append, 0, $driver);
    }
    my $combo = $dialog->get_widget('copy_driver_combobox');
    $combo->set_model($model);
    $combo->set_active(0);

    $model = Gtk2::ListStore->new('Glib::String');
    $model->set($model->append, 0, '');

lib/Geo/Raster/Layer/Dialogs/Copy.pm  view on Meta::CPAN

	$names{$n} = 1;
	next unless $layer->isa('Geo::Raster');
	next if $n eq $self->name();
	$model->set($model->append, 0, $n);
    }
    $combo = $dialog->get_widget('copy_region_combobox');
    $combo->set_model($model);
    $combo->set_active(2);

    copy_region_selected($combo, [$self, $gui]);

lib/Geo/Raster/Layer/Dialogs/Copy.pm  view on Meta::CPAN

    my $name = $dialog->get_widget('copy_name_entry')->get_text();
    my $folder = $dialog->get_widget('copy_folder_entry')->get_text();
    $folder .= '/' if $folder;

    my $combo = $dialog->get_widget('copy_driver_combobox');
    my $iter = $combo->get_active_iter;
    my $driver = $combo->get_model->get($iter);
    $combo = $dialog->get_widget('copy_region_combobox');
    $iter = $combo->get_active_iter;
    my $region = $combo->get_model->get($iter);

    my($new_layer, $src_dataset, $dst_dataset);
    

 view release on metacpan or  search on metacpan

lib/Geo/Vector/Layer/Dialogs/Copy.pm  view on Meta::CPAN

	     copy_ok_button => [clicked => \&do_copy, [$self, $gui, 1]],
	     from_EPSG_entry => [changed => \&Geo::Raster::Layer::epsg_help],
	     to_EPSG_entry => [changed => \&Geo::Raster::Layer::epsg_help],
	     copy_add_button => [clicked => \&add_to_mappings, $self],
	     copy_delete_button => [clicked => \&delete_from_mappings, $self],
	     copy_driver_combobox => [changed => \&copy_driver_changed, $self],
	     copy_name_comboboxentry => [changed => \&copy_into_changed, [$self, $gui]],
	 },
	 [
	  'copy_driver_combobox',
	  'copy_datasource_combobox',
	  'copy_name_comboboxentry'
	 ]
	);
    
    if ($boot) {
	my $from = $dialog->get_widget('from_EPSG_entry');

lib/Geo/Vector/Layer/Dialogs/Copy.pm  view on Meta::CPAN

		my $entry = $self->{copy_dialog}->get_widget('copy_datasource_entry');
		file_chooser('Select folder', 'select_folder', $entry);
			      }, $self); 
    }

    my $combo = $dialog->get_widget('copy_driver_combobox');
    my $model = $combo->get_model();
    $model->clear;
    my $i = 1;
    my $active = 0;
    $model->set($model->append, 0, ''); # create into existing data source 

lib/Geo/Vector/Layer/Dialogs/Copy.pm  view on Meta::CPAN

	$i++;
    }
    $combo->set_active($active);
    copy_driver_changed($combo, $self);

    $combo = $dialog->get_widget('copy_datasource_combobox');
    $model = $combo->get_model();
    $model->clear;
    $model->set($model->append, 0, '');
    for my $data_source (sort keys %{$self->{gui}{resources}{datasources}}) {
	$model->set ($model->append, 0, $data_source);
    }
    $combo->set_active(0);

    $combo = $dialog->get_widget('copy_name_comboboxentry');
    $model = $combo->get_model();
    $model->clear;
    for my $layer (@{$gui->{overlay}->{layers}}) {
	my $n = $layer->name();
	next unless $layer->isa('Geo::Vector');

lib/Geo/Vector/Layer/Dialogs/Copy.pm  view on Meta::CPAN

    my $active = $combo->get_active();
    return if $active < 0;
    my $model = $combo->get_model;
    my $iter = $model->get_iter_from_string($active);
    my $name = $model->get($iter, 0);
    for my $w ('copy_datasource_combobox','copy_datasource_button',
	       'copy_file_source_label','copy_non_file_source_label',
	       'copy_datasource_entry') {
	$dialog->get_widget($w)->set_sensitive($name ne 'Memory');
    }
}

lib/Geo/Vector/Layer/Dialogs/Copy.pm  view on Meta::CPAN

    my $dialog = $self->{copy_dialog};

    my %params = ( selected_features => $self->selected_features ) 
	unless $dialog->get_widget('copy_all_checkbutton')->get_active;

    my $into = $dialog->get_widget('copy_name_comboboxentry')->get_active_text;
    croak "Store into?" unless $into;
    my $into_layer = $gui->layer($into);
    if ($into_layer) {
	croak $into_layer->name." is not a vector layer" unless $into_layer->isa('Geo::Vector');
    } else {
	my $combo = $dialog->get_widget('copy_datasource_combobox');
	my $active = $combo->get_active();
	if ($active > 0) {
	    my $model = $combo->get_model;
	    my $iter = $model->get_iter_from_string($active);
	    my $store = $model->get($iter, 0);
	    $params{data_source} = $self->{gui}{resources}{datasources}{$store};
	} else {
	    $params{data_source} = $dialog->get_widget('copy_datasource_entry')->get_text;
	    $params{driver} = $dialog->get_widget('copy_driver_combobox')->get_active_text;
	}
	$params{create} = $into;    
	my $layers;	
	if ($params{driver} ne 'Memory') {
	    eval {

lib/Geo/Vector/Layer/Dialogs/Copy.pm  view on Meta::CPAN

    return unless $ds; # can't be opened as a data_source
    my $driver = $ds->GetDriver; # default driver
    if ($driver) {
	my $name = $driver->GetName;
	# get from combo
	my $combo = $self->{copy_dialog}->get_widget('copy_driver_combobox');
	my $model = $combo->get_model;
	my $i = 0;
	my $iter = $model->get_iter_first;
      LOOP: {
	  do {

lib/Geo/Vector/Layer/Dialogs/Copy.pm  view on Meta::CPAN

## @ignore
sub copy_into_changed {
    my($combo) = @_;
    my($self, $gui) = @{$_[1]};
    my $dialog = $self->{copy_dialog};
    my $into = get_value_from_combo($dialog, 'copy_name_comboboxentry') if $combo;
    my $into_layer;
    if ($into) {
	for my $layer (@{$gui->{overlay}->{layers}}) {
	    my $n = $layer->name();
	    next unless $layer->isa('Geo::Vector');

 view release on metacpan or  search on metacpan

devel/combobox.pl  view on Meta::CPAN

use Gtk2 '-init';

use FindBin;
my $progname = $FindBin::Script;

my $combobox = Gtk2::ComboBox->new;
$combobox->destroy;

### active: $combobox->get_active
### iter: $combobox->get_active_iter

exit 0;

 view release on metacpan or  search on metacpan

lib/Glib/Ex/ObjectBits.pm  view on Meta::CPAN

Nothing is exported by default, but the functions can be requested in usual
C<Exporter> style,

    use Glib::Ex::ObjectBits 'set_property_maybe';
    # "tearoff-title" new in Gtk 2.10
    set_property_maybe ($combobox, tearoff_title => 'My Menu');

Importing C<set_property_maybe()> is good if making many such settings.  The
name is tolerably distinctive.

There's no C<:all> tag since this module is meant as a grab-bag of functions

 view release on metacpan or  search on metacpan

examples/combobox.pl  view on Meta::CPAN

$hbox->pack_start (Gtk2::Label->new('Three'), FALSE, TRUE, 0);    
$hbox->pack_start (Gtk2::Label->new('Four'), FALSE, TRUE, 0);    
$hbox->pack_start (Gtk2::Label->new('Five'), FALSE, TRUE, 0);    
$hbox->pack_start (Gtk2::Label->new('Six'), FALSE, TRUE, 0);    

my $combobox1 = Gtk2::Ex::ComboBox->new($label1, 'with-buttons');
$combobox1->set_list(['this', 'that', 'what']);
$combobox1->signal_connect('changed' => 
	sub {
		print "combobox1 selection changed\n";
	}
);
my $combobox2 = Gtk2::Ex::ComboBox->new($label2, 'with-checkbox');
$combobox2->set_list_preselected([[0,'how'], [1,'when'], [1,'where']]);
$combobox2->signal_connect('changed' => 
	sub {
		print "combobox2 selection changed\n";
	}
);

my $combobox3 = Gtk2::Ex::ComboBox->new($label3, 'no-checkbox');
$combobox3->set_list_preselected([[1,'how'], [0,'when'], [1,'where']]);
$combobox3->signal_connect('changed' => 
	sub {
		print "combobox3 selection changed\n";
	}
);

my $text = Gtk2::TextView->new;
my $dumpbutton = Gtk2::Button->new('Show Details');

examples/combobox.pl  view on Meta::CPAN

$vbox->pack_start ($hbox, FALSE, TRUE, 0);
$vbox->pack_start ($text, TRUE, TRUE, 0);
$vbox->pack_start ($dumpbutton, FALSE, TRUE, 0);
$window->add ($vbox);

$eventbox1->signal_connect('button-release-event' => sub { $combobox1->show; } );
$eventbox2->signal_connect('button-release-event' => sub { $combobox2->show; } );
$eventbox3->signal_connect('button-release-event' => sub { $combobox3->show; } );
$dumpbutton->signal_connect('button-release-event' => 
	sub {
		print Dumper $combobox1->get_selected_values;
		print Dumper $combobox2->get_selected_values;
		print Dumper $combobox3->get_selected_values;
		print Dumper $combobox1->get_selected_indices;
		print Dumper $combobox2->get_selected_indices;
		print Dumper $combobox3->get_selected_indices;
	}
);

$window->set_default_size(500, 200);
$window->show_all;

 view release on metacpan or  search on metacpan

devel/bits.pl  view on Meta::CPAN

$model->insert (undef, 1);
$model->insert (undef, 2);
$model->insert ($model->iter_nth_child(undef,2), 0);
$model->insert ($model->iter_nth_child(undef,2), 1);

my $combobox = Gtk2::ComboBox->new;
$combobox->signal_connect (notify => sub {
                             my ($combobox, $pspec) = @_;
                             my $pname = $pspec->get_name;
                             say "notify $pname now ",$combobox->get($pname);
                             say "   get(active) ",$combobox->get('active');
                           });
# $combobox->set('active',3,
#                model => $model);
$combobox->set_active(3);
$combobox->set_model($model);
say "get(active) ",$combobox->get('active');

# $combobox->set_model ($model);

# is (get_active_path($combobox), undef);
# is (find_text_iter($combobox, 'nosuchentry'), undef);
#
# set_active_path($combobox,Gtk2::TreePath->new_from_indices(0,0));
# set_active_text($combobox,'nosuchentry');
# ok(1);

exit 0;

 view release on metacpan or  search on metacpan

lib/Gtk2/Ex/DBITableFilter/FilterWidget.pm  view on Meta::CPAN

	$labelbox->show_all;
	my $button = $col->get_widget; # not a button
	do {
		$button = $button->get_parent;
	} until ($button->isa ('Gtk2::Button'));
	my $combobox = Gtk2::Ex::ComboBox->new($labelbox, 'with-buttons');
	$combobox->set_list_preselected($list);
	$button->signal_connect ('button-release-event' => 
		sub { 
			my ($self, $event) = @_;
			$combobox->show;
		} 
	);
	$parent->{params}->{columnfilter}->{$columnnumber}
		= combine($combobox->get_selected_values->{'selected-values'});
	$combobox->signal_connect( 'changed' => 
		sub {
			$parent->{params}->{columnfilter}->{$columnnumber}
				= combine($combobox->get_selected_values->{'selected-values'});
		}
	);
	$parent->{combobox}->{$columnnumber} = $combobox;	
}

sub combine {
	my ($list) = @_;
	my $str = join '\',\'', @$list;

lib/Gtk2/Ex/DBITableFilter/FilterWidget.pm  view on Meta::CPAN

	my $choices = ['before', 'after'];
	my $joiner  = [ '', 'and', 'or'];
	
	my $datelabel1 = Gtk2::Label->new;
	my $datelabelbox1 = _calendar_popup($datelabel1, $date1);
	my $combobox1 = Gtk2::ComboBox->new_text;	
	$combobox1->append_text($choices->[0]);
	$combobox1->append_text($choices->[1]);
	my $index1 = 1;
	if ($command1) {
		my $i = 0;
		$index1 = { map { $_ => $i++ } @$choices }->{$command1};
	}
	$combobox1->set_active($index1);
	
	my $datelabel2 = Gtk2::Label->new;
	my $datelabelbox2 = _calendar_popup($datelabel2, $date2);
	my $combobox2 = Gtk2::ComboBox->new_text;	
	$combobox2->append_text($choices->[0]);
	$combobox2->append_text($choices->[1]);
	my $index2 = 0;
	if ($command1) {
		my $i = 0;
		$index2 = { map { $_ => $i++ } @$choices }->{$command2};
	}
	$combobox2->set_active($index2);

	my $and_or_combobox = Gtk2::ComboBox->new_text;
	$and_or_combobox->append_text($joiner->[0]);
	$and_or_combobox->append_text($joiner->[1]);
	$and_or_combobox->append_text($joiner->[2]);
	my $index = 0;
	if ($joiner1) {
		my $i = 0;
		$index = { map { $_ => $i++ } @$joiner }->{$joiner1};
	}
	$and_or_combobox->set_active($index);
	$and_or_combobox->signal_connect ( 'changed' =>
		sub {
			my $choice = $and_or_combobox->get_active();
			if ($choice == 0) {
				$combobox2->hide_all;
				$datelabelbox2->hide_all;
			} else {
				$combobox2->show;
				$datelabelbox2->show_all;
			}
		}
	);
	
	my $refreshparams = sub {
		my $params;
		$params->[0]->{command} = $choices->[$combobox1->get_active()];
		$params->[0]->{date} = $datelabel1->get_text();
		return $params unless $and_or_combobox->get_active();;
		$params->[1]->{joiner} = $joiner->[$and_or_combobox->get_active()];
		$params->[1]->{command} = $choices->[$combobox2->get_active()];
		$params->[1]->{date} = $datelabel2->get_text();
		return $params;
	};

	my $table = Gtk2::Table->new(3,3,FALSE);
	$table->attach($combobox1,0,1,0,1, 'expand', 'expand', 0, 0);
	$table->attach($datelabelbox1,1,2,0,1, 'expand', 'expand', 0, 0);
	$table->attach($and_or_combobox,2,3,0,1, 'expand', 'expand', 0, 0);
	$table->attach($combobox2,0,1,1,2, 'expand', 'expand', 0, 0);
	$table->attach($datelabelbox2,1,2,1,2, 'expand', 'expand', 0, 0);
	my $apply = Gtk2::Button->new_from_stock('gtk-apply');
	$parent->{params}->{columnfilter}->{$columnnumber} = &$refreshparams if $preselected;
	$apply->signal_connect ('button-release-event' => 
		sub {

lib/Gtk2/Ex/DBITableFilter/FilterWidget.pm  view on Meta::CPAN

	);
	my $clear = Gtk2::Button->new_from_stock('gtk-clear');
	$clear->signal_connect ('button-release-event' => 
		sub {
			$parent->{params}->{columnfilter}->{$columnnumber} = undef;
			$and_or_combobox->set_active(0);
			$datelabel1->set_text('none');
			$popupwindow->hide;
		}
	);
	my $hbox = Gtk2::HBox->new (TRUE, 0);

lib/Gtk2/Ex/DBITableFilter/FilterWidget.pm  view on Meta::CPAN

	$popupwindow->{window}->add($vbox);
	$button->signal_connect ('button-release-event' => 
		sub { 
			my ($self, $event) = @_;
			$popupwindow->show;
			unless ($and_or_combobox->get_active()) {
				$combobox2->hide;
				$datelabelbox2->hide;			
			}
		} 
	);
}

 view release on metacpan or  search on metacpan

lib/Gtk2/Ex/DbLinker/Form.pm  view on Meta::CPAN

        my ( $self, $w ) = @_;
        my $v = $w->get_active;
        return ( defined $v ? $v : 0 );
    },
    'GtkComboBox' =>,
    \&_get_combobox_firstvalue,
    'GtkComboBoxEntry' => \&_get_combobox_firstvalue,
    'GtkCheckButton'   => sub {
        my ( $self, $w ) = @_;
        my $v = $w->get_active;
        return ( defined $v && length($v) ? $v : 0 );
    },

lib/Gtk2/Ex/DbLinker/Form.pm  view on Meta::CPAN

    my ( $self, $w, $x ) = @_;
        my $id = id $self;
    $w->set_active( ( defined $x ? $x : 0 ) );
}

sub _get_combobox_firstvalue {
    my ( $self, $c ) = @_;
    my $id = id $self;
    
    #print "getter_cb\n";
    my $iter = $c->get_active_iter;

 view release on metacpan or  search on metacpan

devel/run.pl  view on Meta::CPAN

                             $vinverted = $button->get_active;
                             update();
                           });
}
# {
#   my $combobox = Gtk2::ComboBox->new_text;
#   $vbox->pack_start ($combobox, 0,0,0);
#   foreach my $policy ('default', 'continuous', 'discontinuous', 'delayed') {
#     $combobox->append_text ($policy);
#   }
#   $combobox->set_active (0);
#   $combobox->signal_connect
#     (changed => sub {
#        $update_policy = $combobox->get_active_text;
#        update();
#      });
# }
{
  require Gtk2::Ex::ComboBox::Enum;
  my $combobox = Gtk2::Ex::ComboBox::Enum->new
    (enum_type   => 'Gtk2::Ex::Dragger::UpdatePolicy',
     active_nick => Gtk2::Ex::Dragger->find_property('update-policy')->get_default_value);
  $vbox->pack_start ($combobox, 0,0,0);
  $combobox->signal_connect
    ('notify::active-nick' => sub {
       $update_policy = $combobox->get('active-nick');
       update();
     });
}
{
  my $button = Gtk2::CheckButton->new_with_label ('Hint Mask');

 view release on metacpan or  search on metacpan

lib/Gtk2/Ex/Email/AddressVBox.pm  view on Meta::CPAN

	#creates the first HB
	$hbox{hbox}=Gtk2::HBox->new;
	$hbox{hbox}->show;
	
	#creates the combo box to display to, cc, and bcc
	$hbox{combobox}=Gtk2::ComboBox->new_text;
	$hbox{combobox}->show;
	$hbox{combobox}->append_text('To: ');
	$hbox{combobox}->append_text('CC: ');
	$hbox{combobox}->append_text('BCC: ');
	$hbox{hbox}->pack_start($hbox{combobox}, 0, 1, 0);

	#sets the type
	my $typeSet=undef;
	if (defined($type)) {
		if ($type eq 'to') {
			$hbox{combobox}->set_active(0);
		}
		if ($type eq 'cc') {
			$hbox{combobox}->set_active(1);
		}
		if ($type eq 'bcc') {
			$hbox{combobox}->set_active(2);
		}
	}
	if (!$typeSet) {
		$hbox{combobox}->set_active(0);
	}

	#adds the entry box
	$hbox{entry}=Gtk2::Entry->new;
	$hbox{entry}->show;

lib/Gtk2/Ex/Email/AddressVBox.pm  view on Meta::CPAN

	#processes each one
	my $int=0;
	while (defined($hboxes[$int])) {
		my $address=$self->{gui}{hboxes}{ $hboxes[$int] }{entry}->get_text;

		my $typeInt=$self->{gui}{hboxes}{ $hboxes[$int] }{combobox}->get_active;
		
		#figures out the type
		my $type;
		if ($typeInt eq '0') {
			$type='to';

 view release on metacpan or  search on metacpan

lib/Gtk2/Ex/Geo/Dialogs/Colors.pm  view on Meta::CPAN

	     min_hue_button => [clicked => \&set_hue_range, [$self, $gui, 'min']],
	     max_hue_button => [clicked => \&set_hue_range, [$self, $gui, 'max']],

	     grayscale_color_button => [clicked => \&set_grayscale_color, [$self, $gui]],
	     grayscale_adjust_combobox => [changed => \&grayscale_color_changed, $self],
	     grayscale_invert_checkbutton => [toggled => \&grayscale_color_changed, $self],

	     border_color_button => [clicked => \&border_color_dialog, [$self]],

	     colors_apply_button => [clicked => \&apply_colors, [$self, $gui, 0]],
	     colors_cancel_button => [clicked => \&cancel_colors, [$self, $gui]],
	     colors_ok_button => [clicked => \&apply_colors, [$self, $gui, 1]],

	     palette_type_combobox => [changed => \&palette_type_changed, [$self, $gui]],
	     color_field_combobox => [changed => \&color_field_changed, [$self, $gui]],

	     scale_min_entry => [changed => \&color_scale_changed, [$self, $gui]],
	     scale_max_entry => [changed => \&color_scale_changed, [$self, $gui]],

	     hue_range_combobox => [changed => \&hue_changed, $self],
	     
	 },
	 [qw /palette_type_combobox color_field_combobox 
              hue_range_combobox grayscale_adjust_combobox/]
	);
    if ($boot) {
	my $combo = $dialog->get_widget('palette_type_combobox');
	my $model = $combo->get_model;
	$model->clear;
	for my $type ($self->supported_palette_types()) {
	    $model->set($model->append, 0, $type);
	}

	$combo = $dialog->get_widget('hue_range_combobox');
	$model = $combo->get_model;
	$model->clear;
	for my $type ('up to', 'down to') {
	    $model->set($model->append, 0, $type);
	}

	$combo = $dialog->get_widget('grayscale_adjust_combobox');
	$model = $combo->get_model;
	$model->clear;
	my $hash = \%Gtk2::Ex::Geo::Layer::GRAYSCALE_SUBTYPE;
	for my $type (sort {$hash->{$a} <=> $hash->{$b}} keys %$hash) {
	    $model->set($model->append, 0, $type);

lib/Gtk2/Ex/Geo/Dialogs/Colors.pm  view on Meta::CPAN

    # set up the controllers

    $dialog->get_widget('min_hue_label')->set_text($hue_range[0]);
    $dialog->get_widget('max_hue_label')->set_text($hue_range[1]);

    my $combo = $dialog->get_widget('palette_type_combobox');
    my $i = 0;
    for my $type ($self->supported_palette_types()) {
	$combo->set_active($i), last if $type eq $palette_type;
	$i++;
    }

    $combo = $dialog->get_widget('hue_range_combobox');
    $combo->set_active($hue_range[2] == 1 ? 0 : 1);

    $combo = $dialog->get_widget('grayscale_adjust_combobox');
    $i = 0;
    my $hash = \%Gtk2::Ex::Geo::Layer::GRAYSCALE_SUBTYPE;
    for my $type (sort {$hash->{$a} <=> $hash->{$b}} keys %$hash) {
	$combo->set_active($i), last if $type eq $grayscale_subtype;
	$i++;

lib/Gtk2/Ex/Geo/Dialogs/Colors.pm  view on Meta::CPAN

##@ignore
sub fill_color_field_combo {
    my($self) = @_;
    my $palette_type = $self->palette_type;
    my $combo = $self->{colors_dialog}->get_widget('color_field_combobox');
    my $model = $combo->get_model;
    $model->clear;
    my $i = 0;
    my $active;
    my $color_field = $self->color_field();

lib/Gtk2/Ex/Geo/Dialogs/Colors.pm  view on Meta::CPAN

##@ignore
sub palette_type_changed {
    my($self, $gui) = @{$_[1]};
    my $dialog = $self->{colors_dialog};
    my $palette = get_value_from_combo($self->{colors_dialog}, 'palette_type_combobox');
    return unless $palette;
    $self->palette_type($palette);

    fill_color_field_combo($self);

    my $tv = $dialog->get_widget('colors_treeview');
    
    for my $w (qw/color_field_label color_field_combobox 
            scale_label2 scale_min_entry scale_label3 scale_max_entry color_scale_button 
                color_legend_button
            rainbow_label
            min_hue_label min_hue_button max_hue_label max_hue_button hue_range_combobox
            grayscale_label4 grayscale_color_label grayscale_color_button grayscale_adjust_combobox 
                grayscale_label5 grayscale_invert_checkbutton
            border_color_checkbutton border_color_label border_color_button
            edit_label edit_color_button delete_color_button add_color_button
            manage_label copy_colors_button open_colors_button save_colors_button/) {	
	$dialog->get_widget($w)->set_sensitive(0);

lib/Gtk2/Ex/Geo/Dialogs/Colors.pm  view on Meta::CPAN

    $tv->set_sensitive(0);

    return unless create_colors_treeview($self);
    
    if ($palette ne 'Single color') {
	for my $w (qw/color_field_label color_field_combobox/) {
	    $dialog->get_widget($w)->set_sensitive(1);
	}
    }
    
    if ($palette eq 'Grayscale') {
	for my $w (qw/grayscale_label4 grayscale_color_label grayscale_color_button 
                      grayscale_adjust_combobox grayscale_label5 grayscale_invert_checkbutton/) {
	    $dialog->get_widget($w)->set_sensitive(1);
	}
    } elsif ($palette eq 'Rainbow') {
	for my $w (qw/rainbow_label
                      min_hue_label min_hue_button max_hue_label max_hue_button 
                      hue_range_combobox/) {
	    $dialog->get_widget($w)->set_sensitive(1);
	}
    }
    
    if ($palette eq 'Single color') {

lib/Gtk2/Ex/Geo/Dialogs/Colors.pm  view on Meta::CPAN

}

##@ignore
sub color_field_changed {
    my($self, $gui) = @{$_[1]};
    my $field = get_value_from_combo($self->{colors_dialog}, 'color_field_combobox');
    return unless $field; # model is cleared
    $self->color_field($field);
    my $palette = $self->palette_type;
    if (($palette eq 'Color bins' or $palette eq 'Color table') and 
	$self->{current_coloring_type} ne current_coloring_type($self)) {

lib/Gtk2/Ex/Geo/Dialogs/Colors.pm  view on Meta::CPAN

sub hue_changed {
    my(undef, $self) = @_;
    my $d = $self->{colors_dialog};
    my $min = get_number_from_entry($d->get_widget('min_hue_label'));
    my $max = get_number_from_entry($d->get_widget('max_hue_label'));
    my $dir = $d->get_widget('hue_range_combobox')->get_active == 0 ? 1 : -1; # up is 1, down is -1
    $self->hue_range($min, $max, $dir);
    create_colors_treeview($self);
}

## @ignore

lib/Gtk2/Ex/Geo/Dialogs/Colors.pm  view on Meta::CPAN

	$color[2] /= 100;
	@color = hsv2rgb(@color);
	$self->grayscale_color(@color, 255);
    }
    $self->invert_scale($d->get_widget('grayscale_invert_checkbutton')->get_active());
    $self->grayscale_subtype(get_value_from_combo($d, 'grayscale_adjust_combobox'));

    create_colors_treeview($self);
}

# button callbacks

 view release on metacpan or  search on metacpan

lib/Gtk2/Ex/ICal/Recur.pm  view on Meta::CPAN

sub new {
	my ($class) = @_;
	my $self  = {};
	$self->{freqspinbutton} = Gtk2::SpinButton->new_with_range(1,100,1);
	$self->{freqcombobox} = Gtk2::ComboBox->new_text();	
	$self->{recurrencepatterntable} = Gtk2::Table->new(1,1,FALSE);
	$self->{recurbox}->{hbox} = undef;
	$self->{recurbox}->{buttons} = undef;
	$self->{freqchoices} = [ 
		{ 'label' => 'Year(s)' , 'code' => 'yearly' },

lib/Gtk2/Ex/ICal/Recur.pm  view on Meta::CPAN

	my $temphash = $self->controller(0, 0);
	$self->{recurbox}->{hbox}->[0]->[0] = $self->create_box(0,0,$temphash);
	$self->packbox();
	$self->{freqspinbutton}->set_value($model->{interval});
	my $mapped = { 'yearly' => 0, 'monthly' => 1, 'weekly' => 2, 'daily' => 3 };
	$self->{freqcombobox}->set_active($mapped->{$model->{freq}});
	if ($model->{freq} eq 'yearly') {
		if ($model->{bymonth}) {
			$self->set_month_of_the_year($model, 0);
			if ($model->{bymonthday}) {
				$self->set_month_day_by_day($model, 1);

lib/Gtk2/Ex/ICal/Recur.pm  view on Meta::CPAN

}

sub get_model {
	my ($self) = @_;
	my $model;
	my $freqcombochoice = $self->{freqchoices}->[$self->{freqcombobox}->get_active()]->{'code'};
	$model->{freq} = $freqcombochoice;
	$model->{interval} = $self->{freqspinbutton}->get_value;
	foreach my $level (@{$self->{recurbox}->{buttons}}) {
		my $i = 0;
		foreach my $count (@$level) {

lib/Gtk2/Ex/ICal/Recur.pm  view on Meta::CPAN

sub get_widget {
	my ($self) = @_;
	foreach my $choice (@{$self->{freqchoices}}) {
		$self->{freqcombobox}->append_text($choice->{'label'});	
	}
	my $freqhbox = Gtk2::HBox->new(FALSE);
	$freqhbox->pack_start(Gtk2::Label->new('Occurs every'), FALSE, FALSE, 0);
	$freqhbox->pack_start($self->{freqspinbutton}, FALSE, FALSE, 0);
	$freqhbox->pack_start($self->{freqcombobox}, FALSE, FALSE, 0);
	
	$self->{freqcombobox}->signal_connect('changed' => 
		sub {
			$self->{recurbox}->{hbox} = undef;
			$self->{recurbox}->{buttons} = undef;
			my $temphash = $self->controller(0, 0);
			$self->{recurbox}->{hbox}->[0]->[0] = $self->create_box(0,0,$temphash);

lib/Gtk2/Ex/ICal/Recur.pm  view on Meta::CPAN

sub controller {
	my ($self, $level, $count) = @_;
	my $temphash = undef;
	if ($level == 0) {
		my $freqcombochoice = $self->{freqchoices}->[$self->{freqcombobox}->get_active()]->{'code'};
		if ($freqcombochoice eq 'yearly') {		
			$temphash = $self->month_or_day_of_the_year($level,$count);
		} elsif ($freqcombochoice eq 'monthly') {
			$temphash = $self->day_of_the_month($level,$count);
		} elsif ($freqcombochoice eq 'weekly') {

 view release on metacpan or  search on metacpan

devel/run.pl  view on Meta::CPAN

            });
     });
  $left_vbox->pack_start ($button, 0,0,0);
}
{
  my $combobox = Gtk2::ComboBox->new_with_model ($treestore);
  $combobox->set (add_tearoffs => 1);
  $left_vbox->pack_start ($combobox, 0,0,0);
  my $renderer = Gtk2::CellRendererText->new;
  $renderer->set (xalign => 1); # right align
  $combobox->pack_start ($renderer, 1);
  $combobox->add_attribute ($renderer, text => 0);
}

$menuview->popup (undef, undef, undef, undef, 0, 0);
print "$progname: children ",$menuview->get_children,"\n";

 view release on metacpan or  search on metacpan

examples/currency-format.pl  view on Meta::CPAN

  my @formats = (FMT_STANDARD,
                 FMT_COMMON,
                 FMT_SYMBOL,
                 FMT_NAME);

  my $combobox = Gtk2::ComboBox->new_text;
  $combobox->append_text ('FMT_STANDARD');
  $combobox->append_text ('FMT_COMMON');
  $combobox->append_text ('FMT_SYMBOL');
  $combobox->append_text ('FMT_NAME');
  $combobox->set_active (0);
  $controls_vbox->pack_start ($combobox, 0,0,0);
  $combobox->signal_connect (changed => sub {
                               my ($combobox) = @_;
                               $format = $formats[$combobox->get_active];
                               axis_update();
                             });
}

{

 view release on metacpan or  search on metacpan

devel/QuadScroll.pm  view on Meta::CPAN

# =head1 PROPERTIES
# 
# =over 4
# 
# =item C<combobox> (C<Gtk2::ComboBox> object, default C<undef>)
# 
# =back

=head1 SEE ALSO

 view release on metacpan or  search on metacpan

lib/Gtk2/Ex/SearchBox.pm  view on Meta::CPAN

If you want to allow only one pattern at a time, then you can call the constructor 
with C<'single'> as an argument.

	my $searchbox = Gtk2::Ex::SearchBox->new('single');
	
By default, the dropdown combobox contains the following choices.

	[
		'contains',
		'doesn\'t contain',
		'not equal to',

lib/Gtk2/Ex/SearchBox.pm  view on Meta::CPAN

		'ends with',
		'has in the middle'
	];
	my $searchbox = Gtk2::Ex::SearchBox->new('multiple', $operatorlist);

If you do not want even that combobox to the left, then send undef as the operatorlist.

	my $searchbox = Gtk2::Ex::SearchBox->new('single', undef);
	
Now this is just an C<$enty> with an C<$ok_button> !!	

 view release on metacpan or  search on metacpan

devel/run.pl  view on Meta::CPAN

       print "$progname: pointer_ungrab\n";
       Gtk2::Gdk->pointer_ungrab (0);
     });

  {
    my $combobox = Gtk2::ComboBox->new_text;
    $vbox->pack_start ($combobox, 1,1,0);
    foreach ('one', 'two', 'three', 'four') {
      $combobox->append_text ($_);
    }
    $combobox->set_active (0);
  }

  $toplevel->show_all;
}

 view release on metacpan or  search on metacpan

devel/lasso-entry.pl  view on Meta::CPAN

  $button->signal_connect (clicked => sub { $entry->queue_draw; });
  $vbox->pack_start ($button, 0, 0, 0);
}

{
  my $combobox = Gtk2::ComboBox->new_text;
  $vbox->pack_start ($combobox, 0,0,0);
  $combobox->append_text ('invisible');
  $combobox->append_text ('undef');
  $combobox->append_text ('boat');
  $combobox->append_text ('umbrella');
  $combobox->append_text ('cross');
  $combobox->set_active (0);

  $combobox->signal_connect
    (changed => sub {
       my $type = $combobox->get_active_text;
       if ($type eq 'undef') { $type = undef; }
       $lasso->set (cursor => $type);
     });
}

 view release on metacpan or  search on metacpan

gtk-demo/combobox.pl  view on Meta::CPAN

# that is not in the list of options. 
#
# How the options are displayed is controlled by cell renderers.
#

package combobox;

use strict;
use warnings;
use Glib ':constants';
use Gtk2;

gtk-demo/combobox.pl  view on Meta::CPAN

    bless $self, $class;

    $self;
}

package combobox;


sub do {  
  my $do_widget = shift;
  

gtk-demo/combobox.pl  view on Meta::CPAN

    $window->set_border_width(10);

    my $vbox = Gtk2::VBox->new(FALSE, 2);
    $window->add($vbox);

    # A combobox demonstrating cell renderers, separators and
    # insensitive rows 
    #
    my $frame = Gtk2::Frame->new("Some stock icons");
    $vbox->pack_start($frame, FALSE, FALSE, 0);
    

gtk-demo/combobox.pl  view on Meta::CPAN

    $combo->set_row_separator_func(\&is_separator);
    
    $combo->set_active(0);
    
    # A combobox demonstrating trees.
    #
    $frame = Gtk2::Frame->new("Where are we ?");
    $vbox->pack_start($frame, FALSE, FALSE, 0);

    $box = Gtk2::VBox->new(FALSE, 0);

 view release on metacpan or  search on metacpan

lib/HTML/Dojo/src.pm  view on Meta::CPAN

			"button": "dojo.widget.Button",
			"chart": "dojo.widget.Chart",
			"checkbox": "dojo.widget.Checkbox",
			"clock": "dojo.widget.Clock",
			"colorpalette": "dojo.widget.ColorPalette",
			"combobox": "dojo.widget.ComboBox",
			"combobutton": "dojo.widget.Button",
			"contentpane": "dojo.widget.ContentPane",
			"currencytextbox": "dojo.widget.CurrencyTextbox",
			"datepicker": "dojo.widget.DatePicker",
			"datetextbox": "dojo.widget.DateTextbox",

lib/HTML/Dojo/src.pm  view on Meta::CPAN

dojo.hostenv.packageLoaded({depends:[["provide", "dojo.namespaces.dojo"], ["require", "dojo.ns"], ["require", ]], definePackage:function (dojo) {
	dojo.provide("dojo.namespaces.dojo");
	dojo.require("dojo.ns");
	(function () {
		var map = {html:{"accordioncontainer":"dojo.widget.AccordionContainer", "animatedpng":"dojo.widget.AnimatedPng", "button":"dojo.widget.Button", "chart":"dojo.widget.Chart", "checkbox":"dojo.widget.Checkbox", "clock":"dojo.widget.Clock", "colorpalet...
		dojo.addDojoNamespaceMapping = function (shortName, packageName) {
			map[shortName] = packageName;
		};
		function dojoNamespaceResolver(name, domain) {
			if (!domain) {

 view release on metacpan or  search on metacpan

lib/HTML/FormFu/ExtJS/Element/Select.pm  view on Meta::CPAN

                        else if (record = store.getById(value)) {
                            multiselect.setValue(record.data.text);
                        }
                    }";
            $load_exception_function = "
                    var combobox = Ext.getCmp('$super->{id}');
                    combobox.markInvalid(error || response.statusText);";
        }
        else {
            $load_function = "
                    var combobox = Ext.getCmp('$super->{id}');
                    var value = combobox.hiddenValue;
                    combobox.clearValue();
                    if (value) {
                        if (Ext.version = '3.0') {
                            combobox.setValue(value);
                        }
                        else if (record = store.getById(value)) {
                            combobox.setValue(record.data.text);
                        }
                    }";
            $load_exception_function = "
                    var combobox = Ext.getCmp('$super->{id}');
                    combobox.clearValue();
                    combobox.markInvalid(error || response.statusText);";
        }
        $super->{store} = \"new Ext.data.SimpleStore({
            fields:['value','text'],
            id:0,
            autoLoad:true,

 view release on metacpan or  search on metacpan

lib/HTML/FormFu/Model/DBIC.pm  view on Meta::CPAN

            _save_has_many( $self, $dbic, $form, $rs, $block, $rel, $attrs );

        }
        elsif ( defined $combo ) {

            _save_combobox( $self, $base, $dbic, $form, $rs, $combo, $rel, $attrs );
        }
        elsif ( defined $block && ref $params eq 'HASH' ) {
            # It seems that $dbic->$rel must be called otherwise the following
            # find_related() can fail.
            # However, this can die - so we're just wrapping it in an eval

lib/HTML/FormFu/Model/DBIC.pm  view on Meta::CPAN

                } );
        }
    }
}

sub _save_combobox {
    my ( $self, $base, $dbic, $form, $rs, $combo, $rel, $attrs ) = @_;

    my $select = $combo->get_field({ type => 'Select' });
    my $text   = $combo->get_field({ type => 'Text' });

 view release on metacpan or  search on metacpan

lib/HTML/FormFu/Element/ComboBox.pm  view on Meta::CPAN

        # if we're already built - i.e. process() has been called,
        # call default() on our children

        if ( @{ $self->_elements } ) {
            $self->_combobox_defaults;

            $self->_elements->[0]->default( $self->select->{default} );
            $self->_elements->[1]->default( $self->text->{default} );
        }

lib/HTML/FormFu/Element/ComboBox.pm  view on Meta::CPAN

    $self->_elements( [] );

    $self->_add_select;
    $self->_add_text;

    $self->_combobox_defaults;

    return;
}

sub _combobox_defaults {
    my ($self) = @_;

    if ( defined( my $default = $self->default ) ) {

        if ( !$self->form->submitted || $self->render_processed_value ) {

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

- Add a "permitted" method to MONTH.pm that show only months in the permitted arrayref and exclude all others.
- Add a "permitted" method to YEAR.pm that show only years in the permitted arrayref and exclude all others.

00.04 (2005/10/01)
- Add modules to support different language in HTML and javascript generated text.
- Add BOOLSELECT, a module to generate a YES/NO combobox.
00.03 (2005/09/27)
- Added strict and warnings directive to all modules.

00.02 (2005/09/27)
- In DATE.pm you can now combo and textbox to input date. If you press a digit key in the combo, it will be converted in a textbox form field.