view release on metacpan or search on metacpan
lib/Graphviz/DSL/Component.pm view on Meta::CPAN
package Graphviz::DSL::Component;
use strict;
use warnings;
sub update_attributes {
my ($self, $attrs) = @_;
OUTER:
for my $attr (@{$attrs}) {
my ($key, $val) = @{$attr};
view release on metacpan or search on metacpan
lib/Group/Git/Cmd/Pull.pm view on Meta::CPAN
'upload-pack=s',
'progress',
]
);
sub update_start { shift->pull_start($_[0], 'update') }
sub pull_start {
$opt->process;
return;
}
sub update { shift->pull($_[0], 'update') }
sub pull {
my ($self, $name, $type) = @_;
$type ||= 'pull';
my $repo = $self->repos->{$name};
view release on metacpan or search on metacpan
lib/GrowthForecast/Data.pm view on Meta::CPAN
$data->{subtract} = $subtract;
}
$self->inflate_row($data);
}
sub update {
my ($self, $service, $section, $graph, $number, $mode, $color, $timestamp ) = @_;
my $dbh = $self->dbh;
$dbh->begin_work;
my $for_update = ( $dbh->connect_info->[0] =~ /^(?i:dbi):mysql:/ ) ? ' FOR UPDATE' : '';
lib/GrowthForecast/Data.pm view on Meta::CPAN
$dbh->commit;
$self->inflate_row($row);
}
sub update_graph {
my ($self, $id, $args) = @_;
my @update = map { delete $args->{$_} } qw/service_name section_name graph_name description sort gmode color type stype llimit ulimit sllimit sulimit/;
my $meta = encode_json($args);
my $dbh = $self->dbh;
$dbh->query(
lib/GrowthForecast/Data.pm view on Meta::CPAN
@update, $meta, $id
);
return 1;
}
sub update_graph_description {
my ($self, $id, $description) = @_;
my $dbh = $self->dbh;
$dbh->query(
'UPDATE graphs SET description=? WHERE id = ?',
$description, $id
lib/GrowthForecast/Data.pm view on Meta::CPAN
$service, $section, $graph, @update, $meta, time, time
);
$self->get_complex($service, $section, $graph);
}
sub update_complex {
my ($self, $id, $args) = @_;
my @update = map { delete $args->{$_} } qw/service_name section_name graph_name description sort/;
my $meta = encode_json($args);
$self->dbh->query(
'UPDATE complex_graphs SET service_name = ?, section_name = ?, graph_name = ? ,
lib/GrowthForecast/Data.pm view on Meta::CPAN
return [] unless $list;
my @ret = map { $self->inflate_complex_row($_) } @$list;
\@ret;
}
sub update_vrule {
my ($self, $graph_path, $time, $color, $desc, $dashes) = @_;
$self->dbh->query(
'INSERT INTO vrules (graph_path,time,color,description,dashes) values (?,?,?,?,?)',
$graph_path, $time, $color, $desc, $dashes,
view release on metacpan or search on metacpan
lib/Gruntmaster/Data.pm view on Meta::CPAN
$st[$_]->{rank} = $st[$_ - 1]->{rank} + ($st[$_]->{score} < $st[$_ - 1]->{score}) for 1 .. $#st;
\@st
}
sub update_status {
my $jobs = $db->select('jobs', 'id,owner,problem,result', {-not_bool => 'private'}, 'id');
my %hash;
while ($jobs->into(my ($id, $owner, $problem, $result))) {
$hash{$problem, $owner} = [$id, $result ? 0 : 1];
view release on metacpan or search on metacpan
Bonobo/samples/bonobo-hello.pl view on Meta::CPAN
warn "created view $self\n";
return $self;
}
sub update {
my ($view, $embeddable) = @_;
warn "update with $embeddable->{text}\n";
$view->{label}->set($embeddable->{text}) if ($embeddable && exists $embeddable->{text});
}
view release on metacpan or search on metacpan
lib/Gtk2/CV/ImageWindow.pm view on Meta::CPAN
($self->{rsw}, $self->{rsh}) = ($sw, $sh);
$self->auto_resize if $self->{image};
}
}
sub update_properties {
my ($self) = @_;
(undef, undef, my @data) = $_[0]->{window}->property_get (
$_[0]{frame_extents_property},
Gtk2::Gdk::Atom->intern ("CARDINAL", 0),
lib/Gtk2/CV/ImageWindow.pm view on Meta::CPAN
$self->set_subimage (
$self->{subimage}->new_subpixbuf ($x1, $y1, $w, $h)
);
}
sub update_mpv_window {
my ($self) = @_;
# force a resize of the mpv window, otherwise it doesn't receive
# a configureevent :/
$self->{mpv_window}->window->resize (1, 1),
view release on metacpan or search on metacpan
lib/Gtk2/Ex/DBITableFilter/BrowserBar.pm view on Meta::CPAN
$parent->{limit} = $limit;
$parent->refresh;
return 0;
}
sub update_progress_label {
my ($self, $action) = @_;
if ($action eq 'Counting') {
$self->{progress}->{bar}->set_text('Counting');
return 0;
}
view release on metacpan or search on metacpan
lib/Gtk2/Ex/Datasheet/DBI.pm view on Meta::CPAN
return FALSE;
}
sub update_footer {
my $self = shift;
my @model_row;
view release on metacpan or search on metacpan
lib/Gtk2/Ex/DbLinker/AbForm.pm view on Meta::CPAN
Reflect in the user interface the changes made after the data manager has been queried, or on the form creation
=cut
sub update {
my ($self) = @_;
my $id = id $self;
my @col = $dman{ $id }->get_field_names;
$log{ $id }->debug(
"update cols are " . ( @col ? join( " ", @col ) : " cols undef " ) );
view release on metacpan or search on metacpan
examples/Forms/Sflang2.pm view on Meta::CPAN
$self->{sf_list}->update;
}
sub update_widgets_sensitivity {
my $self = shift;
my $rc = $self->{sform}->get_data_manager->row_count;
$self->{log}->debug("rc ", $rc);
if ( $rc == 0 ) {
$self->{dnav}->widgets_set_sensitivity(0);
view release on metacpan or search on metacpan
devel/run.pl view on Meta::CPAN
($vinverted?"vinv":"vnorm"),
"policy $update_policy\n";
}
# make();
sub update {
if (defined $dragger) {
make ();
}
}
{
view release on metacpan or search on metacpan
lib/Gtk2/Ex/FormFactory.pm view on Meta::CPAN
$self->connect_signals;
1;
}
sub update {
my $self = shift;
$self->update_all;
}
sub ok {
view release on metacpan or search on metacpan
lib/Gtk2/Ex/Geo/Overlay.pm view on Meta::CPAN
## @method update_image($annotations, $user_param)
# @param annotations A subroutine for user annotations. Called like
# this: $annotations->($overlay, $pixmap, $gc, $user_param).
# @param user_param User parameter for the annotations.
# @brief Updates the image on the screen to show the changes in pixmap.
sub update_image {
my($self, $annotations, $user_param) = @_;
return unless $self->{pixbuf};
$self->{image}->set_from_pixbuf(undef);
$self->{pixmap} = $self->{pixbuf}->render_pixmap_and_mask(0);
my $gc = Gtk2::Gdk::GC->new($self->{pixmap});
view release on metacpan or search on metacpan
lib/Gtk2/Ex/ICal/Recur.pm view on Meta::CPAN
bless ($self, $class);
$self->{widget} = $self->package_all;
return $self;
}
sub update_preview {
my ($self) = @_;
my $temp = [
['Generating Preview'],
['Please wait...'],
];
lib/Gtk2/Ex/ICal/Recur.pm view on Meta::CPAN
}
}
$self->update_ui_from_model(\@monthdays, $hash, '/^/by week day/', $level);
}
sub update_ui_from_model {
my ($self, $list, $hash, $string, $level) = @_;
for (my $i=0; $i<=$#{@$list}; $i++) {
$self->{recurbox}->{buttons}->[$level]->[$i]->{simplemenu}->get_widget($string.$hash->{$list->[$i]})->activate;
$self->{recurbox}->{buttons}->[$level]->[$i]->{next}->set_sensitive(FALSE);
if ($i<$#{@$list}) {
view release on metacpan or search on metacpan
lib/Gtk2/Ex/VolumeButton.pm view on Meta::CPAN
$self->{image} = Gtk2::Image->new();
$self->{image}->show();
$self->add( $self->{image} );
}
sub update_pixbufs {
my $self = shift;
for(qw( mute zero min medium max )) {
if( ref $self->{$_.'_image'} && $self->{$_.'_image'}->isa('Gtk2::Gdk::Pixbuf') ) {
$self->{pixbufs}->{$_} = $self->{$_.'_image'};
lib/Gtk2/Ex/VolumeButton.pm view on Meta::CPAN
$self->{volume} = $vol;
$self->update_image( $vol );
$self->signal_emit( 'volume_changed', $vol );
}
sub update_image {
my($self, $vol) = @_;
my $id;
$vol = $self->{volume} unless defined $vol;
view release on metacpan or search on metacpan
lib/Gtk2/Ex/TableBits.pm view on Meta::CPAN
'x-options',
'y-options',
'x-padding',
'y-padding');
sub update_attach {
my ($table, $child, @args) = @_;
### TableBits update_attach: "$child", @args
if (! _child_is_attached_at($table, $child, @args)) {
### must re-attach ...
view release on metacpan or search on metacpan
examples/progress.pl view on Meta::CPAN
exit 0;
# Helper to update all of the progress widgets in one swoop
sub update_progress {
foreach my $p (@progress) {
$p->set_fraction($fract/1000);
}
}
view release on metacpan or search on metacpan
examples/offscreen_rotation.pl view on Meta::CPAN
$w= max($xa,$xb,$xc,$xd) -$x;
$h= max($ya,$yb,$yc,$yd) -$y;
return Gtk2::Gdk::Rectangle->new($x,$y,$w,$h);
}
sub update_matrix {
my $self=shift;
my ($x,$y,$w,$h)= $self->allocation->values;
my $border= $self->get_border_width;
$x+=$border; $w-=2*$border;
$y+=$border; $h-=2*$border;
view release on metacpan or search on metacpan
lib/Gtk3/Ex/DBI/Datasheet.pm view on Meta::CPAN
return FALSE;
}
sub update_footer {
my $self = shift;
my @model_row;
view release on metacpan or search on metacpan
lib/Gtk3/ImageView.pm view on Meta::CPAN
sub get_resolution_ratio {
my ($self) = @_;
return $self->get('resolution-ratio');
}
sub update_cursor {
my ( $self, $x, $y ) = @_;
my $pixbuf_size = $self->get_pixbuf_size;
if ( not defined $pixbuf_size ) { return }
my $win = $self->get_window;
my $cursor = $self->get_tool->cursor_at_point( $x, $y );
view release on metacpan or search on metacpan
lib/GuiBuilder.pm view on Meta::CPAN
if($DBG_ON) { print("max_frame = $max_frame.\n"); }
return $max_frame;
}
#------------------------------------------------------------------------------
sub update_gui_file {
my ($title) = @_;
my $max_frames;
my %row_start_for_frame;
my %num_row_in_frame;
my $tmp_file_name = "tmp.gui";
lib/GuiBuilder.pm view on Meta::CPAN
}
return $field_str;
} # get_field_text
#------------------------------------------------------------------------------
sub update_list {
my ($list_box) = @_;
my $list_size = $list_box -> size();
for(my $i = 0; $i < $list_size; $i++) {
$list_box -> delete(0);
view release on metacpan or search on metacpan
lib/HDB/CMDS.pm view on Meta::CPAN
##########
# UPDATE #
##########
sub update {
my $this = shift ;
my ($table , $where , %up) = @_ ;
$table = _format_table_name($table) ;
view release on metacpan or search on metacpan
lib/HPC/Runner/Command/execute_job/Logger/JSON.pm view on Meta::CPAN
}
##TODO Once we add to the complete
## Get all the for the tasks
## Compute mean, min, max of all tasks
sub update_json_task {
my $self = shift;
# my @stats = ( 'vmpeak', 'vmrss', 'vmsize', 'vmhwm' );
# my $job_meta = $self->parse_meta_str;
# my $basename = $self->data_tar->basename('.tar.gz');
view release on metacpan or search on metacpan
lib/HTML/Bricks/Mappings.pm view on Meta::CPAN
}
#-----------------------------------------------------------------------------
# update
#-----------------------------------------------------------------------------
sub update($$$) {
my ($self, $position, $rmapping) = @_;
$position = 0 if !defined $position;
my $rary = $self->read_mappings();
splice @$rary, $position, 1, $rmapping;
view release on metacpan or search on metacpan
script/hcgen view on Meta::CPAN
$t =~ s/\%M/$self->month_name/ge;
$t =~ s/\%y/$self->year/gie;
return $t;
}
sub update_if_needed($$) {
my ($fname, $new) = @_;
# Do not overwrite unless modified.
if ( -s $fname && -s _ == length($new) ) {
local($/);
view release on metacpan or search on metacpan
lib/HTML/FormFu/Model/DBIC.pm view on Meta::CPAN
my $dbic = $resultset->new_result( {} );
return $self->update( $dbic, { %$attrs, base => $base } );
}
sub update {
my ( $self, $dbic, $attrs ) = @_;
croak "row object missing" if !defined $dbic;
my $form = $self->form;
view release on metacpan or search on metacpan
lib/HTML/FormFu/Model.pm view on Meta::CPAN
sub default_values {
croak "'default_values' method not implemented by Model class";
}
sub update {
croak "'update' method not implemented by Model class";
}
sub create {
croak "'create' method not implemented by Model class";
view release on metacpan or search on metacpan
lib/HTML/FormHandler/TraitFor/Model/DBIC.pm view on Meta::CPAN
my $self = shift;
$self->item(undef);
$self->item_id(undef);
}
sub update_model {
my $self = shift;
my $item = $self->item;
my $source = $self->source;
warn "HFH: update_model for ", $self->name, "\n" if $self->verbose;
view release on metacpan or search on metacpan
lib/HTML/FormHandler.pm view on Meta::CPAN
}
sub get_default_value { }
sub _can_deflate { }
sub update_fields {
my $self = shift;
if( $self->has_update_field_list ) {
my $updates = $self->update_field_list;
foreach my $field_name ( keys %{$updates} ) {
$self->update_field($field_name, $updates->{$field_name} );
lib/HTML/FormHandler.pm view on Meta::CPAN
}
$self->clear_defaults;
}
}
sub update_field {
my ( $self, $field_name, $updates ) = @_;
my $field = $self->field($field_name);
unless( $field ) {
die "Field $field_name is not found and cannot be updated by update_fields";
lib/HTML/FormHandler.pm view on Meta::CPAN
params => $params );
The 'update_field_list' is processed by the 'update_fields' form method,
which can also be used in a form to do specific field updates:
sub update_fields {
my $self = shift;
$self->field('foo')->temp( 'foo_temp' );
$self->field('bar')->default( 'foo_value' );
$self->next::method();
}
view release on metacpan or search on metacpan
examples/edit.pl view on Meta::CPAN
deleteEntry( \@{ @$t[$i]->{subtree} }, $find );
} ## end elsif ( defined @{ @$t[$i...]})
} ## end for ( my $i = 0 ; $i < ...)
} ## end sub deleteEntry
sub updateTree {
my $t = shift;
for ( my $i = 0 ; $i < @$t ; $i++ ) {
if ( defined @$t[$i] ) {
@$t[$i]->{onmouseup} = "confirmMove()";
@$t[$i]->{id} = @$t[$i]->{id};
examples/edit.pl view on Meta::CPAN
<td ><a class="treeviewLink$size" href="$ENV{SCRIPT_NAME}?action=editTreeviewEntry&rid=@$t[$i]->{id}"><img src="/style/$m_sStyle/$size/mimetypes/edit.png" border="0" alt="edit"/></a></td><td><a class="treeviewLink$size" href="$ENV{SCRIPT_NAME}?ac...
@$t[$i]->{href} = '';
updateTree( \@{ @$t[$i]->{subtree} } ) if ( defined @{ @$t[$i]->{subtree} } );
} ## end if ( defined @$t[$i] )
} ## end for ( my $i = 0 ; $i < ...)
} ## end sub updateTree
sub rid {
no warnings;
$m_nRid = 0;
&getRid( \@tree );