view release on metacpan or  search on metacpan

lib/App/Guiio/Dialogs.pm  view on Meta::CPAN

	#~ editable => TRUE,
  #~ };

  #~ my $iter = $model->append;
  #~ $model->set ($iter,
               #~ COLUMN_NUMBER, $articles[-1]{number},
               #~ COLUMN_PRODUCT, $articles[-1]{product},
               #~ COLUMN_EDITABLE, $articles[-1]{editable});
#~ }

#~ sub remove_item {
  #~ my ($widget, $treeview) = @_;
  #~ my $model = $treeview->get_model;
  #~ my $selection = $treeview->get_selection;

  #~ my $iter = $selection->get_selected;
  #~ if ($iter) {
      #~ my $path = $model->get_path ($iter);
      #~ my $i = ($path->get_indices)[0];
      #~ $model->remove ($iter);

      #~ splice @articles, $i;
  #~ }
#~ }

#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
# GUIIO Dialog Code Begins Here...:
# This procedure will create a VBox containing all of the controls that GUIIO can control
# to allow users to select which UI component they want to have placed on the GUIIO surface

sub activate_guiio_component{
my ($self,$element_name,$x_pos,$y_pos) = @_;
$x_pos = 0 unless defined $x_pos;
$y_pos = 0 unless defined $y_pos;
	
my $control = $self->add_new_element_named($element_name, $x_pos,$y_pos) ;

if (index($element_name,'Radio Button') >= 0 or index($element_name,'Checkbox') >= 0)
{
	$control->SetChecked(TRUE);
} 
$self->update_display();
}
sub display_component_palette
{
my ($self) = @_;
my $root_dir = find_installed('App::Guiio');

	my ($basename, $path, $ext) = File::Basename::fileparse(find_installed('App::Guiio'), ('\..*')) ;
	$path = $path . $basename . '/';
	my $vbox = Gtk2::VBox->new (TRUE,4);
my $btnWindow = create_button('Window',$path . 'images/widget-gtk-dialog.png',TRUE);
my $btnButton = create_button('Button',$path . 'images/widget-gtk-button.png', TRUE);
my $btnTextbox = create_button('Textbox',$path . 'images/widget-gtk-entry.png', TRUE);
my $btnProgressBar = create_button('Progress Bar',$path .'images/widget-gtk-progressbar.png',TRUE);
my $btnScrollBar = create_button('Scroll Bar',$path .'images/widget-gtk-vscrollbar.png', TRUE);
my $btnSlider = create_button('Slider', $path .'images/widget-gtk-hscale.png', TRUE);
my $btnListbox = create_button('Listbox', $path .'images/widget-gtk-list.png',TRUE);
my $btnCombobox = create_button('Dropdown List', $path .'images/widget-gtk-combo.png',TRUE);
my $btnCalendar = create_button('Calendar',$path .'images/widget-gtk-calendar.png',TRUE);
my $btnRadioButton = create_button('Radio Button',$path . 'images/widget-gtk-radiobutton.png',TRUE);
my $btnCheckBox = create_button('Checkbox', $path .'images/widget-gtk-checkbutton.png',TRUE);
my $btnLabel = create_button('Label',$path . 'images/widget-gtk-label.png',TRUE);

$btnButton->signal_connect("clicked", sub { $self->activate_guiio_component('stencils/guiio/Button'); });
$btnWindow->signal_connect("clicked", sub { $self->activate_guiio_component('stencils/guiio/Window');});
$btnLabel->signal_connect("clicked", sub { $self->activate_guiio_component('stencils/guiio/Label');});
$btnListbox->signal_connect("clicked", sub { $self->activate_guiio_component('stencils/guiio/Listbox'); });
$btnRadioButton->signal_connect("clicked", sub { $self->activate_guiio_component('stencils/guiio/Radio Button');});
$btnCheckBox->signal_connect("clicked", sub { $self->activate_guiio_component('stencils/guiio/Checkbox');});
$btnProgressBar->signal_connect("clicked", sub { $self->activate_guiio_component('stencils/guiio/Progress Bar');});
$btnScrollBar->signal_connect("clicked", sub { $self->activate_guiio_component('stencils/guiio/Scroll Bar');});
$btnSlider->signal_connect("clicked", sub { $self->activate_guiio_component('stencils/guiio/Slider');});
$btnCalendar->signal_connect("clicked", sub{$self->activate_guiio_component('stencils/guiio/Calendar');});
$btnTextbox->signal_connect("clicked", sub{$self->activate_guiio_component('stencils/guiio/Textbox');});
$btnCombobox->signal_connect("clicked", sub{$self->activate_guiio_component('stencils/guiio/Combobox');});

$vbox->pack_start ($btnWindow, FALSE, FALSE, 0);
$vbox->pack_start ($btnLabel,FALSE, FALSE, 0);
$vbox->pack_start ($btnTextbox,FALSE, FALSE, 0);
$vbox->pack_start ($btnButton, FALSE, FALSE, 0);
$vbox->pack_start ($btnListbox,FALSE, FALSE, 0);
$vbox->pack_start ($btnCombobox,FALSE, FALSE, 0);
$vbox->pack_start ($btnRadioButton,FALSE, FALSE, 0);
$vbox->pack_start ($btnCheckBox,FALSE, FALSE, 0);
$vbox->pack_start ($btnScrollBar,FALSE, FALSE, 0);
$vbox->pack_start ($btnProgressBar,FALSE, FALSE, 0);
$vbox->pack_start ($btnSlider,FALSE, FALSE, 0);
$vbox->pack_start ($btnCalendar,FALSE, FALSE, 0);

$vbox->show_all();         

$btnWindow->set_focus_on_click(FALSE);
$btnButton->set_focus_on_click(FALSE);
$btnTextbox->set_focus_on_click(FALSE);
$btnProgressBar->set_focus_on_click(FALSE);
$btnScrollBar->set_focus_on_click(FALSE);
$btnSlider->set_focus_on_click(FALSE);
$btnListbox->set_focus_on_click(FALSE);
$btnCombobox->set_focus_on_click(FALSE);
$btnCalendar->set_focus_on_click(FALSE);
$btnRadioButton->set_focus_on_click(FALSE);
$btnCheckBox->set_focus_on_click(FALSE);
$btnLabel->set_focus_on_click(FALSE);

return $vbox;
}
1 ;