1.1. About GTK

The GTK (GIMP Toolkit) is a library for creating graphical user interfaces. It is licensed using the LGPL license, so you can develop open software, free software, or even commercial non-free software using GTK without having to spend anything for licenses or royalties.

It's called the GIMP Toolkit because it was originally written for the GNU Image Manipulation Program (GIMP), but GTK has been used in a large number of software projects, including the GNU Network Object Model Environment (GNOME) project. GTK is built on top of the GDK (GIMP Drawing Kit) which is basically a wrapper around the low-level functions for accessing the underlying windowing functions (Xlib in the case of the X windows system).

Despite being written completely in C, GTK is essentially an object oriented API. GTK is implemented using the idea of classes and callbacks (pointers to functions). One advantage to having the library written in C is that most languages are able to interface with C libraries, making GTK available to several languages, including C++, Perl, Python, Eiffel, and many more (see the GTK Home Page for a more complete list).

1.2. About Perl Bindings to GTK

Perl is a scripting language designed to make the simple things easy, and the hard things possible. If you are new to Perl, I highly recommend both Learning Perl and Programming Perl by O'reilly and Associates.

Иерархия наследования

Object
   +--- Data
         +--- Adjustment

Gtk имеют несколько типов виджетов, которые могут быть визуально расставлены пользователем при помощи клавиатуры и мыши, подобно range widgets, описанных в соответствующей главе. Есть так-же несколько виджетов, которые показывают показ текста или иного вида данных в соответствии с размером облисти их отображения. Например text widget или viewport widget.

Очевидно, что приложение должно уметь реагировать на изменения, которые пользователь вносит в отображение виджета. Один путь для реализации этой концепции состоит в том, чтобы каждый виджет испускал собственный сигнал при изменении его размеров и любое изменение этого размера будет сопровождаться сопоставлением с данными внутри виждета и соответственно как-то это изменение отрабатывать для каждого виджета. Другойпуть заключается в том, чтобы изменение одного виджета провоцировало изменение других виджетов, то есть связанное изменение. Наиболее очевидным примером для этого может являться связка scrollbar-panning viewport или scrollbar-text area. В случае, когда каждый виджет отдельно обрабабатывает изменение своих размеров, разработчику необходимо связывать воедино изменения различных элементов так, чтобы они вели себя как единое целое.

Gtk решает эту проблему при помощи Adjustment object, который не является виджетом, но заставляет виджет хранить и передавать информацию в абстрактрой и гибкой форме. Примером такого реглирования является хранение конфигурационных параметров и их изменение в соответствии с виджетными размерами, например scrollbars и scale controls. Однако, так как регулирование наследуется из объекта, видоизменяемые виджеты имеют некоторые специфические возможности в отличие от нормальных структур данных. Наиболее важным в регулировании отображения виджетов является то, что такие свойства виджетов мугут выдавать сигналы, подобные выдаваемым виджетами при совершении над последними каких-то действий, и эти сигналы могут давать соответствующую регулировку для остальных виджетов(например в пропорциях между ними). К сожалению, выравнивание может быть довольно трудной концепцией в тех случаях, когда нет визуальных примеров, показывающих её дейтсвие например при работе виджетов, подобных progress bars, viewports, scrolled windows и им подобных.

Определение объекта, отвечающего за выравнивание

Некоторые виджеты в случае пользоватльского вмешательства видоизменяются пропорциональным образом автоматически, но в некоторых случаях(которые будутпоказаны позднее в примерах) операцию изменения приходится проделывать автоматически. Создать объект, отвечающий за такой тип взаимодействия между виджетами, можно при помощи функции Gtk::Adjustment():

new Gtk::Adjustment( $value,
                     $lower,
                     $upper,
                     $step_increment,
                     $page_increment,
                     $page_size );

Перемення $valie - начальное значение, которое необходимо сохранить при изменении элементов окна, оно обычно соответствует левому верхнему положению элементов. Переменная $lower является минимальным значением, которе будет изменятся в соответствии с парвилами всего Adjustment. Переменная $step_increment определяет минимальное значение, из двух приращений, которое может инициировать пользователь, соответственно переменная $page_increment является максимальным допустимым изменяемым значением. Переменная $page_size соответствует видимой части виджета. Переменная $upper используется для выбора, что изменять в первую очередь, нижнюю или правую часть дочернего отображаемого виджета. Поэтому она не обладает наибольшим значением которое моежт иметь $value.

Использование авторегуляции виджетов.

Виджеты описываемой группы могут быть грубо разделены на те, которые настраиваются разработчиками, и те, которые все "делают" автомтически. К автоподстраиваемым виджетам относятся скроллбары, скейлы, прогрессбары и кнопки прокрутки. Эти виджеты являются виджетами, которые автоматически подстраивают свои размеры в соответствии с действиями пользователя.

Другая группа виджетов включает в себя text widget, viewport, CList и scrolles window. Все они используют попиксельное позиционирование. Также эти виджеты ковенно используют позиционирование при помощи скроллбаров.

Нижеследующий английский текст переводчик до конца не понял и будет благодарен за правильный его перевод

While all widgets which use adjustments can either create their own adjustments or use ones you supply, you'll generally want to let this particular category of widgets create its own adjustments. Usually, they will eventually override all the values except the value itself in whatever adjustments you give them, but the results are, in general, undefined (meaning, you'll have to read the source code to find out, and it may be different from widget to widget).

Now, you might be thinking, since text widgets and viewports insist on setting everything except the value of their adjustments, while scrollbars will only touch the adjustment's value, if you share an adjustment object between a scrollbar and a text widget, will manipulating the scrollbar automagically adjust the text widget? Of course it will! Just like this:

# creates its own adjustments
$text = new Gtk::Text( "", "" );

# uses the newly-created adjustment for the scrollbar as well
$vscrollbar = new Gtk::VScrollbar( $text->vadj );

Внутреннее регулирование

Если необходимо создать собственный механизм регулирования взаимного (пере- ?)расположения виджетов, то в Gtk-Perl возможно было бы использовать

get_adjustment->adjustment_name

где adjustment_name любая величина из перечисленных value, lower, upper, step_increment, page_increment, или page_size. Если необходимо переопределить значение какого-либо вида выравнивания для всех виджетов одним махом, то пишется строчка:

 $adjustment->set_value( $value );

Как было упомянуто ранее, регулирование может инициировать сигналы в случае, когда, например, изменяется значение для сроллбара и вместе с ним текст внутри окна, где действует скроллбар.

Различные виджеты, которые используют объект выравнивания, испускают сигнал при изменении значения переменных, ответственных за виджеты(возможно, неправилен смысл перевода). Например, если имеется скейл-виджет и необходимо повращать картинку всякий раз, когда изменяются значения, влияющие на выравнивание, то используется следующий код:

sub cb_rotate_picture
  {
    ( $adjustment, $picture ) = @_;
    $picture->rotation( $adjustment->get_adjustment->value );
    ...
  }

и далее соединяемся со скейл-виджетом, ответственным за выравнивание примерно так:

$adjustment->signal_connect( "value_changed",
                             \&cb_rotate_picture,
                             $picture );

В слече, если пользователь добавляет текст к текстовому виджету, то меняются значения переменной upper или lower и испускается сигнал 'changed'.

Range widgets typically connect a handler to this signal, which changes their appearance to reflect the change - for example, the size of the slider in a scrollbar will grow or shrink in inverse proportion to the difference between the lower and upper values of its adjustment.

You probably won't ever need to attach a handler to this signal, unless you're writing a new type of range widget. However, if you change any of the values in a Adjustment directly, you should emit this signal on it to reconfigure whatever widgets are using it, like this:

$adjustment->emit_by_name( "changed" );

Иерархия наследования

Inheritance Hierarchy

Object
   +--- Widget
         +--- Container
               +--- Bin
                     +--- Button

Есть два пути создания кнопок, создать пустую кнопку и добавить потомка позднее или создать кнопку с лейблом как потомка:

$button = new Gtk::Button();
$button = new Gtk::Button( $label );
$button = new_with_label Gtk::Button( $label );

Первая функция создает пустую кнопку, две послдение создают её с лейблами. Средная просто сокращение последней. Если создается кнопка с лейблом, то можно использовать button->child для доступа к виджету-потомку. Например, чтобы изменить текст в на лейбле, нужно сделать так:

$button->child->set( "new label" ); 

Если кнопка с лейблом не создается, то необходимо виджет добавить к кнопке. Например три следующих примера эквивалентны:

# создать кнопку с лейблом
$button = new Gtk::Button( "text" );

# тоже самое, но с другой функцией new()
$button = new_with_label Gtk::Button( "text" );

# создать лейбл, отделенный от кнопки и объединить их потом вручную.
$button = new Gtk::Button();
$label = new Gtk::Label( "text" );
$button->add( $label );

Сигналы, посылаемые кнопками.

Виждет кнопки посылает следующие сигналы:

'pressed' - посылается, когда кнопка нажата в пределах её размеров, или когда происходит вызов функции $button->pressed()

'released' - посылается, когда когда кнопка отжата в пределах её размеров, или когда происходит вызов функции $button->released()

'clicked' - когда кнопка нажата и отпущена в пределах размеров или когда вызывается функция $button->clicked()

'enter' - когда курсор мыши входит в пределы кнопки или когда вызывается функция $button->enter()

'leave' - когда курсор выходит из области, где нарисвана кнопка, соответственно эмитация выхода, как и выше, может быть вызвана програмно $button->leave()

Стили

Стили кнопок могут быть трех типов: 'normal', 'half' и 'none'. 'normal' - по умолчанию, для утсановки и апроса стиля, нужно писать следующее:

$button->set_relief( $relief_style ); 

$button->get_relief(); 

Ниже пример, в котором создается кнопка с лейблом, который в дальнейшем изменяется, далее удаляется и переопределяется вручную и в конце по третьему клику происходит выход из формы с кнопкой.

#!/usr/bin/perl -w


use Gtk;
use strict;

set_locale Gtk;
init Gtk;

my $false = 0;
my $true = 1;

my $window = new Gtk::Window( "toplevel" );
my $button = new Gtk::Button( "Button created with label" );
my $label;
my $id;
my $numclicked = 0;

# обработка выхода
$window->signal_connect( "delete_event", \&CloseWindowEvent );
$button->signal_connect( "clicked", \&ClickedButtonEvent );

# атрибуты
$button->show();

# атрибуты окна
$window->border_width( 15 );
$window->add( $button );
$window->show();

# вызов Gtk
main Gtk;
exit( 0 );

### Подпрограммы
# вызов когда кнопка кликнется, при первом нажатии лейбл изменяется, при втором нажатии лейбл добавляется к кнопке, при 
# третьем нажатии лейбл меняется и пи четвертом происходит выход из программы

sub ClickedButtonEvent{
   if ( $numclicked == 0 ){
      $button->child->set( "Changed Button Label" );
      $numclicked++;
   } elsif ( $numclicked == 1 ){
      $window->remove( $button );
      $button = new Gtk::Button();
      $label = new Gtk::Label( "Label added to a button" );
      $button->add( $label );
      $label->show();
      $button->show();
      $window->add( $button );
      $id = $button->signal_connect( "clicked", \&ClickedButtonEvent );
      $numclicked++;
   } elsif ( $numclicked == 2 ) {
      $label->set( "Now Click to Close Window" );
      $numclicked++;
   } else {
      Gtk->exit( 0 );
   }
}

# Callback called when the window is asked to close.  What really
# happens is that the window moves down and to the right.  This is an
# excellent example of a program that doesn't act like the user
# expects.

sub CloseWindowEvent
{
   # If you return a false value in the "delete_event" signal
   # handler, GTK will emit the "delete_event" signal.
   # Returning a true value means you don't want the window to
   # be destroyed.
   $window->window->move( 100, 100 );
   return $true;
}

сделать скриншоты работы программы

Иерархия наследования

Object
   +--- Widget
         +--- Container
               +--- Box
                     +--- ButtonBox

Бокс с кнопками предназначен для удобства расположения последних. Можно располагать серии кнопок как вертикально, так и горизонтально. Для создания необходимого button box нужно написать

$button_box = new Gtk::HButtonBox();

$button_box = new Gtk::VButtonBox();

Так-же этот метод расположения позволяет задавать и изменять величину пробела между кнопками:

$button_box-> set_spacing_default ($spacing);

$button_box-> get_spacing_default ();

И, помимо всего прочего, можно задавать тип расположения кнопок внутри бокса:

$button_box-> set_layout_default ($layout);

Переменная $layout может иметь несколько значений:

'default_style'
'spread'
'edge'
'start'
'end'

Текущее состояние лайота может быть восстановлено функцией

$button_box-> get_layout_default ();

Добавление кнопок в бокс можно реализовать, написав функцию

$button_box->add( $button );

И небольшой пример, иллюстрирующий все типы лайотов, определяющих поведение содержимого button box:

      
#!/usr/bin/perl -w

use Gtk;
use strict;

set_locale Gtk;
init Gtk;

my $false = 0;
my $true = 1;

my $window;
my $main_vbox;
my $vbox;
my $hbox;
my $frame_horizontal;
my $frame_vertical;


# создаем окно
$window = new Gtk::Window( "toplevel" );
$window->set_title( "Button Boxes" );
$window->signal_connect( "destroy", sub { Gtk->exit( 0 ); } );
$window->border_width( 10 );

# Создаем вертикальный бокс
$main_vbox = new Gtk::VBox( $false, 0 );
$window->add( $main_vbox );

# создаем горизонтальный фрейм
$frame_horizontal = new Gtk::Frame( "Horizontal Button Boxes" );
$main_vbox->pack_start( $frame_horizontal, $true, $true, 10 );

# Создаем вертикальный бокс, чтобы внутри поместить горизонтальный фрейм
$vbox = new Gtk::VBox( $false, 0 );
$vbox->border_width( 10 );
$frame_horizontal->add( $vbox );
$vbox->pack_start( create_bbox( $true, "Spread (spacing 30)",
				30, 85, 20, 'spread' ),
		   $true, $true, 0 );
$vbox->pack_start( create_bbox( $true, "Spread (spacing 40)",
				40, 85, 20, 'spread' ),
		   $true, $true, 0 );
$vbox->pack_start( create_bbox( $true, "Edge (spacing 30)",
				30, 85, 20, 'edge' ),
		   $true, $true, 5 );
$vbox->pack_start( create_bbox( $true, "Start (spacing 20)",
				20, 85, 20, 'start' ),
		   $true, $true, 5 );
$vbox->pack_start( create_bbox( $true, "End (spacing 10)",
				10, 85, 20, 'end' ),
		   $true, $true, 5 );

# создаем вертикальный фрейм
$frame_vertical = new Gtk::Frame( "Vertical Button Boxes" );
$main_vbox->pack_start( $frame_vertical, $true, $true, 10 );

# создаем горизонтальный бокс, чтобы поставить туда вертикальный фрейм
$hbox = new Gtk::HBox( $false, 0 );
$hbox->border_width( 10 );
$frame_vertical->add( $hbox );

$hbox->pack_start( create_bbox( $false, "Spread (spacing 5)",
				5, 85, 20, 'spread' ),
		   $true, $true, 0 );
$hbox->pack_start( create_bbox( $false, "Edge (spacing 30)",
				30, 85, 20, 'edge' ),
		   $true, $true, 5 );
$hbox->pack_start( create_bbox( $false, "Start (spacing 20)",
				20, 85, 20, 'start' ),
		   $true, $true, 5 );
$hbox->pack_start( create_bbox( $false, "End (spacing 20)",
				20, 85, 20, 'end' ),
		   $true, $true, 5 );

$window->show_all();
main Gtk;
exit( 0 );



### подпрограммы
# Создаем бокс с параметрами. Первый параметр ложь или истина, 
# отвечает за ориентацию бокса, второй  - заголовок бокса.
# третий - величина отступа, четвертый и пятый  - высота и ширина кнопок
# и шестой - параметр выравнивания внутри кнопок.

sub create_bbox{
   my ( $horizontal, $title, $spacing, $child_w, $child_h, $layout ) = @_;
   my $frame;
   my $bbox;
   my $button;

   $frame = new Gtk::Frame( $title );

   # создаем баттон бокс
   if ( $horizontal )
   {
      $bbox = new Gtk::HButtonBox();
   }
   else
   {
      $bbox = new Gtk::VButtonBox();
   }

   $bbox->border_width( 5 );
   $frame->add( $bbox );

   # Устанавливаем набор параметров
   $bbox->set_layout( $layout );
   $bbox->set_spacing( $spacing );
   $bbox->set_child_size( $child_w, $child_h );

   # добавляем кнопки в бокс
   $button = new Gtk::Button( "OK" );
   $bbox->add( $button );

   $button = new Gtk::Button( "Cancel" );
   $bbox->add( $button );

   $button = new Gtk::Button( "Help" );
   $bbox->add( $button );

   return ( $frame );
}

Иерархия наследования

Object
   +--- Widget
         +--- Container
               +--- Bin
                     +--- Button
                           +--- ToggleButton
                                 +--- CheckButton

Чекбоксы наследуют свойства и функции тоггля, но с небольшим различием. В случае чекбокса название располагается рядом с полем для галочки(или круглой кнопки и т.д. - зависит от темы оконного менеджера). Создание чекбокса происходит как обычно:

new Gtk::CheckButton();

new Gtk::CheckButton( $label );

Соответственно первая строка - просто чекбокс, вторая - чекбокс с лейблом. Обработка евентов оналогичо тогглям.

Радиокнопки

Object
   +--- Widget
         +--- Container
               +--- Bin
                     +--- Button
                           +--- ToggleButton
                                 +--- CheckButton
                                       +--- RadioButton

поведение радиокнопок аналогично их поведению при использовании html и удобно, когда необходимо выбрать что-то из очень короткого списка позиций.

Создать группу радиокнопок можно при помощи следующих строк:

new Gtk::RadioButton( $label );

new Gtk::RadioButton( $label, $button ); 

Видно, что второй способ создания радиокнопки имеет дополнительный параметр $button, который позволяет группировать кнопки относительно начальной кнопки. Следующий пример более четко поясняет эту концепцию группировки(связывания нескольких радиокнопок):

#создаем первую кнопку и добавляем её в бокс
$radio1 = new Gtk::RadioButton( "button 1" );
$box->add( $radio1 );

# создаем вторую кнопку и добавляем её в бокс(к первой )
$radio2 = new Gtk::RadioButton( "button 2", $radio1 );
$box->add( $radio2 );

# создаем третью кнопку и добавляем её в бокс
# и связываем её со второй кнопкой
$radio3 = new Gtk::RadioButton( "button 3", $radio1 );
$box->add( $radio3 );

# создаем 4-ю кнопку, и связываем её с третьей
$radio4 = new Gtk::RadioButton( "button 4", $radio3 );
$box->add( $radio4 );

Если необходимо выделять по дефолту какую-то из кнопок из группы, то это делается строчкой

$togglebutton-> set_active ($state);

Действие аналогично действию тогглов, В группе радиокнопок только одна может быть активной. Когда происходит смена выделения радиокнопки, то происходит испускание двух 'toggled' сигналов "снятие выделения" и "новое выделение".

Иерархия наследования

Object
   +--- Widget
         +--- Editable

Виджеты редактирования - базовый класс всех виджетов этого типа. Этот класс
не нуждается в применении функции new() и только обеспечивает обычные
функциональные возможности к тексту widgets. Все виджеты, в которых можно
редактировать текст, позволяют выделять область текста при помощи функции:

$editable->select_region( $start, $end );

где выделенный текст содержит те символы, которые отмечены с $start и до(не
включая) $end. Если $end отрицательно, то происходит обратный отсчет с конца
текста.

Текст может быть вставлен на определенную позицию при помощи функции

$editable->insert_text( $new_text, $position ); 

$new_text - текст, который вставляется, $position - позиция, начиная от
которой происходит вставление текста.

Символы могут быть удалены при помощи функции

$editable->delete_text( $start, $pos );

где $start - начальная позиция удаляемого текста и $pos - конечная позиция
удаляемого текста. Если $pos < 0, тогда отсчет удаляемых символов ведется от
конца текста.

Вытащить текст из положения "от" и "до" можно при помощи функции

$editable->get_chars( $start, $end ); 

Чтобы взять весь текст, находящийся в виджете нужно использовать

$editable->get_chars( 0, -1 );

Если текст выделен, то его можно скопировать в клипбоард при помощи функции

$editable->cut_clipboard(); 

При копировании текста в клипбоард берутся выделенные символы, помещаются в
клипбоарде и только после этого удаляются из виджета.

Текст в клипбоарде модет быть вставлен в виджет при помощи

$editable->paste_clipboard();

текст будет вставлен в месте, где находится курсор.

Для удаления текста используется функция

$editable->delete_selection(); 

Положение курсора может быть установлено или изменено при помощи функций

$editable->get_position(); 

$editable->set_position( $position ); 

Текстовый виджет может находится в двух состояниях "для чтения" и "для
редакции", эти состояния определяются функцией

$editable-> set_editable ($is_editable);

где $is_editable принимает значения "истина" или "ложь".

Текстовые редактируемые виджеты имеют множество сигналов:

'changed'
'insert-text'
'delete-text'
'activate'
'set-editable'
'move-cursor'
'move-word'
'move-page'
'move-to-row'
'move-to-column'
'kill-char'
'kill-word'
'kill-line'
'cut-clipboard'
'copy-clipboard'
'paste-clipboard'

Как работают эти сигналы - очевидно из их названия, если у Вас возникнут
вопросы относительно их применения - читайте описание Gtk. Например чтобы
посать сигнал 'changed' необходимо вызвать функцию $editable->changed().





Иерархия наследования

Object
   +--- Widget
         +--- Editable
               +--- Entry

Виджеты ввода позволяют напечатать и показать текст в одну строку. The text
may be set with function calls that allow new text to replace, prepend or
append the current contents of the Entry widget. 

Две функции для создания текствых полей ввода:

$entry = new Gtk::Entry(); 

$entry = new Gtk::Entry( $max_length ); 

Первая функция создает новый виджет ввода, вторая функция делает то-же
самое, за исключением того, что ограничивает число символов, вводиммых
пользователем до значения, передаваемого аргуметом $max_length.

Несколько функций для манипуляций над текстом, находящимся в виджете:

$entry-> set_text ($text); 

$entry-> append_text ($text); 

$entry-> prepend_text ($text); 

Функция set_text() устанавливает содержимое виджета, меняя его на текущее
содержимое. append_text() и prepend_text() добавляют текст к содержимому
виджета.

Для скрытия вводимого текста(в случае ввода пароля) можно использовать
функцию

$entry-> set_visibility ($visible); 

Для контроля того, что делте с виджетом пользователь, нужно отлавливать
соответствующие сигналы(см. документацию).

Пример использования виджета. позволяющего вводить текст:

#!/usr/bin/perl -w

use Gtk;
use strict;

set_locale Gtk;
init Gtk;

my $false = 0;
my $true = 1;

my $window;
my $vbox;
my $hbox;
my $entry;
my $button;
my $check;


# Создаем окно
$window = new Gtk::Window( "toplevel" );
$window->set_usize( 200, 100 );
$window->set_title( "GTK Entry" );
$window->signal_connect( "delete_event", sub { Gtk->exit( 0 ); } );

$vbox = new Gtk::VBox( $false, 0 );
$window->add( $vbox );
$vbox->show();

# создаем поле ввода
$entry = new Gtk::Entry( 50 );
$entry->signal_connect( "activate", \&enter_callback, $entry );
$entry->set_text( "Hello" );
$entry->append_text( "World" );
$entry->select_region( 0, length( $entry->get_text() ) );
$vbox->pack_start( $entry, $true, $true, 0 );
$entry->show();

$hbox = new Gtk::HBox( $false, 0 );
$vbox->add( $hbox );
$hbox->show();

# создаем чекбокс, который определяет, будет ли поле ввод редактируемым
$check = new Gtk::CheckButton( "Editable" );
$hbox->pack_start( $check, $true, $true, 0 );
$check->signal_connect( "toggled", \&entry_toggle_editable, $entry );
$check->set_active( $true );
$check->show();

# создаем чекбокс, который определяет, будет ли введенный текст видимым
$check = new Gtk::CheckButton( "Visible" );
$hbox->pack_start( $check, $true, $true, 0 );
$check->signal_connect( "toggled", \&entry_toggle_visibility, $entry );
$check->set_active( $true );
$check->show();

# создаем кнопку выхода
$button = new Gtk::Button( "Close" );
$button->signal_connect( "clicked", sub { Gtk->exit( 0 ); } );
$vbox->pack_start( $button, $true, $true, 0 );
$button->can_default( $true );
$button->grab_default();
$button->show();

$window->show();

main Gtk;
exit( 0 );

### подпрограммы


# Callback that is called when the enter key is pressed and the Entry
# widget has the focus.  It prints out the text in the entry widget.

sub enter_callback
{
   my ( $widget, $entry ) = @_;

   my $entry_text = $entry->get_text();
   print( "Entry contents: $entry_text\n" );
}


# Callback to toggle the editable property of the entry widget.

sub entry_toggle_editable
{
   my ( $checkbutton, $entry ) = @_;

   $entry->set_editable( $checkbutton->active );
}


# Callback to toggle the visible property of the entry widget.

sub entry_toggle_visibility
{
   my ( $checkbutton, $entry ) = @_;

   $entry->set_visibility( $checkbutton->active );
}







Описание Gtk-Perl



Предыдущая




Следующая







Часть 53.       Область события
   

Иерархия наследования
      



Object

   +--- Widget


         +--- Container


               +--- Bin

                     +--- EventBox

         


   


Некоторые виджеты GTK не являются объектами X т.к. являются исключительно
дочерними. 
Они не могут получать события при изменении размера и т.п.
Если бы хотите большего от таких типов виджетов - то виджет области события
- то, что Вам необходимо.
   

На первый взгляд виджет области события практически бесполезен. Он ничего не
отрисовывает и не отвечает ни на какие
события. Однако он действительно обеспечивает панель X для дочернего
виджета. Это важно, т.к. много виджетов GTK
не имеют связанной X панели. Не имея X панели, виджет экономит память и
улучшает работу, но с другой стороны и 
имеет много недостатков. Виджет без X панели не может получать события и не
является перерисовывающимся в 
зависимости от действия пользователя с программой.
Хотя название EventBox подчеркивает обработку
события, виджет может также использоваться и для
отсечения:
   

   Для создания нового виджета области события используется функция:
      



         $event = new Gtk::EventBox();
      


   


Дочерний виджет может быть добавлен на этот виджет области события так:
      



         $event_box->add( $child_widget );
      

   
	  



53.1. Пример



Нижеследующий пример показывает использование виджета области события. На
панели можно кликнуть, вызвав выход 
и изменять её размеры.
   
      исходник
      
   






      
#!/usr/bin/perl -w

use 
Gtk
;
use 
strict
;

set_locale Gtk;
init Gtk;


my
 $false = 0;

my
 $true = 1;


my
 $window;

my
 $event_box;

my
 $label;


# Создаем панель
$window = new Gtk::Window( "toplevel" );
$window->set_title( "Виджет области события" );
$window->signal_connect( "destroy",

sub
 { Gtk->
exit
( 0 ); } );
$window->border_width( 10 );

# Создание виджета области события и добавление его на наш toplevel (??)
$event_box = new Gtk::EventBox();
$window->add( $event_box );
$event_box->show();

# Создание длинного лейбла
$label = new Gtk::Label( "Нажмите тут и закончите, закончите, закончите, закончите..." );
$event_box->add( $label );
$label->show();

# укоротить.
$label->set_usize( 110, 20 );

# Забиндить на нем событие
$event_box->set_events( 'button_press_mask');
$event_box->signal_connect( "button_press_event", 
sub
 {
Gtk->
exit
( 0 ); } );

# необходимая для X панели строка
$event_box->realize();

# 58 - некоторое число 'hand1', которое не работает в силу некоторых причин
$event_box->window->set_cursor( new Gtk::Gdk::Cursor( 58 ) );

$window->show();

main Gtk;

exit
( 0 );


# конец примера
      
   









скриншот










Предыдущий


На главную


Следующий



Текущая позиция

вверх

Позиционируемый виджет









Gtk-Perl Tutorial



Prev




Next







Chapter 41.       File Selection Dialogs
   

Inheritance Hierarchy
      



Object

   +--- Widget


         +--- Container


               +--- Bin

                     +--- Window


                           +--- FileSelectionDialog

         


   

      The file selection dialog is a quick and simple way to display a
      dialog box to prompt the user for a filename.  It comes complete
      with Ok, Cancel, and Help buttons, and it's a great way to cut
      down on programming time.
   
      To create a new file selection box use:

      



         $file_dialog = new Gtk::FileSelection( $title );
      


   

      To set the filename, for example to bring up a specific
      directory, or give a default filename, use this function:

      



         $file_dialog->set_filename( $filename );
      


   

      To grab the text that the user has entered or clicked on, use
      this function:

      



         $file_dialog->get_filename();
      


   

      You can match a pattern to a filename in the current directory
      using the following function:

      



         $file_dialog->complete( $pattern );
      


   

      If a match can be made, the matched filename will appear in the
      text entry field of the file selection dialog.  If a partial
      match can be made, the list of files will contain those
      filenames which have been partially matched.
   
      An example of a pattern would be
      *.txt or
      gtk*.
   
      The File Selection Dialog can show some file operation buttons.
      You can show these buttons using:

      



         $file_dialog->show_fileop_buttons();
      



      These buttons can be hidden using:

      



         $file_dialog->hide_fileop_buttons();
      


   

      You can also access the widgets contained within the file
      selection widget. These are:

      



dir_list

file_list

selection_entry

selection_text

main_vbox

ok_button

cancel_button

help_button


   

      Most likely you will want to use the ok_button, cancel_button, and
      help_button widgets in signaling their use.
   


41.1. File Selection Example


      Included here is an example stolen from testgtk.c, modified to run
      on its own.  As you will see, there is nothing much to creating a
      file selection widget. While in this example the Help button
      appears on the screen, it does nothing as there is not a signal
      attached to it.
   
               File Selection Dialog Source
      
   






      
#!/usr/bin/perl -w

use 
Gtk
;
use 
strict
;

set_locale Gtk;
init Gtk;


my
 $false = 0;

my
 $true = 1;


my
 $file_dialog;

# Create a new file selection widget
$file_dialog = new Gtk::FileSelection( "File Selection" );
$file_dialog->signal_connect( "destroy", 
sub
 { Gtk->
exit
( 0 ); } );

# Connect the ok_button to file_ok_sel function
$file_dialog->ok_button->signal_connect( "clicked",
					 \&file_ok_sel,
					 $file_dialog );

# Connect the cancel_button to destroy the widget
$file_dialog->cancel_button->signal_connect( "clicked",
					     
sub
 { Gtk->
exit
( 0 ); } );

# Lets set the filename, as if this were a save dialog, and we are giving
# a default filename
$file_dialog->set_filename( "penguin.png" );

$file_dialog->show();
main Gtk;

exit
( 0 );



# Get the selected filename and print it to the console

sub
 
file_ok_sel

{
   
my
 ( $widget, $file_selection ) = @_;
   
my
 $file = $file_selection->get_filename();

   
print
( "$file\n" );
}


# END EXAMPLE PROGRAM
      
   









File Dialog Example Screenshot










Prev


Home


Next



Color Selection Dialogs

Up

Font Selection Dialogs









Обзор Gtk-Perl



Предыдущая




Следующая







Часть 51.       Фиксированный объект   

Иерархия наследования

      
	  


Object

   +--- Widget


         +--- Container


               +--- Fixed

         


   


Фиксированный объект позволяет Вам помещать виджеты в пределах созданной
панели. 
Положение виджетов также может быть изменено динамически.
   

   Есть только три функции связанные с неподвижным виджетом:
      


	  

         $fixed = new Gtk::Fixed();
      



      



         $fixed->put( $widget, $x, $y );
      



      


	  

	  
         $fixed->move( $widget, $x, $y );
      

   


	        Функция
      new()
      позволяет вам создать новый фиксированный объект.
   
      
Функция 
put()
      помещает 
      $widget
в "неподвижное" положение, определяемое координатами 
      $x
      и
      $y.
   
      
Функция
move()
двигает виджет на новую позицию.
   


   51.1. Пример


Этот пример иллюстрирует использование объекта фиксированного положения.

   
      
исходник (wake up, Neo...)
   



   



   
      
#!/usr/bin/perl -w

use 
Gtk
;
use 
strict
;

set_locale Gtk;
init Gtk;


my
 $false = 0;

my
 $true = 1;


my
 $x = 50;

my
 $y = 50;


my
 $window;

my
 $fixed;

my
 $button;

# Создаем новую панель
$window = new Gtk::Window( "toplevel" );
$window->set_title( "Фиксированный объект");
$window->signal_connect( "destroy",

sub
 { Gtk->
exit
( 0 ); } );

# Ширина границы панели
$window->border_width( 10 );

# Создаем фиксированный объект
$fixed = new Gtk::Fixed();
$window->add( $fixed );
$fixed->show();


for
 
my
 $i ( 1..3 )
{
   # Создаем кнопку с надписью "Поехали!! "
   $button = new Gtk::Button( "Поехали!! " );

   # когда кнопка испустит сигнал нажато
   # будет вызвана функция move_button() возвращающая координаты новой кнопки
   # в соответствии с параметрами фиксированного объекта.
   $button->signal_connect( "clicked", \&move_button, $fixed );

   # добавляем кнопку в панель, где определен фиксированный объект.
   $fixed->put( $button, $i * 50, $i * 50 );

   # Показываем результат.
   $button->show();
}

# Показываем всю панель
$window->show();

main Gtk;

exit
( 0 );



### подпрограммы

# Вызов этой функции передвигает кнопку на новое место
# внутри фиксированного объекта.

sub
 
move_button

{
   
my
 ( $widget, $fixed ) = @_;

   $x = ( $x + 30 ) % 300;
   $y = ( $y + 50 ) % 300;
   $fixed->move( $widget, $x, $y );
}


# конец примера
      
   









Пример работы программы










Предыдущая


на главную


Следующая



Объединение по свойству

вверх

Текущая позиция









Gtk-Perl Tutorial



Prev




Next







Chapter 32.       Font Selection
   

Inheritance Hierarchy
      



Object

   +--- Widget


         +--- Container


               +--- Notebook


                     +--- FontSelection

         


   

      The FontSelection is a widget that allows the user to choose
      fonts and font styles.  Most programmers don't use the
      FontSelection directly, but instead use a
      
               FontSelectionDialog
      .
   
      The following function creates a FontSelection:

      



         $font_selection = new Gtk::FontSelection();
      


   

      To get the font from a FontSelection, call:

      



         $font_selection->get_font();
      


   

      If you only want the name of the currently selected font, you
      would call:

      



         $font_selection->get_font_name();
      


   

      To set the currently selected font, you would call:

      



         $font_selection->set_font_name( $font_name );
      



      Where
      $font_name
      is a string with the name of the font to load.  This function
      returns a true value if the font was found, and a false value if
      one wasn't.
   

      To limit the fonts shown, you can set a filter using:

      



font_dialog->set_filter( $filter_type,

                         $font_type,

                         $foundries,

                         $weights,

                         $slants,

                         $setwidths,

                         $spacings,

                         $charsets );



      Where the options are:
   







$filter_type


               The filter type may be either
               'base' or
               'user'.
               A base filter is permanent, but a user filter may be
               changed by the user.
            


$font_type


               The types of fonts to show.  This may be any
               combination of
               'bitmap',
               'scalable',
               'scalable_bitmap', or
               'all'.
            


$foundries


               A list of strings containing the foundry names which
               will be shown, nor an empty list to show all foundries.
            


$weights


               A list of strings containing the weight names which
               will be shown, or an empty list to show all weights.
            


$slants


               A list of strings containing the slant names which will
               be shown, or an empty list to show all slants.
            


$setwidths


               A list of strings containing the setwidth names which
               will be shown, or an empty list to show all setwidths.
            


$spacings


               A list of strings containing the spacing names which
               will be shown, or an empty list to show all spacings.
            


$charsets


               A list of strings containing the charset names which
               will be shown, or an empty list to show all charsets.
            




      FontSelection's have an area where the text can be previewed.
      The text in this area can be get and set using:

      



         $font_selection->get_preview_text();
      



      



         $font_selection->set_preview_text( $text );
      


   







Prev


Home


Next



Color Selection

Up

The Calendar Widget









Описание Gtk-Perl



Предыдущая




Следующая







Часть 42.      Диалог выбора шрифта
   

Иерархия наследования
      



Object

   +--- Widget


         +--- Container


               +--- Bin

                     +--- Window


                           +--- FontSelectionDialog

         


   


Диалог выбора шрифта позволяет пользователям выбирать шрифты и стили,
используя внутренний

               FontSelection
      
      
      виджет.
   

Вот функции управления диалогом:

      



         $font_dialog = new Gtk::FontSelectionDialog( $title );
      


   


Для получения выбранного в диалоге шрифта вызовем:
      




         $font_dialog->get_font();
      


   


Что бы получить название текущего выбранного шрифта, выполните:
      




         $font_dialog->get_font_name();
      

   


Установить шрифт в качестве текущего в этом диалоге можно с помощью вызова:
      



         font_dialog->set_font_name( $font_name );
      


   







Предыдущая


На главную


Следующая




Выбор файла


Up

Статус бар









Описание Gtk-Perl



Предыдущая




Следующая







Часть 49.       Фреймы
   

Иерархия наследования
      



Object

   +--- Widget


         +--- Container


               +--- Bin

                     +--- Frame

         


   


Фреймы используют для группировки и выделения нескольких виджетов в одном
визуальном контейнере.
Можно добавить фрейму подпись, что делает логику группировки элементов более
очевидной и
облегчает восприятие информации пользователем. Местоположение подписи фрейма
и вид бордюра
можно изменять.
   

Создаем фрейм:
      



         $frame = new Gtk::Frame( $label );
      



Подпись к нему по умолчанию будет распложена в левом верхнем углу. Если
      $label
равен null, то подписи у фрейма не будет. Изменит текст подписи позволяет
метод:
      



         $frame->set_label( $label );
      


   

А местонахождение подписи меняется методом:

      



         $frame->set_label_align( $xalign, $yalign );
      



      где
      $xalign
      и
      $yalign
      принимает значения между
      0.0
      и
      1.0.
      $xalign
      означает позиции подписи относительно верхней горизонтальной линии
фрейма.
      $yalign
      пока не поддерживается. По умолчанию
      $xalign
      равно 
      0.0
      что, как было замечено, помещает подпись в левый верхний угол.
   

      Следующая функция измения стиля рамки фрейма:

      



         $frame->set_shadow_type( $type );
      



      где 
      $type
      может принимать одно из следующих значений:
      



'none'

'in'

'out'

'etched_in' (по умолчанию)

'etched_out'


   



49.1. Пример использования фрема.

Проилюстрируем использование фреймов.
   
               Исходник
      
   






      
#!/usr/bin/perl -w

use 
Gtk
;
use 
strict
;

set_locale Gtk;
init Gtk;


my
 $false = 0;

my
 $true = 1;


my
 $i;


my
 $window;

my
 $frame;

my
 $button;


# Создаем окно
$window = new Gtk::Window( "toplevel" );
$window->set_title( "Frame Example" );
$window->signal_connect( "destroy",

sub
 { Gtk->
exit
( 0 ); } );
$window->set_usize( 300, 300 );
$window->border_width( 10 );

# Создаем фрейм
$frame = new Gtk::Frame();
$window->add( $frame );

# Устанавливаем подпись фрейму
$frame->set_label( "Gtk Frame Widget" );

# Помещаем подпись в правый верхний угол фрейма
$frame->set_label_align( 1.0, 0.0 );

# Меняем стиль рамки
$frame->set_shadow_type( 'etched_out' );

$frame->show();
$window->show();

main Gtk;

exit
( 0 );



# КОНЕЦ ПРИМЕРА
      
   









Frame Example Screenshot










Prev


Home


Next



Paned Window Widgets

Up

Aspect Frames









Описание Gtk-Perl



Предыдущая




Следующая









VI.          Базовые возможности
      




Эти части документа описывают возможности Gtk которые можно применить ко
всем виджетам Gtk в целом. Они включают в себя 
таймеры, контроль ввода/вывода, цветовые гаммы, стили виджетов, файлы
ресурсов и перетаскивания мышкой.
      




Содержание

56. Таймеры, контроль ввода/вывода и функции ожидания










Предыдущая


На главную


Следующая



Уровни прокрутки
 
Таймеры, контроль ввода/вывода и функции ожидания









Обзор Gtk-Perl



Prev




Next








Часть 2.       Прощай, мир!   



Программирование на Gtk/Perl

(все, что посвящено разработке или переодам по поводу Gtk, может быть
подверженно исправленям, т.к. могут быть выявлены некоторые новые ошибки)

Начиная введение в Gtk-perl, приведем пример простейшей программы. Эта
программа создает маленькое окошко с одной кнопкой, на которой написано
"Прощай, Мир!". Нажимая на кнопку или закрывая окно, мы закончим действие
программы.


      
#!/usr/bin/perl -w

use Gtk;         # загрузить Gtk-perl модуль
use strict;      # хорошая идея для всех нетривиальных perl-скриптов

set_locale Gtk;  # локализация
init Gtk;        # инициализация Gtk-Perl

# для удобства объявим переменные true и false
my $false = 0;
my $true = 1;

# создаем виджет
my $window = new Gtk::Window( "toplevel" );
my $button = new Gtk::Button( "Прощай, Мир!" );

# регистрация отзыва
$window->signal_connect( "delete_event", \&CloseAppWindow );   
$button->signal_connect( "clicked", \&CloseAppWindow );

# показать кнопку
$button->show();

# установить атрибуты окна и показать его
$window->border_width( 15 );
$window->add( $button );
$window->show();

# вызываем Gtk
main Gtk;

# конец программы
exit(0);

### Вызвать подпрограмму, закрывающую окно
sub CloseAppWindow{
   Gtk->exit(0);
   return $false
}







Разберем работу программы. 

use Gtk; необходимо во всех Gtk-Perl программах. Данная строчка позволяет Перлу использовать 
переменные, функции, структуры, и т.д., которые определены в GTK. 

init Gtk; также необходимо включать во все Ctk-Perl программы. Эта строка
инициализирует модуль Gtk и определяет некоторые вещи вроде
цветовой палитры или вида графического вывода.

set_locale Gtk; локализация, необходимая для корректного написания языков, с
отличной от латиницы символикой.

new Ctk::Window() создает новое окно.  Window Manager определяет как и где
быдет выводиться создаваемое окно. Все GUI виджеты располагаются внутри
нового окна, также вы можете создавать больше окон в своей программе. Вы
также можете создавать диалоговые окна, используя new Gtk::Dialog();

new Gtk::Button(); создает новое окно. В нашем примере мы создаем одну
кнопку с тектовым полем. Что произойдет если не поставить текст внутри
кнопки? Gtk автоматически подстраивает размер окна в зависимости от длинны
набранного на кнопке текста.

Функция border_width() берет container(например window) и устанавливает
размер свободного места вокруг кнопки. Параметр, передаваемый функции(в
пикселах), является шириной отступа.

signal_connect() связывает обработку события или сигнала с вызовом 
подпрограммы, например по нажатию на кнопке мышью. 
Сигнал вызывает подпрограмму, которая завершает работу программы. В нашем
примере первый аргумент, передаваемый функции signal_connect() является
строкой с именем события, которое вы хотите сгенерировать по нажатию кнопки
и второй аргумет является ссылкой на подпрограмму, обрабатывающую это
событие. Различные сигналы могут требовать различных аргументов,
передаваемых функции signal_connect().

Функция add() создает виджет и добавлет его в контейнет(в нашем примере на
окно). Если вы не добавите эту функцию, то не увидите кнопку, потому, что её
не будет внутри созданного Gtk окна.

Функция show() делает виджет видимым. Не выполняйте show() до того, как
определите все свойства виджета. Если создается несколько дочерних виджетов, то 
их необходимо создавать до родительского виджета(т.е. показать кнопку до
показа содержащего её окна). 

main Gtk; запускает основной обработчик событий Gtk. Эта строчка должна
всегда находится в каждой Cgk-Perl программе. Когда компилятор
достигнет этой строки, Gtk приостановит события для X-сервера(такие как
нажатие клавиши или мышиной кнопки), таймауты или file IO до
получения соответствующего сигнала. 

Последняя подпрограмма вызывается, когда происходит нажате кнопки или
закрыте окна.






  Предыдущая


  Начало


  Следующая



О Gtk-Perl
  

Вверх

  
Обзор виджетов









Описание Gtk-Perl



Предыдущий




Следующий









VII.          Графика
      



Эти части описывают основные концепции графического программирования при
помощи GTK-Perl
В рассмотрение включены битовые картинка, изображения, контурные
изображения, цвета и текст.





Содержание

57. Битовые картинки










Предыдущая


на главную


Следующая



Таймеры, ввод/вывод и функции ожидания(idle)
 
Битовая графика









Gtk-Perl Tutorial



Prev




Next







Chapter 45.       HandleBox
   

Inheritance Hierarchy
      



Object

   +--- Widget


         +--- Container


               +--- Bin

                     +--- HandleBox

         


   

      The HandleBox is a container widget that allows its children to
      detach from a window.  This is usually used for detachable
      toolbars, as shown in the
      
               Toolbar example
      .
   
      You can create a HandleBox with the following function:

      



         $handlebox = new Gtk::HandleBox();
      


   

      You can set the HandleBox's shadow type using:

      



         $handlebox->set_shadow_type( $shadow_type );
      



      Where
      $shadow_type
      is either
      'none',
      'in',
      'out',
      'etched_in', or
      'etched_out'.
   

      You can set which side of the HandleBox the handle is drawn
      using:

      



         $handlebox->set_handle_position( $handle_position );
      



      Where
      $handle_position
      is either
      'left',
      'right',
      'top', or
      'bottom'.
   

      You can also set the snap edge of a HandleBox.  The snap edge is
      the edge of the detached child that must be aligned with the
      corresponding edge of the "ghost" left behind when the child was
      detached to reattach the torn-off window.  The snap edge is set
      using:

      



         $handlebox->set_snap_edge( $snap_edge );
      



      The values for
      $snap_edge
      are the same as for
      $handle_position
      above.  Usually, the snap edge should be chosen so that it stays
      in the same place on the screen when the handlebox is torn off.
      If the snap edge is not set, then an appropriate value will be
      guessed from the handle position.  If the handle position is
      'right' or
      'left',
      then the snap edge will be
      'top',
      otherwise it will be
      'left'.
   







Prev


Home


Next



Scrolled Windows

Up

Toolbar








  

Обзор Gtk Perl
  
  

    

      Предыдущая
    
     


     

Следующая

  








I.          Введение





Цель этого описания - дать обзор Gtk-Perl в целом.
После его прочтения Вы получите представление о том, что такое Gtk, Gtk-Perl,
виджеты, контейнеры, как виджеты используют сигналы и события.






Содержание


1. О Gtk-Perl


2. "Прощай, мир!"


3. Обзор виджетов


4. Обзор контейнеров


5. Сигналы и события










Предыдущая


Главная


Следующая



Обзор Gtk-Perl
 
О Gtk-Perl









Gtk-Perl Tutorial



Prev




Next







Chapter 26.       Использование ItemFactories
   

Иерархия наследования

      



Object

   +--- ItemFactory

         


   


      А теперь пример. Объяснения и комментарии следуют.
   


26.1. Пример Factory Example

      
         исходный код Item Factory
      
   






      
#!/usr/bin/perl -w

use 
Gtk
;
use 
strict
;

set_locale Gtk;
init Gtk;


my
 $false = 0;

my
 $true = 1;

# Эта the GtkItemFactoryEntry структура используется для генерации новых меню..
# Запись может включать в себя следующие пункты.
# Item 1: path - Местонахождение пункта в меню. Буква после подчеркивания указывает на
#         на клавишу быстрого вызова, этого пункта после открытия меню.
# Item 2: The accelerator key for the entry
# Item 3: The callback function.
# Item 4: The callback action.  This changes the parameters with
#         which the function is called.  The default is 0.
# Item 5: The item type, used to define what kind of an item it is.
#         Here are the possible values:
#          NULL               -> "&lt;Item>"
#          ""                 -> "&lt;Item>"
#          "&lt;Title>"          -> create a title item
#          "&lt;Item>"           -> create a simple item
#          "&lt;CheckItem>"      -> create a check item
#          "&lt;ToggleItem>"     -> create a toggle item
#          "&lt;RadioItem>"      -> create a radio item
#          &lt;path>             -> path of a radio item to link against
#          "&lt;Separator>"      -> create a separator
#          "&lt;Branch>"         -> create an item to hold sub items (optional)
#          "&lt;LastBranch>"     -> create a right justified branch 


my
 @menu_items = ( { path        => '/_File',
		     type        => '<Branch>' },
		   { path        => '/File/_New',
		     accelerator => '<control>N',
		     callback    => \&print_hello },
		   { path        => '/File/_Open',
		     accelerator => '<control>O',
		     callback    => \&print_hello },
		   { path        => '/File/_Save',
		     accelerator => '<control>S',
		     callback    => \&print_hello },
		   { path        => '/File/Save _As' },
		   { path        => '/File/sep1',
		     type        => '<Separator>' },
		   { path        => '/File/Quit',
		     callback    => 
sub
 { Gtk->
exit
( 0 ); } },

		   { path        => '/_Options',
		     type        => '<Branch>' },
		   { path        => '/Options/Test' },

		   { path        => '/_Help',
		     type        => '<LastBranch>' },
		   { path        => '/_Help/About' } );


my
 $window;

my
 $main_vbox;

my
 $menubar;


# Create the window
$window = new Gtk::Window( 'toplevel' );
$window->signal_connect( 'destroy', 
sub
 { Gtk->
exit
( 0 ); } );
$window->set_title( "Item Factory" );
$window->set_usize( 300, 200 );

$main_vbox = new Gtk::VBox( $false, 1 );
$main_vbox->border_width( 1 );
$window->add( $main_vbox );
$main_vbox->show();

# Create the menu bar
$menubar = create_menu_bar( $window );
$main_vbox->pack_start( $menubar, $false, $true, 0 );
$menubar->show();

$window->show();
main Gtk;

exit
( 0 );




### Subroutines

# Obligatory basic callback


sub
 
print_hello

{
   
print
( "Hello World!\n" );
}


# Crete the menu bar, initialize its menus, and return the menu bar.


sub
 
create_menu_bar

{
   
my
 ( $window ) = @_;

   
my
 $menubar;
   
my
 $item_factory;
   
my
 $accel_group;

   $accel_group = new Gtk::AccelGroup();

   # This function initializes the item factory.
   # Param 1: The type of menu - can be 'Gtk::MenuBar', 'Gtk::Menu',
   #          or 'Gtk::OptionMenu'.
   # Param 2: The path of the menu.
   # Param 3: The accelerator group.  The item factory sets up
   #          the accelerator table while generating menus.
   $item_factory = new Gtk::ItemFactory( 'Gtk::MenuBar',
					 '<main>',
					 $accel_group );

   # This function generates the menu items. Pass the item factory,
   # the number of items in the array, the array itself, and any
   # callback data for the the menu items.
   $item_factory->create_items( @menu_items );

   # Attach the new accelerator group to the window.
   $window->add_accel_group( $accel_group );

   # Finally, return the actual menu bar created by the item factory.
   #*menubar = gtk_item_factory_get_widget (item_factory, "&lt;main>");
   
return
 ( $item_factory->get_widget( '<main>' ) );
}


# END EXAMPLE PROGRAM
      
   









Item Factory Example Screenshot










Prev


Home


Next



Menus

Up

Option Menu







Иерархия наследования


Object
   +--- Widget
         +--- Misc
               +--- Label 



Лейблы довольно часто используются в Gtk и относительно просты в применении.
Лейблы не генерируют сигналов, так как они не имеют собственного окна
XWindow. Если необходимо поймать сигнал, или зафиксировать его, поставьте
его в EventBox или Button widget.

Для создания нового лейбла, нужно написать


$label = new Gtk::Label( $string );



Единственный аргумент, передаваемый функции - строчка, которую программист
хочет видеть в заголовке лейбла. Для изменения этой строчки после создания
лейбла, необходимо использовать функцию:


$label->set_text( $string );



Место, необходимое для новой строчки, будет выделено автоматически если это
необходимо. Можно делать многострочные лейблы, выставляя переводы кареток в
лейбл-стринге.

Для восстановления текущего состояния стринга, используется функция get():


$sting = $label->get();



Лейбл-текст может быть выровнен при помощи функции set_justify():


$label->set_justify( $jtype );



Значения, которые может принимать переменная $jtype:


'left'
'right'
'center' (default)
'fill'



Лейбл-виджет так-же может автоматически выравнивать содержащийся в нем
текст. Эта опция активируется функцией set_line_wrap():


$label->set_line_wrap( $wrap );



Переменная $wrap имеет значения истина или ложь.
Если хочется текст в лейбле сделать подчеркнутым, то нужно выставить образец
подчеркивания:


$label-> set_pattern ($pattern);



Аргемент показывает, как подчеркивать текст, допустим если подчеркивание
определяется как "_ _ _ _ _" то подчеркнутыми будут певрая, третья, пятая,
седьмая и девятая буквы. 

Ниже приведен пример, который  иллюстрирует эти функции. Пример использует
виджет-фрейм, чтобы показать лейбл-стили. Фрейм-виджет будет рассмотрен
позднее.



      
#!/usr/bin/perl -w

use Gtk;
use strict;

set_locale Gtk;
init Gtk;

my $false = 0;
my $true = 1;

my $window;
my $hbox;
my $vbox;
my $frame;
my $label;


# Create the window
$window = new Gtk::Window( "toplevel" );
$window->signal_connect( "destroy", sub { Gtk->exit( 0 ); } );
$window->set_title( "Label" );

$vbox = new Gtk::VBox( $false, 5 );
$hbox = new Gtk::HBox( $false, 5 );

$window->add( $hbox );
$hbox->pack_start( $vbox, $false, $false, 0 );
$window->border_width( 5 );

# Create labels and add them
$label = new Gtk::Label( "This is a Normal Label" );
$frame = new Gtk::Frame( "Normal Label" );
$frame->add( $label );
$vbox->pack_start( $frame, $false, $false, 0 );

$label = new Gtk::Label( "This is a Multi-line label.\nSecond line\n"
			 . "Third Line" );
$frame = new Gtk::Frame( "Multi-line Label" );
$frame->add( $label );
$vbox->pack_start( $frame, $false, $false, 0 );

$label = new Gtk::Label( "This is a Left-Justified\n"
			 . "Multi-line label.\nThird      line");
$label->set_justify( 'left' );
$frame = new Gtk::Frame( "Left Justified Label" );
$frame->add( $label );
$vbox->pack_start( $frame, $false, $false, 0 );

$label = new Gtk::Label( "This is a Right-Justified\nMulti-line label.\n"
			 . "Fourth line, (j/k)" );
$label->set_justify( 'right' );
$frame = new Gtk::Frame( "Right Justified Label" );
$frame->add( $label );
$vbox->pack_start( $frame, $false, $false, 0 );

$vbox = new Gtk::VBox( $false, 5 );
$hbox->pack_start( $vbox, $false, $false, 0 );
$frame = new Gtk::Frame( "Line wrapped label" );
$label = new Gtk::Label( "This is an example of a line-wrapped label.  It "
			 . "should not be taking up the entire             "
			 . "width allocated to it, but automatically "
			 . "wraps the words to fit.  "
			 . "The time has come, for all good men, to come to "
			 . "the aid of their party.  "
			 . "The sixth sheik's six sheep's sick.\n"
			 . "     It supports multiple paragraphs correctly, "
			 . "and  correctly   adds "
			 . "many          extra  spaces. " );
$label->set_line_wrap( $true );
$frame->add( $label );
$vbox->pack_start( $frame, $false, $false, 0 );

$frame = new Gtk::Frame( "Filled, wrapped label" );
$label = new Gtk::Label( "This is an example of a line-wrapped, filled
label. "
			 . "It should be taking "
			 . "up the entire             width allocated to it. "
			 . "Here is a sentence to prove "
			 . "my point.  Here is another sentence. "
			 . "Here comes the sun, do de do de do.\n"
			 . "    This is a new paragraph.\n"
			 . "    This is another newer, longer, better "
			 . "paragraph.  It is coming to an end, "
			 . "unfortunately." );
$label->set_justify( 'fill' );
$label->set_line_wrap( $true );
$frame->add( $label );
$vbox->pack_start( $frame, $false, $false, 0 );

$frame = new Gtk::Frame( "Underlined label" );
$label = new Gtk::Label( "This label is underlined!\n"
			 . "This one is underlined in quite a funky
fashion");
$label->set_justify( 'left' );
$label->set_pattern( "_________________________ _ _________ "
		     . "_ ______     __ _______ ___");
$frame->add( $label );
$vbox->pack_start( $frame, $false, $false, 0 );

$window->show_all();

main Gtk;
exit( 0 );





 Вставить скриншот







Описание Gtk-Perl



Предыдущая




Следующая







Часть 55.       Уровень прокрутки
   

Иерархия наследования

         
		 


Object

   +--- Widget


         +--- Container


               +--- Layout

         


   


Объект расположения подбен фиксированному объекту расположеня, за
исключением того, что 
может делать бесконечную область прокрутки (где бесконечность меньше
232). 
Система панелей X имеет ограничение на размер ширины или высоты панели в
32767 пикселей.
Объект расположения обходит это ограничение при помощи необычной панели и
т.н. bit gravitie так, что 
вы можете видеть "гладкий" скролл, даже в случае мнгоих дочерних виджетов в
области прокрутки.
   
Объект расположения создается при помощи функции:
      



         $layout = new Gtk::Layout( $hadjustment, $vadjustment );
      


   


Как вы можете видеть, возможно произвольно определять выравнивание
(Adjustment) объектов, которые будет скроллится.
   
 Можно также добавлять и двигать виждеты для скроллинга при помощи
следующих двух функций:

      



         $layout->put( $widget, $x, $y );
      



      



         $layout->move( $widget, $x, $y );
      


   


Размер скроллинга может быть выставлен при помощи следующей функции
      



         $layout->set_size( $width, $height );
      


   


Виджет уровня прокрутки  - один из очень немногих виджетов в наборе GTK,
который активно перерисовывает мебя на экране.
   

Если Вы хотите сделать очень большое изменениие на виджете уровня прокрутки
- вам 
необходимо использовать две нижепреведенные функции, которые отключают и
после включают перерисовку.
      



         $layout->freeze();
      



      



         $layout->thaw();
      


   


Последние четыре функции предназначены для управления коризонтальными и
вертикальным виджетами выравнивания:

      



$layout->get_hadjustment();

$layout->get_vadjustment();



$layout->set_hadjustment( $adjustment );

$layout->set_vadjustment( $adjustment );


   







Предыдущая


на главную


Следующая



Позиционируемый виджет

Вверх

Базовые возможности









Gtk-Perl Tutorial



Prev




Next







Chapter 35.       List Widget
   




Table of Contents

35.1. List Widget

35.2. List Item Widget

35.3. List Example



Inheritance Hierarchy
      



Object

   +--- Widget


         +--- Container


               +--- List

         


   



35.1. List Widget

      The List widget is designed to act as a vertical container for
      widgets that should be of the type ListItem.  A List widget has
      its own window to receive events and its own background color
      which is usually white.
   
      In order to keep from confusing you, a List (capitalized) refers
      to a Gtk::List widget, while a list (lowercase) refers to a Perl
      list (which may also be referred to, somewhat inaccurately, as
      arrays).
   
      There is two fields inside the structure definition of the List
      widget that will be of great interest to us, they are
      
selection
 and
      
selection_mode
.
   
      The
      
selection

      field of a List is a list of all items that are currently
      selected, or the empty list if the selection is empty.  So to
      learn about the current selection we read the
      
selection

      field, but do not modify it since the internal fields are
      maintained by the List functions.
   
      The
      
selection_mode

      of the List determines the selection facilities of a List and
      therefore the contents of the selection field. The
      selection_mode may be one of the following:

      




            'single'
            - The selection is either empty or its list contains a
            single selected item.
         


            'browse'
            - The selection is empty if the list contains no widgets
            or insensitive ones only, otherwise it contains a list
            with one list item.
         


            'multiple'
            - The selection is empty if no list items are selected or
            list of all the selected items.
         


            'extended'
            - Any number of elements may be selected. Click-drag
            selects a range of elements.  The Ctrl key may be used to
            enlarge the selection, and Shift key to select between the
            focus and the child pointed to.
         


   

      The default is
      'multiple'.
   
      The
      'selection changed'
      signal will be invoked whenever the
      
selection

      field of a List has changed. This happens when a child of the
      List got selected or deselected.
   
      The
      'select_child'
      signal is invoked when a child of the List is about to get
      selected. This happens mainly on calls to
      select_item(),
      select_child(),
      button presses and sometimes indirectly triggered on some else
      occasions where children get added to or removed from the List.
   
      The
      'unselect_child'
      signal is invoked when a child of the List is about to get
      deselected. This happens mainly on calls to
      unselect_item(),
      unselect_child(),
      button presses and sometimes indirectly triggered on occassions
      where children get added to or removed from the List.
   
      To create a new List, use:

      



         $list = new Gtk::List();
      


   

      Items may be added to the List using:

      



         $list->insert_items( @items, $position );
      



      where
      @items
      is the list of items to add, and
      $position
      is the starting position of the items.
   

      You can also append and prepend items to the List using:

      



         $list->append_items( @items );
      



      



         $list->prepend_items( @items );
      


   

      To remove items from the list, use:

      



         $list->remove_items( @items );
      



      Where
      @items
      is a list of the items you want removed.
   

      You can also remove a range of items using:

      



         $list->clear_items( $start, $end );
      


   

      Items can be selected using:

      



         $list->select_item( $index );
      



      



         $list->select_child( $child );
      



      which will also invoke either the
      'select_item'
      or the
      'select_child'
      signal on the list item.
   

      Unselecting works in a similar way:

      



         $list->unselect_item( $index );
      



      



         $list->unselect_child( $child );
      


   

      If you want the index for a List child, use:

      



         $index = $list->child_position( $child );
      



      If a failure occurs, a value of
      -1
      is returned.
   

      The selection mode can be set using:

      



         $list->set_selection_mode( $mode );
      



      Where
      $mode
      can be
      'single',
      'browse',
      'multiple', or
      'extended'.
   




35.2. List Item Widget

Inheritance Hierarchy
      



Object

   +--- Widget


         +--- Container


               +--- Bin

                     +--- Item

                           +--- ListItem

         


   

      The ListItem widget is designed to act as a container holding up
      to one child, providing functions for selection/deselection just
      like the List widget requires them for its children.
   
      A ListItem has its own window to receive events and has its own
      background color which is usually white.
   
      As it is directly derived from an Item it can be treated as such.
      See the Item widget for more on this. Usually a ListItem just
      holds a label to identify, e.g., a filename within a List --
      therefore the convenience function
      new_with_label()
      is provided. The same effect can be achieved by creating a Label
      on its own, setting its alignment to xalign=0 and yalign=0.5 with
      a subsequent container addition to the ListItem.
   
      As one is not forced to add a GtkLabel to a GtkListItem, you
      could also add another widget (such as GtkVBox, GtkArrow, etc.)
      to the GtkListItem.
   
      To create a ListItem, call one of the following functions:

      



         $item = new Gtk::ListItem();
      



      



         $item = new Gtk::ListItem( $label );
      



      If you send a string as an argument, it creates the ListItem
      with a Label as the sole child of the ListItem.
   

      To select a ListItem:

      



         $item->select();
      



      which will also emit the
      'select'
      signal on the ListItem.
   

      Deselecting works in a similar fashion:

      



         $item->deselect();
      


   




35.3. List Example


      Following is an example program that will print out the changes of
      the selection of a List, and lets you "arrest" list items into a
      prison by selecting them with the rightmost mouse button.
   
               List Example Source
      
   






      
#!/usr/bin/perl -w

use 
Gtk
;
use 
strict
;

set_locale Gtk;
init Gtk;


my
 $false = 0;

my
 $true = 1;


my
 $separator;

my
 $window;

my
 $vbox;

my
 $scrolled_window;

my
 $frame;

my
 $gtklist;

my
 $button;

my
 $list_item;


my
 $buffer;


# Create the window
$window = new Gtk::Window( 'toplevel' );
$window->set_title( "List Example" );
$window->signal_connect( 'destroy', 
sub
 { Gtk->
exit
( 0 ); } );

# Inside the window we need a box to arrange the widgets vertically
$vbox = new Gtk::VBox( $false, 5 );
$vbox->set_border_width( 5 );
$window->add( $vbox );
$vbox->show();

# This is the scrolled window to put the List widget inside
$scrolled_window = new Gtk::ScrolledWindow( undef, undef );
$scrolled_window->set_usize( 250, 150 );
$vbox->add( $scrolled_window );
$scrolled_window->show();

# Create the List widget.  Connect the sigh_print_selection() signal handler
# function to the "selection_changed" signal of the List to print out the
# selected items each time the selection has changed.
$gtklist = new Gtk::List();
$scrolled_window->add_with_viewport( $gtklist );
$gtklist->show();
$gtklist->signal_connect( 'selection_changed', \&sigh_print_selection );

# We create a "Prison" to put a list item in ;)
$frame = new Gtk::Frame( "Prison" );
$frame->set_usize( 200, 50 );
$frame->set_border_width( 5 );
$frame->set_shadow_type( 'out' );
$vbox->add( $frame );
$frame->show();

# Connect the sigh_button_event() signal handler to the List, which will
# handle the "arresting" of list items.
$gtklist->signal_connect( 'button_release_event',
			  \&sigh_button_event,
			  $frame );

# Create a separator
$separator = new Gtk::HSeparator();
$vbox->add( $separator );
$separator->show();

# Finally create a button and connect its "clicked" signal to the
# destruction of the window
$button = new Gtk::Button( "Close" );
$vbox->add( $button );
$button->show();
$button->signal_connect( 'clicked', 
sub
 { $window->destroy(); } );

# Now we create 5 list items, each having its own label and add them to
# the List using add().

for
 
my
 $i ( 0..4 )
{
   
my
 $label;
   
my
 $string;

   $buffer = "ListItemContainer with Label #" . $i;
   $label = new Gtk::Label( $buffer );

   $list_item = new Gtk::ListItem();
   $list_item->add( $label );
   $label->show();
   $gtklist->add( $list_item );
   $list_item->show();
   $string = $label->get();
}

# Here, we are creating another 5 labels, this time sending the label to
# the new() function.

for
 
my
 $i ( 5..9 )
{
   $buffer = "List Item with Label $i";
   $list_item = new Gtk::ListItem( $buffer );
   $gtklist->add( $list_item );
   $list_item->show();
}

# Finally we want to see the window, don't we? ;)
$window->show();

# Fire up the main event loop of gtk
main Gtk;

exit
( 0 );




### Subroutines


# This is the signal handler that got connected to button press/release
# events of the List


sub
 
sigh_button_event

{
   
my
 ( $gtklist, $frame, $event ) = @_;

   # We only do something if the third (rightmost mouse button)
   # was released
   
if
 ( ( defined( $event->{ 'type' } ) ) and
	( defined( $event->{ 'button' } ) ) and
	( $event->{ 'type' } eq 'button_release' ) and
	( $event->{ 'button' } == 3 ) )
   {
      
my
 @dlist = $gtklist->selection;
      
my
 $new_prisoner = $dlist[0];
      
my
 $list_item;

      # Look for already imprisoned list items, we will put them back
      # into the list.
      
foreach
 $list_item ( $frame->children() )
      {
	 $list_item->reparent( $gtklist );
      }

      # If we have a new prisoner, remove him from the List and put him
      # into the frame "Prison".  We need to unselect the item first.
      
if
 ( $new_prisoner )
      {
	 $gtklist->unselect_child( $new_prisoner );
	 $new_prisoner->reparent( $frame );
      }
   }

   
return
 $true;
}


# This is the signal handler that gets called if List emits the
# "selection_changed" signal

sub
 
sigh_print_selection

{
   
my
 ( $gtklist ) = @_;

   # Fetch the currently selected list item which will be our next
   # prisoner
   
my
 @dlist = $gtklist->selection;

   # If there are no selected items there is nothing more to do than
   # just telling the user so

   
unless
 ( @dlist )
   {
      
print
 "Selection cleared\n";
   }
}


# END EXAMPLE PROGRAM
      
   









List Example Screenshot










Prev


Home


Next



Lists And Trees

Up

CList Widget









Gtk-Perl Tutorial



Prev




Next









IV.          Lists And Trees
      



         These chapters are designed to document widgets used for list and tree
         data.  After completing these chapters you should know how to create
         lists and trees and manipulate their data.
      




Table of Contents

35. List Widget

36. CList Widget

37. Tree Widget

38. CTree Widget










Prev


Home


Next



Arrow Widgets
 
List Widget









Gtk-Perl Tutorial



Prev




Next







Chapter 25.       Menus
   




Table of Contents

25.1. The MenuShell

25.2. MenuBar Widget

25.3. Menu Widget

25.4. MenuItem Widget

25.5. Creating Menus

25.6. Manual Menu Example



      What users think of as menus are really three parts.  First, there
      is the MenuBar at the top of the window.  Second, inside the
      MenuBar are several Menus.  And third, each Menu usually consists
      of one or more MenuItems.
   


25.1. The MenuShell

Inheritance Hierarchy
      



Object

   +--- Widget


         +--- Container


               +--- MenuShell

         


   

      Both the MenuBar widget and the Menu widget are subclasses of
      MenuShell.
   
      Each MenuShell has the ability to append, prepend, or insert
      child widgets:

      



$menushell->append( $child );

$menushell->prepend( $child );

$menushell->insert( $child, $position );


   

      The MenuShell can be erased from the screen by:

      



         $menushell->deactivate()
      


   

      A child in the MenuShell can be selected using:

      



         $menushell->select_item( $child );
      


   

      A child in the MenuShell can be activated using:

      



        $menushell->activate_item( $child );
      


   




25.2. MenuBar Widget

Inheritance Hierarchy
      



Object

   +--- Widget


         +--- Container


               +--- MenuShell


                     +--- MenuBar

         


   

      A MenuBar can be created using:

      



         $menubar = new Gtk::MenuBar();
      


   

      Menu bars are usually placed at the top of the window.
      Normally, you would create a VBox and add it to the window.  You
      should add the menu bar to the top of that VBox.
   
      The only other function for menu bars (that doesn't come from
      MenuShell, that is) sets the shadow type:

      



         $menubar->set_shadow_type( $shadow_type );
      



      Where
      $shadow_type
      is either
      'none',
      'in',
      'out',
      'etched_in', or
      'etched_out'.
   




25.3. Menu Widget

Inheritance Hierarchy
      



Object

   +--- Widget


         +--- Container


               +--- MenuShell


                     +--- Menu

         


   

      Menus are created using:

      



         $menu = new Gtk::Menu();
      


   

      If you want to move a child from one position to another, you
      can do so using:

      



         $menu->reorder_child( $child, $position );
      



      Where
      $child
      is the child to move, and
      $position
      is the new position for the child.
   

      Menus can have a title associated with them.  This title is set
      using:

      



         $menu->set_title( $title );
      


   

      The tearoff state of the menu can be set using:

      



         $menu->set_tearoff_state( $tear_off );
      



      Where
      $tear_off

      is a true or false value that determines whether the menu can
      tear off.  A menu is normally displayed as a drop down menu that
      persists as long as the menu is active, but a tearoff menu is
      enclosed in a window which persists until the window is closed.
   

      Finally, if you want the menu to act as a popup menu, you would
      call:

      



$menu->popup( $parent_menu_shell,

              $parent_menu_item,

              $activate_time,

              $button,

              \&menu_position_function,

              @optional_data );



      Where
      $parent_menu_shell and
      $parent_menu_item
      will be undefined if the menu is not associated with a menu bar.
      For
      $activate_time
      you can usually get away with
      $event->{ 'time' }
      but if you desire that the menu go away after releasing the
      mouse button, you should put in a
      0.
      The
      $button
      argument will usually come from
      $event->{ 'button' }.
      And finally,
      \&menu_position_function
      is a reference to a user supplied function used to position the
      menu.  Most people will just use
      undef,
      which defaults the menu's top-left position to the location of
      the mouse click.
      @optional_data,
      if included, is sent as the argument to
      \&menu_position_function.
   

      Expect this function to change soon.  It is really supposed to
      have the
      $button
      and
      $activate_time
      arguments switched around, like this:

      



$menu->popup( $parent_menu_shell,

              $parent_menu_item,

              $button,

              $activate_time,

              \&menu_position_function,

              @optional_data );


   




25.4. MenuItem Widget

Inheritance Hierarchy
      



Object

   +--- Widget


         +--- Container


               +--- Bin

                     +--- Item

                           +--- MenuItem

         


   

      Creating a MenuItem is as simple as calling one the following
      functions:

      



         $menuitem = new Gtk::MenuItem();
      



      



         $menuitem = new Gtk::MenuItem( $label );
      


   

      You can select, deselect, and activate a MenuItem using:

      



        $menuitem->select();
      



      



        $menuitem->deselect();
      



      



        $menuitem->activate();
      


   

      If you want to make a MenuItem a submenu, you would do so using:

      



         $menuitem->set_submenu( $menu );
      


   

      Also, you can remove a submenu using:

      



         $menuitem->remove_submenu();
      


   

      Lastly, if you want the menu right justified on the menubar,
      such as help menus often are (on Unix systems, anyway), you can
      use the following function before attaching it to the MenuBar:

      



         $menu_item->right_justify();
      


   




25.5. Creating Menus

      There are two ways to create menus: there's the easy way, and
      there's the hard way.  The "hard" way is to create all the menus
      using the above calls directly.  The easy way is to use the
      ItemFactory calls.  This is much simpler, but there are
      advantages and disadvantages to each approach.
   
      The Itemfactory is much easier to use, and to add new menus to,
      although writing a few wrapper functions to create menus using the
      manual method could go a long way towards usability. With the
      Itemfactory, it is not possible to add images or the character '/'
      to the menus.
   
      In the true tradition of teaching, we'll show you the hard way
      first.  The ItemFactory widget is described in its
      
               own chapter
      .
   
      There are three widgets that go into making a menubar and submenus:

      




            a menu item, which is what the user wants to select, e.g.,
            "Save"
         


            a menu, which acts as a container for the menu items, and
         


            a menubar, which is a container for each of the individual
            menus.
         


   

      This is slightly complicated by the fact that menu item widgets
      are used for two different things. They are both the widgets
      that are packed into the menu, and the widget that is packed
      into the menubar, which, when selected, activates the menu.

   
      Once a Menu is created; it is never actually shown (with the
      show() function), it is just a
      container for the menu items. I hope this will become more clear
      when you look at the example below.
   
      Once you've created a menu item you have to put it into a
      menu. This is done using the
      append()
      function. In order to capture when the item is selected by the
      user, we need to connect to the
      'activate'
      signal. So, if we wanted to create a standard
      File
      menu, with the options
      Open,
      Save, and
      Quit,
      the code would look something like:

      



$file_menu = new Gtk::Menu();



# Create the menu items

$open_item = new Gtk::MenuItem( "Open" );

$save_item = new Gtk::MenuItem( "Save" );

$quit_item = new Gtk::MenuItem( "Quit" );



# Add them to the menu

$file_menu->append( $open_item );

$file_menu->append( $save_item );

$file_menu->append( $quit_item );



# Attach the callback functions to the activate signal

$open_item->signal_connect( 'activate', \&file_open );

$save_item->signal_connect( 'activate', \&file_save );

$quit_item->signal_connect( 'activate', \&file_quit );



# We do not need the show the menu, but we do need to show the menu items

$open_item->show();

$save_item->show();

$quit_item->show();


   

      At this point we have our menu. Now we need to create a menubar
      and a menu item for the
      File
      entry, to which we add our menu. The code looks like this:

      



$menu_bar = new Gtk::MenuBar();

$window->add( $menu_bar );

$menu_bar->show();



$file_item = new Gtk::MenuItem( "File" );

$file_item->show();


   

      Now we need to associate the menu with
      $file_menu.
      This is done with the
      set_submenu()
      function.
   
      All that is left to do is to add the menu to the menubar, which
      is accomplished using the
      append() function.
   
      Here is a summary of the steps needed to create a menu bar with
      menus attached:

      




            Create a new menu using
            new Gtk::Menu()
         


            Use multiple calls to
            new Gtk::MenuItem()
            for each item you wish to have on your menu. And use
            append()
            to put each of these new items on to the menu.
         


            Create a menu item using
            new Gtk::MenuItem().
            This will be the root of the menu, the text appearing here
            will be on the menubar itself.
         


            Use
            set_submenu()
            to attach the menu to the root menu item (the one created in
            the above step).
         


            Create a new menubar using
            new Gtk::MenuBar().
            This step only needs to be done once when creating a series of
            menus on one menu bar.
         


            Use
            append()
            to put the root menu onto the menubar.
         


   

      Creating a popup menu is nearly the same. The difference is that
      the menu is not posted "automatically" by a menubar, but
      explicitly by calling the
      popup()
      function from a button-press event, for example.  Take these
      steps:

      




            Create an event handling function and use the event to
            find out where to pop up the menu.
         


            In the event handler, if the event is a mouse button
            press, treat
            event
            as a button event (which it is) and use it as shown in the
            sample code to pass information to
            popup().
         


            Bind that event handler to a widget with
            signal_connect().
         


   




25.6. Manual Menu Example

      That should about do it. Let's take a look at an example to help
      clarify.
   
               Manual Menu Source
      
   






      
#!/usr/bin/perl -w

use 
Gtk
;
use 
strict
;

set_locale Gtk;
init Gtk;


my
 $false = 0;

my
 $true = 1;


my
 $window;

my
 $menu;

my
 $menubar;

my
 $root_menu;

my
 $menu_item;

my
 $vbox;

my
 $button;

# create a new window
$window = new Gtk::Window( 'toplevel' );
$window->set_usize( 200, 100 );
$window->set_title( "GTK Menu Test" );
$window->signal_connect( 'delete_event', 
sub
 { Gtk->
exit
( 0 ); } );

# Init the menu-widget, and remember -- never show() the menu widget!! 
# This is the menu that holds the menu items, the one that will pop up
# when you click on the "Root Menu" in the app
$menu = new Gtk::Menu();

# Next we make a little loop that makes three menu-entries for "test-menu".
# Notice the call to append().  Here we are adding a list of menu items to
# our menu.  Normally, we'd also catch the "clicked" signal on each of the
# menu items and setup a callback for it, but it's omitted here to save
# space.


for
 
my
 $i ( 0..2 )
{
   
my
 $buffer;

   # Copy the names into the buffer
   $buffer = "Test-undermenu - $i";

   # Create a new menu-item with a name...
   $menu_item = new Gtk::MenuItem( $buffer );

   # and add it to the menu.
   $menu->append( $menu_item );

   # Do something interesting when the menuitem is selected
   $menu_item->signal_connect( 'activate', 
sub
 { 
print
( "$buffer\n" ); } );

   # Show the widget
   $menu_item->show();
}

# This is the root menu, and will be the label displayed on the menu bar.
# There won't be a signal handler attached, as it only pops up the rest
# of the menu when pressed.
$root_menu = new Gtk::MenuItem( "Root Menu" );
$root_menu->show();

# Now we specify that we want our newly created "menu" to be the menu
# for the "root menu"
$root_menu->set_submenu( $menu );

# A vbox to put a menu and a button in:
$vbox = new Gtk::VBox( $false, 0 );
$window->add( $vbox );
$vbox->show();

# Create a menu-bar to hold the menus and add it to our main window
$menubar = new Gtk::MenuBar();
$vbox->pack_start( $menubar, $false, $false, 2 );
$menubar->show();

# Create a button to which to attach menu as a popup
$button = new Gtk::Button( "Press Me" );
$button->signal_connect( 'event', \&button_press, $menu );
$vbox->pack_end( $button, $true, $true, 2 );
$button->show();

# And finally we append the menu-item to the menu-bar -- this is the
# "root" menu-item I have been raving about =)
$menubar->append( $root_menu );

# always display the window as the last step so it all splashes on
# the screen at once.
$window->show();

main Gtk;

exit
( 0 );




### Subroutines

# Respond to a button-press by posting a menu passed in as widget.
# Note that the "widget" argument is the menu being posted, NOT
# the button that was pressed.


sub
 
button_press

{
   
my
 ( $button, $menu, $event ) = @_;

   
if
 ( defined( $event->{ 'type' } ) and
	( $event->{ 'type' } eq 'button_press' ) )
   {
      $menu->popup( undef,
		    undef,
		    $event->{'time'},
		    $event->{'button'},
		    undef );

      # Tell calling code that we have handled this event; the buck
      # stops here.
      
return
 ( $true );
   }

   # Tell calling code that we have not handled this event; pass it on.
   
return
 ( $false );
}


# END EXAMPLE PROGRAM
      
   









Menu Example Screenshot



      You may also set a menu item to be insensitive and, using an
      accelerator table, bind keys to menu functions.
   







Prev


Home


Next



Spin Buttons

Up

Using ItemFactories









Gtk-Perl Tutorial



Prev




Next







Chapter 47.       Notebooks
   

Inheritance Hierarchy
      



Object

   +--- Widget


         +--- Container


               +--- Notebook

         


   

      The NoteBook Widget is a collection of "pages" that overlap each
      other, each page contains different information with only one
      page visible at a time. This widget has become more common
      lately in GUI programming, and it is a good way to show blocks
      of similar information that warrant separation in their display.
   
      The first function call you will need to know, as you can
      probably guess by now, is used to create a new notebook widget.

      



         $notebook = new Gtk::Notebook();
      


   

      Once the notebook has been created, there are a number of
      functions that operate on the notebook widget. Let's look at
      them individually.
   
      The first one we will look at is how to position the page
      indicators.  These page indicators or "tabs" as they are
      referred to, can be positioned in four ways: top, bottom, left,
      or right.

      



         $notebook->set_tab_pos( $position );
      



      Where
      $position
      will be one of the following, which are pretty self explanatory:

      



'left'

'right'

'top'

'bottom'



      The default is
      
'top'
.
   

      Next we will look at how to add pages to the notebook. There are
      three ways to add pages to the NoteBook. Let's look at the first
      two together as they are quite similar.

      



         $notebook->append_page( $child, $tab_label );
      



      



         $notebook->prepend_page( $child, $tab_label );
      



      These functions add pages to the notebook by inserting them from
      the back of the notebook (append), or the front of the notebook
      (prepend).
      $child
      is the widget that is placed within the notebook page, and
      $tab_label
      is the label for the page being added. The
      $child
      widget must be created separately, and is typically a set of
      options setup within one of the other container widgets, such as a
      packing box or table.
   

      The final function for adding a page to the notebook contains all
      of the properties of the previous two, but it allows you to
      specify what position you want the page to be in the notebook.

      



         $notebook->insert_page( $child, $tab_label, $position );
      



      The parameters are the same as
      append() and
      prepend()
      except it contains an extra parameter,
      $position.
      This parameter is used to specify what place this page will be
      inserted into, with the first page having a position of zero.
   

      Now that we know how to add a page, lets see how we can remove a
      page from the notebook.

      



         $notebook->remove_page( $page_num );
      



      This function takes the page specified by
      $page_num
      and removes it from the notebook.
   

      To find out what the current page is in a notebook use the function:

      



         $notebook->get_current_page();
      


   

      And to find out what page number a page is, use:

      



         $notebook->page_num( $child );
      



      This function will return a
      -1
      if
      $child
      isn't a page in
      $notebook.
   

      If you want to change a child's page number, you may do so with:

      



         $notebook->reorder_child( $child, $position );
      


   

      These next two functions are simple calls to move the notebook
      page forward or backward. Simply provide the respective function
      call with the notebook widget you wish to operate on.  Note: When
      the NoteBook is currently on the last page, and
      next_page()
      is called, the notebook will wrap back to the first
      page. Likewise, if the NoteBook is on the first page, and
      prev_page()
      is called, the notebook will wrap to the last page.

      



         $notebook->next_page();
      



      



         $notebook->prev_page();
      


   

      This next function sets the "active" page. If you wish the
      notebook to be opened to page 5 for example, you would use this
      function.  Without using this function, the notebook defaults to
      the first page.

      



         $notebook->set_page( $page_num );
      


   

      The next two functions add or remove the notebook page tabs and
      the notebook border respectively.

      



         $notebook->set_show_tabs( $show_tabs );
      



      



         $notebook->set_show_border( $show_border );
      


   

      The next function is useful when the you have a large number of
      pages, and the tabs don't fit on the page. It allows the tabs to
      be scrolled through using two arrow buttons.

      



         $notebook->set_scrollable( $scrollable );
      


   

      The border width around the bookmarks may be set using:

      



         $notebook->set_tab_border( $border_width );
      


   

      Also, you can decide whether all the tabs are the same size or not
      using:

      



         $notebook->set_homogeneous_tabs( $homogeneous );
      



      Where
      $homogeneous
      may be a true or false value.
   



47.1. Notebook Example

      Now let's look at an example, it is expanded from the testgtk.c
      code that comes with the GTK distribution.  This small program
      creates a window with a notebook and six buttons. The notebook
      contains 11 pages, added in three different ways, appended,
      inserted, and prepended. The buttons allow you to rotate the tab
      positions, add/remove the tabs and border, remove a page, change
      pages in both a forward and backward manner, and exit the
      program.
   
               Notebook Example Source
      
   






      
#!/usr/bin/perl -w

use 
Gtk
;
use 
strict
;

set_locale Gtk;
init Gtk;


my
 $false = 0;

my
 $true = 1;


my
 $window;

my
 $button;

my
 $table;

my
 $notebook;

my
 $frame;

my
 $label;

my
 $checkbutton;


my
 $bufferf;

my
 $bufferl;


# Create the window
$window = new Gtk::Window( "toplevel" );
$window->signal_connect( "delete_event", 
sub
 { Gtk->
exit
( 0 ); } );
$window->border_width( 10 );

$table = new Gtk::Table( 3, 6, $false );
$window->add( $table );

# Create a new notebook, place the position of the tabs
$notebook = new Gtk::Notebook();
$notebook->set_tab_pos( 'top' );
$table->attach_defaults( $notebook, 0, 6, 0, 1 );
$notebook->show();

# Let's append a bunch of pages to the notebook

for
 
my
 $i ( 0..4 )
{
   $bufferf = "Append Frame " . ( $i + 1 );
   $bufferl = "Page " . ( $i + 1 );

   $frame = new Gtk::Frame( $bufferf );
   $frame->border_width( 10 );
   $frame->set_usize( 100, 75 );
   $frame->show();

   $label = new Gtk::Label( $bufferf );
   $frame->add( $label );
   $label->show();

   $label = new Gtk::Label( $bufferl );
   $notebook->append_page( $frame, $label );
}

# Now let's add a page to a specific spot
$checkbutton = new Gtk::CheckButton( "Check me please!" );
$checkbutton->set_usize( 100, 75 );
$checkbutton->show();

$label = new Gtk::Label( "Add Page" );
$notebook->insert_page( $checkbutton, $label, 2 );

# Now finally let's prepend pages to the notebook

for
 
my
 $i ( 0..4 )
{
   $bufferf = "Prepend Frame " . ( $i + 1 );
   $bufferl = "Page " . ( $i + 1 );

   $frame = new Gtk::Frame( $bufferf );
   $frame->border_width( 10 );
   $frame->set_usize( 100, 75 );
   $frame->show();

   $label = new Gtk::Label( $bufferf );
   $frame->add( $label );
   $label->show();

   $label = new Gtk::Label( $bufferl );
   $notebook->prepend_page( $frame, $label );
}

# Set what page to start at (page 4)
$notebook->set_page( 3 );

# Create a bunch of buttons
$button = new Gtk::Button( "Close" );
$button->signal_connect( "clicked", 
sub
 { Gtk->
exit
( 0 ); } );
$table->attach_defaults( $button, 0, 1, 1, 2 );
$button->show();

$button = new Gtk::Button( "Next Page" );
$button->signal_connect( "clicked", 
sub
 { $notebook->next_page(); } );
$table->attach_defaults( $button, 1, 2, 1, 2 );
$button->show();

$button = new Gtk::Button( "Prev Page" );
$button->signal_connect( "clicked", 
sub
 { $notebook->prev_page(); } );
$table->attach_defaults( $button, 2, 3, 1, 2 );
$button->show();

$button = new Gtk::Button( "Tab Position" );
$button->signal_connect( "clicked", \&rotate_book, $notebook );
$table->attach_defaults( $button, 3, 4, 1, 2 );
$button->show();

$button = new Gtk::Button( "Tabs/Border On/Off" );
$button->signal_connect( "clicked", \&tabsborder_book, $notebook );
$table->attach_defaults( $button, 4, 5, 1, 2 );
$button->show();

$button = new Gtk::Button( "Remove Page" );
$button->signal_connect( "clicked", \&remove_book, $notebook );
$table->attach_defaults( $button, 5, 6, 1, 2 );
$button->show();

$table->show();
$window->show();
main Gtk;

exit
( 0 );



### Subroutines


# This function rotates the position of the tabs


sub
 
rotate_book

{
   
my
 ( $button, $notebook ) = @_;

   
my
 %rotate = ( top    => 'right',
		  right  => 'bottom',
		  bottom => 'left',
		  left   => 'top' );

   $notebook->set_tab_pos( $rotate{ $notebook->tab_pos } );
}


# Add/Remove the page tabs and the borders


sub
 
tabsborder_book

{
   
my
 ( $button, $notebook ) = @_;

   
my
 $tval = $false;
   
my
 $bval = $false;

   
if
 ( $notebook->show_tabs == 0 )
   {
      $tval = $true;
   }
   
if
 ( $notebook->show_border == 0 )
   {
      $bval = $true;
   }

   $notebook->set_show_tabs( $tval );
   $notebook->set_show_border( $bval );
}


# Remove a page from the notebook


sub
 
remove_book

{
   
my
 ( $button, $notebook ) = @_;

   
my
 $page;

   $page = $notebook->get_current_page();
   $notebook->remove_page( $page );

   # Need to refresh the widget -- This forces the widget to redraw itself.
   $notebook->draw( undef );
}



# END EXAMPLE PROGRAM
      
   









Notebook Example Screenshot










Prev


Home


Next



Toolbar

Up

Paned Window Widgets









Gtk-Perl Tutorial



Prev




Next







Chapter 27.       Option Menu
   

Inheritance Hierarchy
      



Object

   +--- Widget


         +--- Container


               +--- Bin

                     +--- Button


                           +--- OptionMenu

         


   

      An OptionMenu is a widget that allows the user to select from a
      valid set of choices.  The current choice is shown in the
      OptionMenu, and if the user clicks on the OptionMenu, it
      displays a popup menu consisting of all the valid choices.
   
      This simple widget is creating using:

      



         $option = new Gtk::OptionMenu();
      


   

      To add a menu, create a new popup menu, as described in the
      section on the
      
               menu widget
      ,

       without any tearoffs, submenus, or accelerators, and add it to
       the OptionMenu using:

      



         $option->set_menu( $popup_menu );
      


   

      As you might suspect, you can retrieve the menu associated with
      an OptionMenu using:

      



         $popup_menu = $option->get_menu();
      


   

      If you want to remove a menu from an OptionMenu, you may do so
      with:

      



         $option->remove_menu();
      


   

      Finally, if you want to select an item in the menu, you would
      use:

      



         $option->set_history( $index );
      



      where
      $index

      is the index of the menu item to select.  The index value ranges
      from 0 (first item) to n-1, where n is the number of items in
      the menu.
   







Prev


Home


Next



Using ItemFactories

Up

Combo Widgets









Gtk-Perl Tutorial



Prev




Next







Chapter 48.       Paned Window Widgets
   

Inheritance Hierarchy
      



Object

   +--- Widget


         +--- Container


               +--- Paned

         


   

      The paned window widgets are useful when you want to divide an
      area into two parts, with the relative size of the two parts
      controlled by the user. A groove is drawn between the two
      portions with a handle that the user can drag to change the
      ratio. The division can either be horizontal (the HPaned widget)
      or vertical (the VPaned widget).
   
      To create a new paned window, call one of:

      



         $paned = new Gtk::HPaned();
      



      



         $paned = new Gtk::VPaned();
      


   

      After creating the paned window widget, you need to add child
      widgets to its two halves. To do this, use one of the the
      following sets of functions:

      



$paned->pack1( $child, $resize, $shrink );

$paned->add1( $child );



$paned->pack2( $child, $resize, $shrink );

$paned->add2( $child );


   

      add1()
      and
      pack1()
      adds the child widget to the left or top half of the paned
      window.
      add2()
      and
      pack2()
      adds the child widget to the right or bottom half of the paned
      window.
   
      The
      $resize
      argument specifies whether the child should expand when the paned
      widget is resized, and the
      $shrink
      argument specifies whether the child can be made smaller than its
      requested size.
   
      The
      add1()
      function is equivelent to calling

      



         $paned->pack1( $child, $false, $true );
      


   

      And the
      add2()
      function is equivelent to calling

      



         $paned->pack2( $child, $false, $false );
      


   

      A paned widget can be changed visually using the following two
      functions.

      



         $paned->set_handle_size( $size );
      



      



         $paned->set_gutter_size( $size );
      


   

      The first of these sets the size of the handle and the second
      sets the size of the gutter that is between the two parts of the
      paned window.
   


48.1. Paned Window Example

      As an example, we will create part of the user interface of an
      imaginary email program. A window is divided into two portions
      vertically, with the top portion being a list of email messages
      and the bottom portion the text of the email message. Most of
      the program is pretty straightforward.  A couple of points to
      note: text can't be added to a Text widget until it is
      realized. This could be done by calling
      realize(),
      but as a demonstration of an alternate technique, we connect a
      handler to the
      'realize'
      signal to add the text. Also, we need to add the
      'shrink'
      option to some of the items in the table containing the text
      window and its scrollbars, so that when the bottom portion is
      made smaller, the correct portions shrink instead of being
      pushed off the bottom of the window.
   
               Paned Window Example Source
      
   






      
#!/usr/bin/perl -w

use 
Gtk
;
use 
strict
;

set_locale Gtk;
init Gtk;


my
 $false = 0;

my
 $true = 1;


my
 $window;

my
 $paned;

my
 $list;

my
 $text;


# Create the window
$window = new Gtk::Window( "toplevel" );
$window->set_title( "Paned Windows" );
$window->signal_connect( "destroy", 
sub
 { Gtk->
exit
( 0 ); } );
$window->border_width( 10 );
$window->set_usize( 450, 400 );

# create a vpaned widget and add it to our toplevel window
$paned = new Gtk::VPaned();
$window->add( $paned );
$paned->set_handle_size( 10 );
$paned->set_gutter_size( 15 );
$paned->show();

# Now create the contents of the two halves of the window
$list = create_list();
$paned->add1( $list );
$list->show();

# Create the text area.
$text = create_text();
$paned->add2( $text );
$text->show();
$window->show();

main Gtk;

exit
( 0 );



### Subroutines


# Create a list of messages and return it


sub
 
create_list

{
   
my
 $scrolled_window;
   
my
 $list;
   
my
 $list_item;

   
my
 @buffer;

   # Create a new scrolled window, with scrollbars only if needed
   $scrolled_window = new Gtk::ScrolledWindow( "
", "
" );
   $scrolled_window->set_policy( 'automatic', 'automatic' );

   # Create a new list and put it in the scrolled window
   $list = new Gtk::List();
   $scrolled_window->add_with_viewport( $list );
   $list->show();

   # Add some messages to the window
   
for
 
my
 $i ( 0..9 )
   {
      $buffer[ $i ] = "Message \#" . $i;
      $list_item = new Gtk::ListItem( $buffer[ $i ] );
      $list->add( $list_item );
      $list_item->show();
   }

   
return
 ( $scrolled_window );
}


# Add some text to our text widget - this is a callback that is invoked
# when our window is realized. We could also force our window to be
# realized with gtk_widget_realize, but it would have to be part of
# a hierarchy first


sub
 
realize_text

{
   
my
 ( $text ) = @_;

   $text->freeze();
   $text->insert( "
", $text->style->black, $text->style->white,
		  "From: pathfinder\@nasa.gov\n" .
		  "To: mom\@nasa.gov\n" .
		  "Subject: Made it!\n" .
		  "\n" .
		  "We just got in this morning. The weather has been\n" .
		  "great - clear but cold, and there are lots of fun\n" .
		  "sights.\n" .
		  "Sojourner says hi. See you soon.\n" .
		  " -Path\n" );

   $text->thaw();
}


# Create a scrolled text area that displays a "message"


sub
 
create_text

{
   
my
 $table;
   
my
 $text;
   
my
 $hscrollbar;
   
my
 $vscrollbar;

   # Create a table to hold the text widget and scrollbars
   $table = new Gtk::Table( 2, 2, $false );

   # Put a text widget in the upper left hand corner. Note the use of
   # 'shrink' in the y direction
   $text = new Gtk::Text( "
", "
" );
   $table->attach( $text, 0, 1, 0, 1,
		   [ 'fill', 'expand' ],
		   [ 'fill', 'expand', 'shrink' ],
		   0, 0 );
   $text->show();

   # Put a HScrollbar in the lower left hand corner
   $hscrollbar = new Gtk::HScrollbar( $text->hadj );
   $table->attach( $hscrollbar, 0, 1, 1, 2,
		   [ 'expand', 'fill' ],
		   'fill', 0, 0 );
   $hscrollbar->show();

   # And a VScrollbar in the upper right
   $vscrollbar = new Gtk::VScrollbar( $text->vadj );
   $table->attach( $vscrollbar, 1, 2, 0, 1, 'fill',
		   [ 'expand', 'fill', 'shrink' ], 0, 0 );
   $vscrollbar->show();

   # Add a handler to put a message in the text widget when it is realized
   $text->signal_connect( "realize", \&realize_text );

   
return
 ( $table );
}


# END EXAMPLE PROGRAM
      
   









Paned Example Screenshot










Prev


Home


Next



Notebooks

Up

Frames









Описание Gtk-Perl



Предыдущая




Следующая







Часть 57.       Битовая графика
   




Содержание

57.1. Пример

57.2. Shaped Windows (the Wheelbarrow)

57.3. Кнопка с картинкой



Иерархия наследования
      



Object

   +--- Widget


         +--- Misc

               +--- Pixmap

         


   

      
	  Битовая графика - структуры данных, которые содержат изображения.
Эти изображения 
	  могут использоваться где угодно, но, как правило, обычно
используются 
	  как иконки на рабочем столе X, или как курсоры.
   
      
Битовая графика, состоящая из 2-х цветов, называется битовым массивом
(битмапом - bitmap) и для его 
использования существует несколько дополнительных фукций
   

Для понимания того, что такое битовая графика, необходимо понимать, как
работает система XWindow.
Приложения под X-ами не обязательно могут быть запущены на томже компьютере,
на котором работает 
пользователь. Различные приложения, называемые клиентами, общаются с одной
программой, которая показывает 
графику и работает с клавиатурой или мышью. Эту программу, которая работает
непосредственно с пользователем, 
называют сервером или X-сервером. Так как общение возможно и по сети, то
необходимо держать соединение с X-сервером.
Это означает, что битовое изображение содержится в памяти X-сервера и
основные свойства изображения 
для его показа не должны постоянно передаваться клиенту, вместо этого
передается команда "по координатам XYZ 
показывается такой-то цвет". В случае даже если Вы не будете использовать
X-сервер, то нижеприведенные 
конструкции без проблем могут быть перенесены под X.
   


Для использования битовой графики в GTK, мы в первую очередь должны
построить битовую структуру используя методы
GDK. Битовое изображение может быть создано либо прямо из памяти, либо
прочитано из файла. Мы сделаем тем и другим способом.
   
      



$gdkpixmap = Gtk::Gdk::Pixmap->create_from_data( $window,

                                                 $data,

                                                 $width,

                                                 $height );



Этот метод используется для создания двухцветного изображения прямо из
памяти.
Каждый бит данных предстявляет из себя флаг, согласно которому каждый пиксел
либо включен либо выключен.
Ширина и высота определяют число пикселей. Указатель GdkWindow привязывает
изображение
к конкретному окну, т.к. битовая графика имеет смысл только в контексте
панели, на которой 
она должна быть отображена.
   

      



$gdkpixmap = Gtk::Gdk::Pixmap->create_from_data( $window,

                                                 $data,

                                                 $width,

                                                 $height,

                                                 $depth,

                                                 $foreground,

                                                 $background );


Этот метод используется для того, чтобы создать изображение заданной глубины
(числа цветов) от 
определенного двуцветного массива.

      $foreground и
      $background
являются соответственно нижним и верхним цветами (в смысле каждый 
охотник желает
знать где сидит фазан)

   

      



$gdkpixmap = Gtk::Gdk::Pixmap->create_from_xpm( $window,

                                                $mask,

                                                $transparant_color,

                                                $filename );



Формат XPM  -  удбочитаемое представление для оконной системы Unix XWindow.
Он широко используется и файлы в этом 
формате можно создать многочисленными утилитами. Файл *.xpm должен содержать
изображение в том формате,
которое соответствует расширению, в этом случае он будет прочитан и загружен
как битовая графика. Маска
определяет, какие биты изображения являются непрозрачными. Все другие биты
будет окрашены в соответствии с цветом, 
определенным в переменной $transparent_color.
      



$gdkpixmap = Gtk::Gdk::Pixmap->create_from_xpm_d( $window,

                                                  $mask,

                                                  $transparent_color,

                                                  $data );


Маленькие изображения могут быть включены в прямо в программу. В этом случае
битовая графика будет 
создана без открытия дополнительных файлов. Пример такого включения:

      



my @xpm_data = ( "16 16 3 1",

                 "       c None",

                 ".      c #000000000000",

                 "X      c #FFFFFFFFFFFF",

                 "                ",

                 "   ......       ",

                 "   .XXX.X.      ",

                 "   .XXX.XX.     ",

                 "   .XXX.XXX.    ",

                 "   .XXX.....    ",

                 "   .XXXXXXX.    ",

                 "   .XXXXXXX.    ",

                 "   .XXXXXXX.    ",

                 "   .XXXXXXX.    ",

                 "   .XXXXXXX.    ",

                 "   .XXXXXXX.    ",

                 "   .XXXXXXX.    ",

                 "   .........    ",

                 "                ",

                 "                " );


   


Как только мы создали битовое изображение, мы можем его показать как виждет
GTK. Для этого необходимо создать 
специальный GTK виджет, который бы содержал битовое изображение GDK. Это
можно сделать так:

      



         $pixmap = new Gtk::Pixmap( $gdkpixmap, $mask );
      


   


Другие вызовы этого типа виждетов:


      



         $pixmap->get_type();
      



      



         $pixmap->set( $val, $mask );
      



      



         $pixmap->get( $val, $mask );
      


   

      set()
    
используется для смены виджета с битовой графикой, используемого в данным
момент.
      $val
является битовой графикой, созданной при помощи GDK.

   


57.1. Пример


Нижеследующий пример показывает использование кнопки с картинкой:

   
      Исходник
      
   






      
#!/usr/bin/perl -w


use 
Gtk
;
use 
strict
;

set_locale Gtk;
init Gtk;


my
 $false = 0;

my
 $true = 1;


# XPM данные для иконки "Открыть файл"

my
 @xpm_data = ( "16 16 4
1",
		 "       c None s None",
		 ".      c black",
		 "X      c #808080",
		 "o      c white",
		 "                ",
		 "  ..            ",
		 " .Xo.    ...    ",
		 " .Xoo. ..oo.    ",
		 " .Xooo.Xooo...  ",
		 " .Xooo.oooo.X.  ",
		 " .Xooo.Xooo.X.  ",
		 " .Xooo.oooo.X.  ",
		 " .Xooo.Xooo.X.  ",
		 " .Xooo.oooo.X.  ",
		 "  .Xoo.Xoo..X.  ",
		 "   .Xo.o..ooX.  ",
		 "    .X..XXXXX.  ",
		 "    ..X.......  ",
		 "     ..         ",
		 "                ");


my
 $window;

my
 $pixmapwid;

my
 $button;

my
 $pixmap;

my
 $mask;

my
 $style;

$window = new Gtk::Window( "toplevel" );
$window->signal_connect( "delete_event",

sub
 { Gtk->
exit
( 0 ); } );
$window->border_width( 10 );
$window->show();

# закачиваем данные из gdk
$style = $window->get_style()->bg( 'normal' );
( $pixmap, $mask ) = Gtk::Gdk::Pixmap->create_from_xpm_d(
$window->window,
							  $style,
							  @xpm_data );

#битовая графика присваивается виждету
$pixmapwid = new Gtk::Pixmap( $pixmap, $mask );
$pixmapwid->show();

# кнопка содержит виджет с битовой графикой
$button = new Gtk::Button();
$button->add( $pixmapwid );
$button->show();
$button->signal_connect( "clicked",

sub
 { 
print
( "button clicked\n" ); } );
$window->add( $button );

main Gtk;

exit
( 0 );


# конец примера
      
   









скриншот



Подгружая данные из файла в текущей директории, названного icon.xpm, мы
создали бы изображение таким образом:
      



( $pixmap, $mask ) = Gtk::Gdk::Pixmap->create_from_xpm( $window->window,

                                                        $style;

                                                        "./icon.xpm" );

$pixmapwid = new Gtk::Pixmap( $pixmap, $mask );

$pixmapwid->show();


   




57.2. Контурные панели(на примере изображения тачки)


Неудобство использования пиксмапов в том, что они отображаются всегда 
как квадратные, независимо от того, что на них нарисовано. Т.е. необходимо
создать более приемлемые
формы изображения. Например для создания игры хочетсяч иметь круглые кнопки.
Один из путей использования - 
контурные панели.

   

Контурные панели это обычная графика, в которой фоновые пикселы являются
прозрачными.
В этом смысле если фоновое изображение многоцветно, то мы не переписываем
его как квадратное...
Нижеследующий пример показывает изображение огородной одноколесной тачки
(без перегноя :) на рабочем столе:
   
      Исходник
      
   






      
#!/usr/bin/perl -w

use 
Gtk
;
use 
strict
;

set_locale Gtk;
init Gtk;


my
 $false = 0;

my
 $true = 1;


my
 @wheelbarrow = ( '48 48 64 1',
		    '       c None',
		    '.      c #DF7DCF3CC71B',
		    'X      c #965875D669A6',
		    'o      c #71C671C671C6',
		    'O      c #A699A289A699',
		    '+      c #965892489658',
		    '@      c #8E38410330C2',
		    '#      c #D75C7DF769A6',
		    '$      c #F7DECF3CC71B',
		    '%      c #96588A288E38',
		    '&      c #A69992489E79',
		    '*      c #8E3886178E38',
		    '=      c #104008200820',
		    '-      c #596510401040',
		    ';      c #C71B30C230C2',
		    ':      c #C71B9A699658',
		    '>      c #618561856185',
		    ',      c #20811C712081',
		    '<      c #104000000000',
		    '1      c #861720812081',
		    '2      c #DF7D4D344103',
		    '3      c #79E769A671C6',
		    '4      c #861782078617',
		    '5      c #41033CF34103',
		    '6      c #000000000000',
		    '7      c #49241C711040',
		    '8      c #492445144924',
		    '9      c #082008200820',
		    '0      c #69A618611861',
		    'q      c #B6DA71C65144',
		    'w      c #410330C238E3',
		    'e      c #CF3CBAEAB6DA',
		    'r      c #71C6451430C2',
		    't      c #EFBEDB6CD75C',
		    'y      c #28A208200820',
		    'u      c #186110401040',
		    'i      c #596528A21861',
		    'p      c #71C661855965',
		    'a      c #A69996589658',
		    's      c #30C228A230C2',
		    'd      c #BEFBA289AEBA',
		    'f      c #596545145144',
		    'g      c #30C230C230C2',
		    'h      c #8E3882078617',
		    'j      c #208118612081',
		    'k      c #38E30C300820',
		    'l      c #30C2208128A2',
		    'z      c #38E328A238E3',
		    'x      c #514438E34924',
		    'c      c #618555555965',
		    'v      c #30C2208130C2',
		    'b      c #38E328A230C2',
		    'n      c #28A228A228A2',
		    'm      c #41032CB228A2',
		    'M      c #104010401040',
		    'N      c #492438E34103',
		    'B      c #28A2208128A2',
		    'V      c #A699596538E3',
		    'C      c #30C21C711040',
		    'Z      c #30C218611040',
		    'A      c #965865955965',
		    'S      c #618534D32081',
		    'D      c #38E31C711040',
		    'F      c #082000000820',
		    '                                                ',
		    '          .XoO                                  ',
		    '         +@#$%o&                                ',
		    '         *=-;#::o+                              ',
		    '           >,<12#:34                            ',
		    '             45671#:X3                          ',
		    '               +89<02qwo                        ',
		    'e*                >,67;ro                       ',
		    'ty>                 459@>+&&                    ',
		    '$2u+                  ><ipas8*                  ',
		    '%$;=*                *3:.Xa.dfg>                ',
		    'Oh$;ya             *3d.a8j,Xe.d3g8+             ',
		    ' Oh$;ka          *3d$a8lz,,xxc:.e3g54           ',
		    '  Oh$;kO       *pd$%svbzz,sxxxxfX..&wn>         ',
		    '   Oh$@mO    *3dthwlsslszjzxxxxxxx3:td8M4       ',
		    '    Oh$@g& *3d$XNlvvvlllm,mNwxxxxxxxfa.:,B*     ',
		    '     Oh$@,Od.czlllllzlmmqV@V#V@fxxxxxxxf:%j5&   ',
		    '      Oh$1hd5lllslllCCZrV#r#:#2AxxxxxxxxxcdwM*  ',
		    '       OXq6c.%8vvvllZZiqqApA:mq:Xxcpcxxxxxfdc9* ',
		    '        2r<6gde3bllZZrVi7S@SV77A::qApxxxxxxfdcM ',
		    '        :,q-6MN.dfmZZrrSS:#riirDSAX@Af5xxxxxfevo',
		    '         +A26jguXtAZZZC7iDiCCrVVii7Cmmmxxxxxx%3g',
		    '          *#16jszN..3DZZZZrCVSA2rZrV7Dmmwxxxx&en',
		    '           p2yFvzssXe:fCZZCiiD7iiZDiDSSZwwxx8e*>',
		    '           OA1<jzxwwc:$d%NDZZZZCCCZCCZZCmxxfd.B ',
		    '            3206Bwxxszx%et.eaAp77m77mmmf3&eeeg* ',
		    '             @26MvzxNzvlbwfpdettttttttttt.c,n&  ',
		    '             *;16=lsNwwNwgsvslbwwvccc3pcfu<o    ',
		    '              p;<69BvwwsszslllbBlllllllu<5+     ',
		    '              OS0y6FBlvvvzvzss,u=Blllj=54       ',
		    '               c1-699Blvlllllu7k96MMMg4         ',
		    '               *10y8n6FjvllllB<166668           ',
		    '                S-kg+>666<M<996-y6n<8*          ',
		    '                p71=4 m69996kD8Z-66698&&        ',
		    '                &i0ycm6n4 ogk17,0<6666g         ',
		    '                 N-k-<>     >=01-kuu666>        ',
		    '                 ,6ky&      &46-10ul,66,        ',
		    '                 Ou0<>       o66y<ulw<66&       ',
		    '                  *kk5       >66By7=xu664       ',
		    '                   <<M4      466lj<Mxu66o       ',
		    '                   *>>       +66uv,zN666*       ',
		    '                              566,xxj669        ',
		    '                              4666FF666>        ',
		    '                               >966666M         ',
		    '                                oM6668+         ',
		    '                                  *4            ',
		    '                                                ',
		    '                                                ' );


my
 $window;

my
 $pixmap;

my
 $fixed;

my
 $gdkpixmap;

my
 $mask;

my
 $style;

my
 $normal;

my
 $gc;

# Создаем основное окно и вешаем на него обработчик сигнала delete_event для закрытия
# приложения. Заметим, что основное окное не имеет заголовка наверху
# так как мы его делаем popup окном.
$window = new Gtk::Window( "popup" );
$window->signal_connect( "delete_event",

sub
 { Gtk->
exit
( 0 ); } );
$window->show();

# Строчки для битовой графики и виджета битовой графики
$style = Gtk::Widget->get_default_style();
$normal = $style->bg( 'normal' );
$gc = $style->black_gc;
( $gdkpixmap, $mask ) = Gtk::Gdk::Pixmap->create_from_xpm_d(
$window->window,
							     $normal,
							     @wheelbarrow );
$pixmap = new Gtk::Pixmap( $gdkpixmap, $mask );
$pixmap->show();

# Показывая битовую графику мы используем фиксированный виджет
$fixed = new Gtk::Fixed();
$fixed->set_usize( 200, 200 );
$fixed->put( $pixmap, 0, 0 );
$window->add( $fixed );
$fixed->show();

# маскируется все, кроме изображения
$window->shape_combine_mask( $mask, 0, 0 );

# показываем окно
$window->set_uposition( 400, 400 );
$window->show();
main Gtk;

exit
( 0 );


# конец примера
      
   









Скриншот




Чтобы сделать виджет отзывающимся на сигнал, мы присваиваем ему свойство
откликаться на нажатие кнопки.
несколько строк кода показывают, как сделать так, чтобы нажатием мышшиной
кнопки по картинке виджет закончил свою работу.

      



$window->set_events( [ $window->get_events(), 'button_press_mask' ] );



$window->signal_connect( "button_press_event", sub { Gtk->exit( 0 ); } );

         


   




57.3. Пример кнопки с картинкой

               Исходник
      
   






      
#!/usr/bin/perl -w

use 
Gtk
;
use 
strict
;

set_locale Gtk;
init Gtk;


my
 $false = 0;

my
 $true = 1;


my
 $window;

my
 $box;

my
 $button;


# Create the window
$window = new Gtk::Window( "Пример кнопки" );
$window->set_title( "Кнопка с картинкой!"
);
$window->border_width( 10 );
$window->realize();
$window->signal_connect( "destroy",

sub
 { Gtk->
exit
( 0 ); } );
$window->signal_connect( "delete_event",

sub
 { Gtk->
exit
( 0 ); } );

# этот вызов нашего бокса создает функцию - ? (This
calls our box creating function)
$box = xpm_label_box( $window, "info.xpm",
"Замерзни!" );

$button = new Gtk::Button();
$button->signal_connect( "clicked",

sub
 {
			    
print
( "Замер-р-р-р-з-з-з-заю!!!\n" ); } );

# Показываем все наши виджеты
$box->show();
$button->add( $box );
$button->show();
$window->add( $button );
$window->show();

# расслабляемся и готовимся отдохнуть!
main Gtk;

exit
( 0 );



# Создаем новый горизонтальный бокс с лейблом и помещаем туда картинку
# и засовываем в бокс.

sub
 
xpm_label_box

{
   
my
 ( $parent,
$xpm_filename, $label_text ) = @_;

   
my
 $box;
   
my
 $style;
   
my
 $pixmap;
   
my
 $mask;
   
my
 $pixmapwid;
   
my
 $label;

   # Создаем область отрисовки для xpm и лейбл
   $box = new Gtk::HBox( $false, 0 );

   # берем цвет кнопки как фоновый для картинки.
   $style = $parent->get_style()->bg( 'normal' );

   # теперь для xpm
   ( $pixmap, $mask ) = Gtk::Gdk::Pixmap->create_from_xpm(
$parent->window,
							   $style,
							   $xpm_filename );
   $pixmapwid = new Gtk::Pixmap( $pixmap, $mask );

   # создаем лейбл для кнопки
   $label = new Gtk::Label( $label_text );

   # передаем картинку и лейбл в горизонтальный виджет
   $box->pack_start( $pixmapwid, $false, $false, 3 );
   $box->pack_start( $label, $false, $false, 3 );

   $box->border_width( 2 );
   $pixmapwid->show();
   $label->show();

   
return
 ( $box );
}


# конец примера
      
   





Прежде чем запстить программу, необходимо загрузить изображение
               image
      
 и сохранить его в директорию с кодом приведенной программы. Если
изображения не будет, то 
      $pixmap
не будет содержать информации и программа не будет работать корректно.
   

Как только вы произвели все вышеприведенные операции, то появится следующая
панель, яб даже сказал, панелька:
      Once you have done this, the above program should look like this:
   





скриншот



      Функция 
      xpm_label_box()
может использоваться любым виджетом, являющимся контейнером.
   

Вызов в 
      Notice in
      xpm_label_box()
подобен вызову

      get_style().

Каждый виджет имеет стиль, содержащий теневой и основной цвета для различных
ситуаций, выбора фона и пр. 
Эти значения установлены по умолчанию в каждом виджете и являются
необходимыми для вызова многих функций GDK, например
      $pixmap->create_from_xpm(), которая создает нормальный фоновый цвет. Использя ресурс-файлы стиль
виджетов может быть переопределен.

   
      Также отметим, что 
      realize() вызывается после установления ширины границы окна. Эта функция использует
GDK для 
создания панелей XWindow, связаных с виджетом. Она автоматически вызывается
когда вы вызываете функцию 
      show()
для виджета. Но вызов функции
      create_from_xpm() требдует, чтобы аргумент

      $window обратился к реальной панели X.т.к. это необходимо виджету до вызова GDK
(туманно и неясно, что это за зверь)
   







Предыдущая


На главную


Следующая



Графика

Вверх

Административные сведения






Виджеты состояния процесса

Содержание

Пример
Диалог подгружения

Иерархия наследования

Object
   +--- Widget
         +--- Progress
               +--- ProgressBar



Виджеты состояния процесса используются для контроля протекания процесса. Они
довольно удобны, как и будет показано кодом ниже. Но сначала создадим
прогрессбар. Есть два пути создания диалога состояния, один без агрументов,
другой с аргументром выравнивания в соовтетствии с поведением окружения. Еси
используется прежний прогрессбар, то выравнивание будет выстроено в
соответствии с указанным ранее: 

$progress = new Gtk::ProgressBar(); 

$progress = new Gtk::ProgressBar( $adjustment ); 


Второй метод имеет большие преимущества, так как в нем можно переопределить
или определить заново динамические размеры самого линейки состояния и другие
его параметры:

$progress-> set_adjustment ($adjustment); 


Теперь, после создания полосы прокрутки, прогрессбар можно использовать:

$progress->update( $percentage );


Аргумент функции показывает предел заполнения полосы состояния от 0 до 100%
Соответственно функция должна принимать значения от 0.0 до 1.0. Полоса
состояния может быть ориентирована при помощи функции

$progress->set_orientation( $orientation );


где аргумент $orientation, принимает следующие значения:

'left_to_right'
'right_to_left'
'bottom_to_top'
'top_to_bottom'


Вид увеличения полоски состояния может быть определен функцией

$progress->set_bar_style( $style ); 


в которой аргумент $style может приниметь два значения 'continuous' или
'discrete'. 'continuous' подразумевает непрерывное изменение полоски
состояния, 'discrete' - дискретное. Функцией

$progress->set_discrete_blocks( $blocks ); 


можно задать число дискрентых блоков виджета состояния. Функция 

$progress->set_activity_mode( $activity_mode ); 

позволяет изменять поведение прогрессбара в том случае, когда идет
уменьшение результата какого-либо процесса. Размер шага актовного индикатора
и число блоков в случае дискретного увеличения может быть установлено при
помощи следующих функций:

$progress->set_activity_step( $step ); 

$progress->set_activity_blocks( $blocks ); 

Иногда бывает необходимо показать значения, определяющие продвижение
процесса к конечной цели. Полоса состояния позволяет это сделать в пределах
прогрессбара при помощи функции:

$progress->set_format_string( $format ); 

где аргумент $format подобен printf и может быть представлен как:


 %p - проценты
 %v - значение
 %l - нижний предел
 %u - верхний предел

показ текста определяется функцией с булевым аргументом:

$progress->set_show_text( $show_text ); 

Положение текста на прогрессбаре может быть фиксировано при помощи функции:

$progress->set_text_alignment( $x_align, $y_align ); 

в которой аргументы $x_align и $y_align принимают значения между 0.0 и 1.0
Состояние прогрессбара может быть определено при помощи текущего или 
вновь определяемого выравнивания при помощи двух нижепреведенных функций,
возвращающих форматированную строку, которая может быть показана на
прогрессбаре:

$progress-> get_current_text (); 

$progress-> get_text_from_value ($value); 

тоже самое можно сделать при помощи другой функции:

$progress->configure( $value, $min, $max ); 

Эта функция обеспечивает довольно простой интерфейс для установления
значений диапазона и значения прогрессбара. Оставшиеся функции используются
для установления значения переменной, отвечающей за уровень прогрессбара в
различных типах и форматах:

        $progress->set_percentage( $percentage );

        $progress->set_value( $value );

        $progress->get_value();

        $progress->get_current_percentage();

        $progress->get_percentage_from_value( $adjustment );

Здесь проследняя функция использует текущее выравнивание для запроса
текущего значения переменной, отвечающей за состояние выполнения какого-либо
процесса.

Индикаторы состояния процесса используются с таймаутами или другими
подобными функциями с тем, чтобы создать иллюзию мультзадачности(??). Все
они используют функцию update();

Пример индикатора состояния

Нижеследующий пример показывает прогрессбар, изменяющийся при помощи
таймаутов, так же пример показывает, как можно переустановить прогрессбар:

#!/usr/bin/perl -w

use Gtk;
use strict;

set_locale Gtk;
init Gtk;

my $false = 0;
my $true = 1;

my ($window, $pbar, $timer, $align, $separator, $table, $adj, $button, $check1, $check2, $vbox);

# Создаем окно
$window = new Gtk::Window( "toplevel" );
$window->set_policy( $false, $false, $true );
$window->signal_connect( "destroy", sub { Gtk->exit( 0 ); } );
$window->set_title( "Progress Bar" );
$window->border_width( 0 );

$vbox = new Gtk::VBox( $false, 5 );
$vbox->border_width( 10 );
$window->add( $vbox );
$vbox->show();

# Создаем центрированый объект
$align = new Gtk::Alignment( 0.5, 0.5, 0, 0 );
$vbox->pack_start( $align, $false, $false, 5 );
$align->show();

# Создаем выровненный объект, содержащий уровень прогрессбара(???)
$adj = new Gtk::Adjustment( 0, 1, 150, 0, 0, 0 );

# создаем GtkProgressBar, использующий выравнивание
$pbar = new_with_adjustment Gtk::ProgressBar( $adj );

# Устанавливаем формат строки, который может быть показан на индикаторе состояния
# %p - проценты
# %v - значение
# %l - нижний предел
# %u - верхний предел

$pbar->set_format_string( "%v from [%l-%u] (=%p%%)" );
$align->add( $pbar );
$pbar->show();

# Добавляем таймер, который будет запрашивать значение переменной прогрессбара
$timer = Gtk->timeout_add( 100, \&progress_timeout );

$separator = new Gtk::HSeparator();
$vbox->pack_start( $separator, $false, $false, 0 );
$separator->show();

# ряды и колонки, похожести(homogeneous)
$table = new Gtk::Table( 2, 3, $false );
$vbox->pack_start( $table, $false, $true, 0 );
$table->show();

# Add a check button to select displaying of the trough text
# Добавляем кнопку типа select для выбора моды показа или скрытия текста на
# индикаторе состояния процесса
$check1 = new Gtk::CheckButton( "Show text" );
$table->attach( $check1, 0, 1, 0, 1, [ 'expand', 'fill' ],
		['expand', 'fill' ], 5, 5 );
$check1->signal_connect( "clicked", sub {
			    $pbar->set_show_text( $check1->active ); } );
$check1->show();

# Add a check button to toggle activity mode
# Добавляем чекбокс, ответственный за активирование моды
$check2 = new Gtk::CheckButton( "Activity mode" );
$table->attach( $check2, 0, 1, 1, 2, [ 'expand', 'fill' ],
		[ 'expand', 'fill' ], 5, 5 );
$check2->signal_connect( "clicked", sub {
			    $pbar->set_activity_mode( $check2->active ); }
);
$check2->show();

$separator = new Gtk::VSeparator();
$table->attach( $separator, 1, 2, 0, 2, [ 'expand', 'fill' ],
		[ 'expand', 'fill' ], 5, 5 );
$separator->show();

# Добавляем радиокнопку, ответственную за непрерывное изменение индикатора
$button = new Gtk::RadioButton( "Continuous" );
$table->attach( $button, 2, 3, 0, 1, [ 'expand', 'fill' ],
		[ 'expand', 'fill' ], 5, 5 );
$button->signal_connect( "clicked", sub { 
			    $pbar->set_bar_style( 'continuous' ); } );
$button->show();

# Добавляем радиокнопку, ответственную за дискретное изменение индикатора
$button = new Gtk::RadioButton( "Discrete", $button );
$table->attach( $button, 2, 3, 1, 2, [ 'expand', 'fill' ],
		[ 'expand', 'fill' ], 5, 5 );
$button->signal_connect( "clicked", sub {
			    $pbar->set_bar_style( 'discrete' ); } );
$button->show();

$separator = new Gtk::HSeparator();
$vbox->pack_start( $separator, $false, $false, 0 );
$separator->show();

# Кнопка выхода из программы
$button = new Gtk::Button( "Close" );
$button->signal_connect( "clicked", sub { Gtk->exit( 0 ); } );

$vbox->pack_start( $button, $false, $false, 0 );

# Устанавливаем кнопку выхода по дефолту
$button->can_default( $true );

# захват события и постановка ему в соответствие по дефолту,
# например нажатие кнопки "Enter" завершит программу.
$button->grab_default();
$button->show();

$window->show();
main Gtk;
exit( 0 );



### подпрограммы


# таймер, запрашивающий изменение прогрессбара.

sub progress_timeout
{
   my ( $widget ) = @_;

   my $new_val;
   my $adj;

   # Вычисление значения индикатора используюя значение переменной
   # диапазона, определенной как выравненный объект(adjustment object)
   $new_val = $pbar->get_value() + 1;
   $adj = $pbar->adjustment;
   $new_val = $adj->lower if ( $new_val > $adj->upper );

   # Установка нового значения
   $pbar->set_value( $new_val );
   return ( $true );
}



Пример диалога подгружения html-страницы

#!/usr/bin/perl -w

use Gtk;
use strict;

set_locale Gtk;
init Gtk;

my $true = 1;
my $false = 0;

my ($command, $site, $dir, $file, $value, $signal, $window, $button, $vbox, $label, $adj, $pbar);

die "Этой программе необходим wget\n" if ( `which wget` =~ /^\s*$/ );

# Создаем окно
$window = new Gtk::Window( 'toplevel' );
$signal = $window->signal_connect( 'delete_event', sub { Gtk->exit( 0 ); });
$window->border_width( 15 );

$vbox = new Gtk::VBox( $false, 0 );
$window->add( $vbox );

# Ярлык, информирующий пользователя о том, на что он идет
$label = new Gtk::Label( "Downloading Gtk-Perl Tutorial" );
$vbox->pack_start( $label, $false, $false, 10 );
$label->show();

# Определение прогрессбара
$adj = new Gtk::Adjustment( 0, 1, 100, 0, 0, 0 );
$pbar = new_with_adjustment Gtk::ProgressBar( $adj );
$vbox->pack_start( $pbar, $false, $false, 10 );
$pbar->set_format_string( "%p%%" );
$pbar->set_show_text( 1 );
$pbar->set_value( 0 );
$pbar->show();
$vbox->show();

# Runs the main loop as long as events are pending
# Запуск основной части программы(???)
Gtk->main_iteration while ( Gtk->events_pending );

$window->show();

# Установки wget
$command = "wget --dot-style=micro";
$site = "http://personal.riverusers.com";
$dir = "/~swilhelm/download/";
$file = "gtkperl-tutorial.tar.gz";

# Открытие временного сокета для перехвата STDOUT wget
open TMP, "$command $site$dir$file 2>&1 |";

while ( $value =  )
{
   $value =~ s/^.*\[//g;
   $value =~ s/ //g;
   $value =~ s/\%\]//g;
   chomp $value;

   $pbar->set_value( ++$value ) if ( $value =~ /^[0-9]+$/ );

   # Run the main loop as long as events are pending
   # Запуск основной части программы(???)
   Gtk->main_iteration while ( Gtk->events_pending );
}

close TMP;

# завершение загрузки, удаление прогрессбара и информирование пользователя
$vbox->remove( $pbar );

$label->set_text( "Download Complete" );

# Create the close button
$button = new Gtk::Button( "Close" );
$button->signal_connect( 'clicked', sub { Gtk->exit( 0 ); } );
$vbox->pack_start( $button, $false, $false, 0 );
$button->show();

main Gtk;
exit( 0 );





Если есть желание получить список радиокнопок, то необходимо использовать
функцию:


@group = $radiobutton->button_group();



Если необходимо добавить радиокнопку к ранее созданной группе, то надо
написать:


$radiobutton->button_set_group( @group ); 




Пример использования радиокнопок


#!/usr/bin/perl -w

use Gtk;
use strict;

set_locale Gtk;
init Gtk;

my $false = 0;
my $true = 1;

my $window;
my $box1;
my $box2;
my $button;
my $separator;

$window = new Gtk::Window( "toplevel" );
$window->signal_connect( "delete_event", sub { Gtk->exit( 0 ); } );
$window->set_title( "Radio Buttons" );
$window->border_width( 0 );

$box1 = new Gtk::VBox( $false, 0 );
$box1->show();

$box2 = new Gtk::VBox( $false, 10 );
$box2->border_width( 10 );
$box1->pack_start( $box2, $false, $false, 0 );
$box2->show();
$window->add( $box1 );

$button = new Gtk::RadioButton( "button 1" );
$box2->pack_start( $button, $false, $false, 0 );
$button->show();

$button = new Gtk::RadioButton( "button 2", $button );
$button->set_active( $true );
$box2->pack_start( $button, $true, $true, 0 );
$button->show();

$button = new Gtk::RadioButton( "button 3", $button );
$box2->pack_start( $button, $true, $true, 0 );
$button->show();

$button = new Gtk::RadioButton( "button 4", $button );
$box2->pack_start( $button, $true, $true, 0 );
$button->show();

$separator = new Gtk::HSeparator();
$box1->pack_start( $separator, $false, $false, 0 );
$separator->show();

$box2 = new Gtk::VBox( $false, 10 );
$box2->border_width( 10 );
$box1->pack_start( $box2, $false, $true, 0 );
$box2->show();

$button = new Gtk::Button( "Close" );
$button->signal_connect( "clicked", sub { Gtk->exit( 0 ); } );

$box2->pack_start( $button, $true, $true, 0 );
$button->can_default( $true );
$button->grab_default();
$button->show();
$window->show();

main Gtk;
exit( 0 );





когда пример будет запущен, что на экране покажется тчо-то подобное этому
скриншоту(по дефолту выделена 4-я кнопка):

(вставить скриншот)





Иерархия наследования


Object
   +--- Widget
         +--- Range




Категория диапазона включает в себя наиболее часто встречающийся
скроллбар-виджет и почти идентичный по своим действиям скейл-виджет. Весь
спектр виджетов имеет общие графические элементы, в каждом из которых есть
свое окно X-сисетмы, которое обменивается событиями о своем изменении. Все
они содержат окно прокрутки и ползунок(иногда называемый thumbwheel в других
GUI - графический пользовательский интерфейс). Соответственно положение
ползунка можно изменять, либо кликать на полоске прокрутки(подобно тому, как
это сделано при проигрывании mp3 в xmms или winamp). Согласно вышеописанному
выравниванию, величина области, где бегает ползунок, пропорционально постраивается
под значения переменных, свойственных для этого виджета.

Основные функции виджетов диапазона.

Класс виджетов диапазона довольно сложен внутренне, но, подобно всем базовым
классам виджетов, большинство его особенностей представляют интерес для того,
кто хочет сам программировать свойства классов. Почти все функции и исгналы
являются специфическими для данного класса, но, тем не менее, имеется
несколько широкоиспользуемых функций, которые работают для всх виджетов
диапазона.

"update policy" определяет когда во время работы пользователя происходит
изменение переменных, влияющих на выравнивание(относительное построение? -
перевести кусок текста заново). Правила изменения

'continuous' - по умолчанию, сигнал 'value_changed' испускается непрерывно,
даже при малейших изменениях ползунка.

'discontinuous' - 'value_changed' испускается, когда ползунок перемещен и
кнопка манипулятора "МЫШЬ" отпущена.

'delayed' - 'value_changed' появляется, когда юзер отпускает кнопку мыши или
когда ползунок неподвижен в течении какого-то короткого времени. Функция, с
помощью которой можно переопределять эти свойства, выглядить так:

$range->set_update_policy( $policy );

Получение и установка диапазона на лету выполняется примерно так:

$range->get_adjustment();

$range->set_adjustment( $adjustment );

get_adjustment() возвращает выравнивание, с которым связана переменная
$range and set_adjustment()  does absolutely nothing if you pass it the
adjustment that the Range is already using, regardless of whether you
changed any of its fields or not. If you pass it a new Adjustment, it will
unreference the old one if it exists (possibly destroying it), connect the
appropriate signals to the new one, and call the private function
adjustment_changed(), which will (or at least, is supposed to...)
recalculate the size and/or position of the slider and redraw if necessary.
As mentioned in the section on adjustments, if you wish to reuse the same
Adjustment, when you modify its values directly, you should emit the
"changed" signal on it, like this:

$adjustment->signal_emit( "changed" );


Все виджеты диапазона GTK реагируют на нажатие мышиной клавиши более или
менее одинаково. Нажатие в области прокрутки соответственно изменяет
значение page_increment вичитая или добавляя его к текущей величине. В
соответствии с этими действиями так-же перемещается и бегунок(slider).
Щелчок любой кнопкой мыши на стрелках полосы прокрутки(скроллбара)
заставляет изменяться step_increment. 

Скроллбары и скейл-виджеты в GTK могут менять фокус в соответствии с
нажатием клавиш на клавиатуре. Если необходимо отключить фокусировку на
виджете, то это можно сделать при помощи функции

$scrollbar->unset_flags( 'focus' );

(пропущено о том, что есть невеликие различия между горизонтальными и
вертикальными виджетами)

Пример кода, который показывает действия описанных свойств виджетов
диапазона.

#!/usr/bin/perl -w

use Gtk;
use strict;

set_locale Gtk;
init Gtk;

my $false = 0;
my $true = 1;

my $hscale;
my $vscale;
my $window;
my $box1;
my $box2;
my $box3;
my $button;
my $scrollbar;
my $separator;
my $opt;
my $menu;
my $item;
my $label;
my $scale;
my $adj1;
my $adj2;

# Стандартное создание виджета X-window
$window = new Gtk::Window( "toplevel" );
$window->set_title( "range controls" );

$window->signal_connect( "destroy", sub { Gtk->exit( 0 ); } );

$box1 = new Gtk::VBox( $false, 0 );
$window->add( $box1 );
$box1->show();

$box2 = new Gtk::HBox( $true, 10 );
$box2->border_width( 10 );
$box1->pack_start( $box2, $true, $true, 0 );
$box2->show();

# value, lower, upper, step_increment, page_increment, page_size
#обратим внимание, что переменная page_size показывает разницу
#между скроллбар-виджетом и максимальным значением, 
#которое получается после взаимодействия(еще раз перевести)
# Note that the page_size value only makes a difference for
# scrollbar widgets, and the highest value you'll get is actually
# (upper - page_size).
$adj1 = new Gtk::Adjustment( 0.0, 0.0, 101.0, 0.1, 1.0, 1.0 );

$vscale = new Gtk::VScale( $adj1 );
scale_set_default_values( $vscale );
$box2->pack_start( $vscale, $true, $true, 0 );
$vscale->show();

$box3 = new Gtk::VBox( $false, 10 );
$box2->pack_start( $box3, $true, $true, 0 );
$box3->show();

# Reuse the same adjustment
# повторное использование того-же самого выравнивания
$hscale = new Gtk::HScale( $adj1 );
$hscale->set_usize( 200, 30 );
scale_set_default_values( $hscale );
$box3->pack_start( $hscale, $true, $true, 0 );
$hscale->show();

# Reuse the same adjustment again
# еще одно повторное использование
$scrollbar = new Gtk::HScrollbar( $adj1 );
# сделать обновление мгновенным в соответствии с положением скроллбара
$scrollbar->set_update_policy( 'continuous' );
$box3->pack_start( $scrollbar, $true, $true, 0 );
$scrollbar->show();

$box2 = new Gtk::HBox( $false, 10 );
$box2->border_width( 10 );
$box1->pack_start( $box2, $true, $true, 0 );
$box2->show();

# A checkbutton to control whether the value is displayed or not
# Чекбокс, указывающий, показывать или нет значение переменной
$button = new Gtk::CheckButton( "Display value on scale widgets" );
$button->set_active( $true );
$button->signal_connect( "toggled", \&cb_draw_value );
$box2->pack_start( $button, $true, $true, 0 );
$button->show();

$box2 = new Gtk::HBox( $false, 10 );
$box2->border_width( 10 );

# An option menu to change the position of the value
# меню для выбора положения переменной
$label = new Gtk::Label( "Scale Value Position:" );
$box2->pack_start( $label, $false, $false, 0 );
$label->show();

$opt = new Gtk::OptionMenu();
$menu = new Gtk::Menu();

$item = make_menu_item( "Top", \&cb_pos_menu_select, 'top' );
$menu->append( $item );

$item = make_menu_item( "Bottom", \&cb_pos_menu_select, 'bottom' );
$menu->append( $item );

$item = make_menu_item( "Left", \&cb_pos_menu_select, 'left' );
$menu->append( $item );

$item = make_menu_item( "Right", \&cb_pos_menu_select, 'right' );
$menu->append( $item );

$opt->set_menu( $menu );
$box2->pack_start( $opt, $true, $true, 0 );
$opt->show();

$box1->pack_start( $box2, $true, $true, 0 );
$box2->show();

$box2 = new Gtk::HBox( $false, 10 );
$box2->border_width( 10 );

# Yet another option menu, this time for the update policy of the

# scale widgets
$label = new Gtk::Label( "Scale Update Policy:" );
$box2->pack_start( $label, $false, $false, 0 );
$label->show();

$opt = new Gtk::OptionMenu();
$menu = new Gtk::Menu();

$item = make_menu_item ("Continuous", \&cb_update_menu_select, 'continuous' );

$menu->append( $item );

$item = make_menu_item ("Discontinuous", \&cb_update_menu_select, 'discontinuous' );
$menu->append( $item );

$item = make_menu_item ("Delayed", \&cb_update_menu_select, 'delayed' );
$menu->append( $item );

$opt->set_menu( $menu );
$box2->pack_start( $opt, $true, $true, 0 );
$opt->show();

$box1->pack_start( $box2, $true, $true, 0 );
$box2->show();

$box2 = new Gtk::HBox( $false, 10 );
$box2->border_width( 10 );

# An HScale widget for adjusting the number of digits on the
# sample scales.
$label = new Gtk::Label( "Scale Digits:" );
$box2->pack_start( $label, $false, $false, 0 );
$label->show();

$adj2 = new Gtk::Adjustment( 1.0, 0.0, 5.0, 1.0, 1.0, 0.0 );
$adj2->signal_connect( "value_changed", \&cb_digits_scale );
$scale = new Gtk::HScale( $adj2 );
$scale->set_digits( 0 );
$box2->pack_start( $scale, $true, $true, 0 );
$scale->show();

$box1->pack_start( $box2, $true, $true, 0 );
$box2->show();

$box2 = new Gtk::HBox( $false, 10 );
$box2->border_width( 10 );

# And, one last HScale widget for adjusting the page size of the scrollbar
$label = new Gtk::Label( "Scrollbar Page Size:" );
$box2->pack_start( $label, $false, $false, 0 );
$label->show();

$adj2 = new Gtk::Adjustment( 1.0, 1.0, 101.0, 1.0, 1.0, 0.0 );
$adj2->signal_connect( "value_changed", \&cb_page_size, $adj1 );
$scale = new Gtk::HScale( $adj2 );
$scale->set_digits( 0 );
$box2->pack_start( $scale, $true, $true, 0 );
$scale->show();

$box1->pack_start( $box2, $true, $true, 0 );
$box2->show();

$separator = new Gtk::HSeparator();
$box1->pack_start( $separator, $false, $true, 0 );
$separator->show();

$box2 = new Gtk::VBox( $false, 10 );
$box2->border_width( 10 );
$box1->pack_start( $box2, $false, $true, 0 );
$box2->show();

$button = new Gtk::Button( "Quit" );
$button->signal_connect( "clicked", sub { Gtk->exit( 0 ); } );
$box2->pack_start( $button, $true, $true, 0 );
$button->can_default( $true );
$button->grab_default();
$button->show();

$window->show();

main Gtk;
exit( 0 );



### Subroutines

sub cb_pos_menu_select
  {
    my ( $item, $pos ) = @_;
    
    # Set the value position on both scale widgets
    $hscale->set_value_pos( $pos );
    $vscale->set_value_pos( $pos );
  }

sub cb_update_menu_select
  {
    my ( $item, $policy ) = @_;
    
    # Set the update policy for both scale widgets
    $hscale->set_update_policy( $policy );
    $vscale->set_update_policy( $policy );
  }

sub cb_digits_scale
  {
    my ( $adj ) = @_;
    
    # Set the number of decimal places to which adj->value is rounded
    $hscale->set_digits( $adj->value );
    $vscale->set_digits( $adj->value );
  }

sub cb_page_size
  {
    my ( $get, $set ) = @_;
    
    # Set the page size and page increment size of the sample
    # adjustment to the value specified by the "Page Size" scale
    $set->page_size( $get->value );
    $set->page_increment( $get->value );
    
    # Now emit the "changed" signal to reconfigure all the widgets
    # that are attached to this adjustment
    $set->signal_emit_by_name( "changed" );
  }

sub cb_draw_value
  {
    my ( $button ) = @_;
    
    # Turn the value display on the scale widgets off or on depending
    # on the state of the checkbutton
    $hscale->set_draw_value( $button->active );
    $vscale->set_draw_value( $button->active );
  }

# Convenience functions

sub make_menu_item
  {
    my ( $name, $callback, $data ) = @_;
    my $item;
    
    $item = new Gtk::MenuItem( $name );
    $item->signal_connect( "activate", $callback, $data );
    $item->show();
    
    return $item;
  }

sub scale_set_default_values
  {
    my ( $scale ) = @_;
    
    $scale->set_update_policy( 'continuous' );
    $scale->set_digits( 1 );
    $scale->set_value_pos( 'top' );
    $scale->set_draw_value( $true );
  }


# END EXAMPLE PROGRAM



(поместить скриншот)

Можно заметить, что программа не вызывает функцию signal_connect() для 'delete_event',
но вызывает для сигнала 'destroy', так как необработанный сигнал  'Delete_event'
будет завершен сигналом 'destroy', закрывающим окно.







Обзор Gtk-Perl



Предыдущая




Следующая







Часть 30.       Линейки
   

Иерархия наследования
      



Object

   +--- Widget


         +--- Ruler

         


   


Линейка используется для индикации положения курсора мыши.
Она могжет быть как вертикальной, так и горизонтальной. 
В обоих случая линейка занимают всю отведенную окну, в котором она создана,
область. 
Текущее положение курсора мыши на линейке отмечает маленький треугольник.
   

Прежде, чем использовать, линейку необходимо создать. 
Горизонтальная и вертикальная создается следующими методами:

      



         $hruler = new Gtk::HRuler();
      



      



         $vruler = new Gtk::VRuler();
      


   



Создав линейку, мы можем указать ее единицу измерения
      'pixels',
      'inches' или
      'centimeters':

      



         $ruler->set_metric( $metric );
      


По умолчанию используются
      'pixels'.
   


Другой важной характеристикой является отображение насечек на шкале и 
подписей к ним.
Описать это можно с помощью метода
      



         $ruler->set_range( $lower, $upper, $position, $max_size );
      



      
      $lower
      и 
      $upper
определяют соответственно минимальное и максимальное значение
шкалы, а
      $max_size
максимально возможное значение, которое может быть 
отображено данной линейкой.
#!!!! этот параметр очень странно работает...
      $position
определяет начальное положение индикатора на линейке.
   


Можно задать размер вертикльной линейки в 800 пикселей выполнив:

      



         $vruler->set_range( 0, 800, 0, 800 );
      


Подписи к делениям будут каждые 100 пискселов.
Если вдруг мы захотим установить размер от 7 до 16, то нужно выполнить:
      



         $vruler->set_range( 7, 16, 0, 20 );
      


   


Как было замечено, индикатором позиции курсора выступает мальенкий треугольник.
Если линейка используется именно для отображения позиции курсора, то сигнал
      'motion_notify_event'
необходимо соединить с событием
      'motion_notify_event' 
линейки.
Для этого достаточно выполнить команду:

      



        $area->signal_connect( "motion_notify_event",

                               sub { $ruler->motion_notify_event( $_[1] ); } );


   



30.1. Пример использования линеек.


Следующий пример создает арену с вертикальной и горизонтальной линейками.
Размер арены 600 на 400 пикселов.
Горизонтальная линейка будет отображать значения с 7 до 13.
А вертикальная - с 0 до 400, с подписью к делениям каждые 100 пикселов.

Расположим арену и линейки внутри таблицы.

Итак, пример:

   
      
         Исходник
      
   






      
#!/usr/bin/perl -w

use 
Gtk
;
use 
strict
;

set_locale Gtk;
init Gtk;


my
 $false = 0;

my
 $true = 1;


my
 $xsize = 600;

my
 $ysize = 400;


my
 $window;

my
 $table;

my
 $area;

my
 $hrule;

my
 $vrule;


# создаем окно
$window = new Gtk::Window( "toplevel" );
$window->signal_connect( "delete_event", 
sub
 { Gtk->
exit
( 0 ); } );
$window->border_width( 10 );

# Таблица, в которую поместим линейки и арену
$table = new Gtk::Table( 3, 2, $false );
$window->add( $table );

# Создаем арену.
$area = new Gtk::DrawingArea();
$area->size( $xsize, $ysize );
$table->attach( $area, 1, 2, 1, 2, [ 'expand', 'fill' ], 'fill', 0, 0 );
$area->set_events( [ 'pointer_motion_mask', 'pointer_motion_hint_mask' ] );

# Горизонтальная линейка будет наверху. 
# Говорим, чтобы событие горизонтального перемещения курсора мыши
# нужно посылать соответствующему обработчику этой линейки.
$hrule = new Gtk::HRuler();
$hrule->set_metric( 'pixels' );
$hrule->set_range( 7, 13, 0, 20 );
$area->signal_connect( "motion_notify_event",
		       
sub
 { $hrule->motion_notify_event( $_[1] ); } );
$table->attach( $hrule, 1, 2, 0, 1,
		[ 'expand', 'shrink', 'fill' ],
		'fill', 0, 0 );

# Вертикальную линейку разместим слева.
# Аналогично соединим событие перемещения мыши (вертикальное) 
# через арену и соответствующий обработчкик линейки.
$vrule = new Gtk::VRuler();
$vrule->set_metric( 'pixels' );
$vrule->set_range( 0, $ysize, 10, $ysize );
$area->signal_connect( "motion_notify_event",
		       
sub
 { $vrule->motion_notify_event( $_[1] ); } );
$table->attach( $vrule, 0, 1, 1, 2,
		[ 'fill', 'expand', 'shrink' ],
		'fill', 0, 0 );

# и... вылетит птичка. ))
# Показываем все.
$area->show();
$hrule->show();
$vrule->show();
$table->show();
$window->show();

main Gtk;

exit
( 0 );


# Конец примера
      
   









Скриншот




Если вы присмотритесь, то заметите, что указатель мыши не отображается на 
скриншоте (дело в программе, которую я использовал для его создания).
Но вы можете точно указать позицию, в которой он был благодаря линейкам.
   







Предыдущая


На главную


Следующая



Виджеты подсказок

Вверх

Выбор цвета







Иерархия наследования


Object
   +--- Widget
         +--- Range
               +--- Scale


Скейл-виджеты используются для того, чтобы позволить пользователю выбирать или управлять
значением переменной в пределах определенного диапазона. Вы можете
регулировать масштаб виджета, например для определения значения увеличения картинки
или для контроля яркости цвета или для определения времени задержки 
до включения скринсервера. Как и в случае скроллбаров, существуют отдельные типы 
вертикальных и горизонтальных виджетов. Нижеследующие функции определяют
вертикальные и горизонтальные виджеты:



new Gtk::VScale( $adjustment );

new Gtk::HScale( $adjustment );


Аргумент $adjustment может являться уже ранее созданным, или пустым, когда регулирование
было создано со значением 0. Скейл-виджеты диапазона могут показывать текущее значение 
как число при помощи функции. По умлочанию это число показывается, и его можно
изменить при помощи функции  

$scale->set_draw_value( $draw_value );

 $draw_value может быть либо истиной либо ложью.
Значение показываемой переменной округляется до одного десятичного пункта, это значение
можно изменить следующим образом:

$scale->set_digits( $digits );


где $digits - число десятичных знаков, которое Вам необходимо. Можно устанавливать значение
$digits как угодно, но если оно больше 13, то будет происходить перерисовка экрана.

И, в конце значение может быть установлено в разные относительноые положения при
помощи функции

$scale->set_value_pos( $pos );






Иерархия наследования


Object
   +--- Widget
         +--- Range
               +--- Scrollbar


Этот наиболее часто используемый виджет может быть использован только для 
прокрутки некоторых других виджетов, таких как список, лист или viewport.
В других случаях вы должны использовать скейл-виджеты в силу того, что они наиболее дружественные 
и более характерные. Есть два различных вида скроллбаров, вертикальный и 
горизонтальный, создаются такими функциями:

new Gtk::HScrollbar( $adjustment );

new Gtk::VScrollbar( $adjustment );


$adjustment может быть уже определен. Вравнивание может быть нулевым в 
том случае, если вы хотите передать значение этой переменной из другого
виджета, тоесть наследовать.







Gtk-Perl Tutorial



Prev




Next







Chapter 44.       Scrolled Windows
   

Inheritance Hierarchy
      



Object

   +--- Widget


         +--- Container


               +--- Bin

                     +--- ScrolledWindow

         


   

      Scrolled windows are used to create a scrollable area with
      another widget inside it. You may insert any type of widget into
      a scrolled window, and it will be accessible regardless of the
      size by using the scrollbars.
   
      The following function is used to create a new scrolled window.

      



$scrolled_window = new Gtk::ScrolledWindow( $hadjustment,

                                            $vadjustment );


   

      Where the first argument is the adjustment for the horizontal
      direction, and the second, the adjustment for the vertical
      direction.  These are almost always set to a null value.

      



$scrolled_window->set_policy( $hscrollbar_policy,

                              $vscrollbar_policy );


   

      This sets the policy to be used with respect to the scrollbars.
      The first argument sets the policy for the horizontal scrollbar,
      and the second the policy for the vertical scrollbar.
   
      The policy may be either

      'automatic'

      or

      'always'.

      'automatic'

      will automatically decide whether you need scrollbars, whereas

      'always'

      will always leave the scrollbars there.
   
      You can then place your object into the scrolled window using
      the following function.

      



         $scrolled_window->add_with_viewport( $child );
      


   

      The location of the child widget with respect to the scrollbars
      can be set using:

      



         $scrolled_window->set_placement( $placement );
      



      where

      $placement

      can be

      'top_left

      (the default),

      'top_right,

      'bottom_left',

      or

      'bottom_right'.

      A value of

      'top_left'

      means that the widget is in the top left, with the scrollbars to
      the right and bottom of the widget.
   

      You can get and set the adjustments for the horizontal and
      vertical scrollbars using:

      



$scrolled_window->get_hadjustment();

$scrolled_window->get_vadjustment();



$scrolled_window->set_hadjustment( $adjustment );

$scrolled_window->set_vadjustment( $adjustment );


   

      See the chapter on
      
               Adjustment
      
      
      for information on adjustments and how to use them.
   


44.1. Scrolled Window Example

      Here is a simple example that packs a table with 100 toggle
      buttons into a scrolled window.
   
               Scrolled Window Example Source
      
   






      
#!/usr/bin/perl -w

use 
Gtk
;
use 
strict
;

set_locale Gtk;
init Gtk;


my
 $false = 0;

my
 $true = 1;


my
 $window;

my
 $scrolled_window;

my
 $table;

my
 $button;


my
 $buffer;


# Create a new dialog window for the scrolled window to be
# packed into.
$window = new Gtk::Dialog();
$window->signal_connect( "destroy", 
sub
 { Gtk->
exit
( 0 ); } );
$window->set_title( "Scrolled Window Example" );
$window->border_width( 0 );
$window->set_usize( 300, 300 );

# create a new scrolled window.
$scrolled_window = new Gtk::ScrolledWindow( "
", "
" );
$scrolled_window->border_width( 10 );

# the policy is one of "automatic", or "always".  "automatic" will
# automatically decide whether you need scrollbars, whereas "always"
# will always leave the scrollbars there.  The first one is the
# horizontal scrollbar, the second one is the vertical scrollbar.
$scrolled_window->set_policy( "automatic", "always" );

# The dialog window is created with a vbox packed into it
$window->vbox->pack_start( $scrolled_window, $true, $true, 0 );
$scrolled_window->show();

# create a table of 10 by 10 squares.
$table = new Gtk::Table( 10, 10, $false );

# set the spacing to 10 on x and 10 on y
$table->set_row_spacings( 10 );
$table->set_col_spacings( 10 );

# pack the table into the scrolled window
$scrolled_window->add_with_viewport( $table );
$table->show();

# this simply creates a grid of toggle buttons on the table
# to demonstrate the scrolled window.

for
 
my
 $i ( 0..9 )
{
   
for
 
my
 $j ( 0..9 )
   {
      $buffer = "button (" . $i . ", " . $j . ")\n";
      $button = new Gtk::ToggleButton( $buffer );
      $table->attach_defaults( $button, $i, $i + 1, $j, $j + 1 );
      $button->show();
   }
}

# Add a "close" button to the bottom of the dialog.  Notice that instead
# of exiting directly, we are instead telling the $window to close.  This
# way, if we want different behavior when closing the window, we only need
# to change one signal_connect().  An even better way would be to call a
# function to close the window.
$button = new Gtk::Button( "Close" );
$button->signal_connect_object( "clicked", \&Gtk::widget_destory, $window );

# this makes it so the button is the default.
$button->can_default( $true );
$window->action_area->pack_start( $button, $true, $true, 0 );

# This grabs this button to be the default button. Simply hitting
# the "Enter" key will cause this button to activate.
$button->grab_default();

$button->show();
$window->show();
main Gtk;

exit
( 0 );


# END EXAMPLE PROGRAM
      
   









Scrolled Window Example Screenshot



      Try playing with resizing the window.  Notice how the scrollbars
      react. You may also wish to use the

      set_usize()

      call to set the default size of the window or other widgets.
   







Prev


Home


Next



Status Bars

Up

HandleBox







Иерархия наследования


Object
   +--- Widget
         +--- Separators



Сепараторы являются самыми простоыми виджетами. Это всего-лишь линии с
тенью на воне общего виджета. Существуют два типа вертикальные и
горизонтальные:


$hseparator = new Gtk::HSeparator();

$vseparator = new Gtk::VSeparator();



Единственное только то, что сепараторы не используются как разделители меню.
В качестве разделителя тут используется пустое MenuItem.







Обзор Gtk-Perl



Предыдущий




Следующий








Часть  5. Сигналы и события





Содержание

5.1. Теория сигналов и событий

5.2. события

5.3. Созвращаемое значение вызова

5.4. Испускание сигналов

5.5. Удаление вызовов

5.6. Временное отключение вызовов

5.7. Общение с обработчиком сигналов

5.8. Испускание и распространение сигналов





5.1. Теория сигналов и вызовов

GTK - управляемый событиями инструментарий 
сигналов, которые содержатся в main Gtk
до того, как событие произойдет и пройдет контроль в соответствующей функции.
Прохождение контроля реализуется при помощи идеи сигналов. Эти сигналы не
похожи на системные сигналы Unix и не осуществляются при помощи их
использования, хотя терминология практически идентична. Когда происходит 
что-то подобное нажатию кнопки мыши, то соответствующий сигнал "испускается"
виджетом, на котором была нажата кнопка. Реализация этой схемы и является
одной из основных функций GTK. Есть как сигналы, которые наследуют все
виджеты(например 'destroy') так и сигналы, которые являются
специфичными для какого-то типа виджетов, например сигнал 'toggled' на
кнопке toggle.

Чтобы заставить виджет выполнить действие, устанавливаем обработчик сигнала
на вызов определенной функции. Например как-то так:
      



$object->signal_connect( "signal_name", \&signal_func );



$object->signal_connect( signal_name => \&signal_func );



$object->signal_connect( "signal_name", \&signal_func, $optional_data ... );



$object->signal_connect( "signal_name", \&signal_func, @optional_data );



   


Первые две строчки идентичны, вторые две так-же одинаковы, так как аргументы
посылаются списком скаляров. Конечно, возможно посылать акгументы и списком,
на усмотрение разработчика.


Левая переменная signal_connect()
 - виджет, который будет вызывать сигнал. Первый аргумент  - строка,
представляющая сигнал, который в дальнейшем будет регистрироваться.
Второй аргумент - ссылка на вызываемую по сигналу подпрограмму.
Эту подпрограмму называют вызовом обработчика. Если необходимо отдать ему
некоторые данные, то их надо указать в списке после второго аргумента.  
   

Если вы не разбираетесь в ссылках Perl, то обычному вызову подпрограммы
предшествует "\&" и передавая таким образом ссылки на подпрограмму, вы не
можете передавать подпрограмме параметры в скобках.

Для передачи одного сигнала подпрограмме необходимо использовать примерно
такой код:
      




         $object->signal_connect( "signal_name", sub { do_something; } );
      


   

      
Вызывающая фукция обычко определяется примерно так:
      



sub callback_func

  {

    my ( $widget, @data ) = @_;

    ...

  }


   


Первый аргумент посылает вызов всегда как виджет, который бы сгенерировал
данный сигнал и остальная часть аргументов - дополнительные данные,
посланные при помощи функции signal_connect()
Запомните, что Perl не заставляет объявлять или использовать аргументы,
присланные подпрограмме и это является хорошим тоном при программировании.
   

Стоит заметить, что вышеприведенное описание функции обработчика сигнала
иллюстрирует только общую схему работы. Некоторые виджеты испускают
различые по схеме работы сигналы. Например виджет CList 
'select_row' передает параметры колонками и
столбцами.
   



5.2.
События


В добавление к4 описанному механизму передачи сигналов, существует ряд
событий, которые похожи на систему событий X. Запрос может быть добавлен к
следующим событиям: 





event


button_press_event


button_release_event


motion_notify_event


delete_event


destroy_event


expose_event


key_press_event


key_release_event


enter_notify_event


leave_notify_event


configure_event


focus_in_event


focus_out_event


map_event


unmap_event


property_notify_event


selection_clear_event


selection_request_event


selection_notify_event


proximity_in_event


proximity_out_event


drag_begin_event


drag_request_event


drag_end_event


drop_enter_event


drop_leave_event


drop_data_available_event


other_event



В порядке вызова элементов для каждого из этих событий используется функция signal_connect(),
в случае, если необходимо вызвать сигнал, используя только один из
вышеупомянутых имен вместо названия сигнала. Последний аргумент,
передаваемый в вызывающую функцию - структура событий. Например в начале
вызова можно написать: 



         my ( $widget, $data, $event ) = @_;


   


или, есил Вы хотите передать список: 



my ( $widget, @data ) = @_;

my $event = pop( @data );




Некоторыми наиболее употребляемыми полями в структуре (вызовов - ??) явялются

button
, 
keyval
, и 
type
.
 Структура      
button

содержит помер нажатой кнопки(1,2 или 3).
Структура 
keyval

содержит имя кнопки, которая была нажата на клавиатуре(если была).
И структура      
type

содержит нижеперечисленные строчки:




'nothing'


'delete'


'destroy'


'expose'


'motion_notify'


'button_press'


'2button_press'


'3button_press'


'button_release'


'key_press'


'key_release'


'enter_notify'


'leave_notify'


'focus_change'


'configure'


'map'


'unmap'


'property_notify'


'selection_clear'


'selection_request'


'selection_notify'


'proximity_in'


'proximity_out'


'drag_begin'


'drag_request'


'drop_enter'


'drop_leave'


'drop_data_avail'


'cLIent_event'


'visibiLIty_notify'


'no_expose'



Такая структурированность типов сигналов довольно просто позволяет определить
причину события. Если нажали кнопку мыши, то какую? Пример: 



sub some_event

  {

    my ( $widget, @data ) = @_;

    my $event = pop( @data );



    if ( ( defined( $event->{'type'} ) ) and

         ( $event->{'type'} eq 'button_press' ) )

      {

        if ( $event->{'button'} == 3 )

          {

            # right click

          }

        else

          {

            # non-right click

          }

      }

  }


   


Но необходимо отметить, что вышеприведенный код будет работать только в том
случае, если вызов является сгрупированным с одним из событий, упомянутых
выше. Сигналы не посылают своей структуры если неизвестно, сколько
аргументов послано и нет необходимости в этой информации. 
   




5.3. Возвращаемое вызовом значение


Тип, возвращаемый функцией signal_connect() является признаком, который идентифыицирует
функцию вызова. Вы можете иметь сколько вызовов на каждый сигнал и объект, скольно вам
необходимо и каждый вызов будет завершен в порядке очереди, в которой они
следовали.



5.4. Испускание сигналов


Если вы хотите испустить специфический сигнал, вы можете сделать это при
помощи функции 



         $widget->signal_emit( $id );
      








         $widget->signal_emit_by_name( $signal_name );





Агрумент первого вызова является идентификатором тега, который возвращается signal_connect().
Аргумент во второй форме является строкой, определяемой именем сигнала.
   

Также некоторые виджеты имеют функции, испускающие некоторые общие
сигналы. Например функция destroy()
 генерирует сигнал 'destroy'
и функция activate()
генерирует сигнал 'activate'
Эти функции, схожие по названию, рекомендуется использовать в виджетах,
чтобы эмулировать сигналы.



5.5. Удаление вызовов


Id вызова, которые возвращается функцией signal_connect()
также позволяет удалить вызов из списка вызовов при помощи функции signal_disconnect()
например так:




         $widget->signal_disconnect( $id );
      

   


Если необходимо удалить все сигналы, то для этого служит функция 





         $widget->signal_handlers_destroy();





Этот запрос удаляет все текущие сигналы из объекта, заданные первым аргументом.
ЭТа процедура выполняется автоматически при уничтожении виджета и нет
необходимости заботиться о данной функции.
   



5.6. Временное выключение вызовов


Вы также можете временно отключать действие сигналов с помощью группы
функций:
      



$widget->signal_handler_block( $callback_id );

$widget->signal_handler_block_by_func( \&callback, $data );

$widget->signal_handler_block_by_data( $data );



$widget->signal_handler_unblock( $callback_id );

$widget->signal_handler_unblock_by_func( \&callback, $data );

$widget->signal_handler_unblock_by_data( $data );


   




5.7. Общение с обработчиком сигналов 

 Ниже приведен краткий обзор функций, позволяющих работать с обработчиком
сигналов, этот список приведен только для того, чтобы показать что это
возможно, но более подробную информацию можно получить в документации к GTK+

      



$id = $object->signal_connect( $signal_name,

                               \&function,

                               @optional_data );



$id = $object->signal_connect_after( $signal_name,

                                     \&function,

                                     @optional_data );



$id = $object->signal_connect_object( $signal_name,

                                      \&function,

                                      $slot_object );



$id = $object->signal_connect_object_after( $signal_name,

                                            \&function,

                                            $slot_object );



# I'm unsure of this one

$id = $object->signal_connect_full( $name,

                                    \&function,

                                    $callback_marshal,

                                    @optional_data,

                                    \&destroy_function,

                                    $object_signal,

                                    $after );



# I'm not sure of this one either

$id = $object->signal_connect_interp( $name,

                                      \&function,

                                      @optional_data,

                                      \&destroy_function,

                                      $after );



$id = $object->signal_connect_object_while_alive( $signal,

                                                  \&function,

                                                  $alive_object );



$id = $object->signal_connect_while_alive( $signal,

                                           \&function,

                                           @optional_data,

                                           $alive_object );



$object->signal_disconnect( $id );



$object->signal_disconnect_by_func( \&function,

                                    @optional_data );

   




5.8.  Испускание и распространение сигналов


 Эмиссия сигнала - процесс, посредством которого GTK управляет всеми
хандлерами для определенного объекта и сигнала. Сначала, отметьте, что
возвращаемое значение в результате эмиссии сигнала - возвращаемое значение последнего
выполненного хэндлера. Так как сигналы типа 'last',
то обработка будет производиться при помощи дефолтным хендлером, если не
запрашивать signal_connect_after().   
      
Если событие(например "button_press_event") определено, то 
   




         
Начинается обработка события в том виджете, где произошло событие
      



Испустить базовый сигнал "event". Если обработчик возвратит TRUE, остановить
всю обработку.
      


 
Иначе, испустите специфический сигнал "button_press_event". Если обработчик
возвратит TRUE, остановить всю обработку. 
      



Иначе переход к породившему виджету и переиграть предыдущие шаги.
      



Плодолжайте до тех пор, пока некоторый обработчик сигнала не возвратит
истину или когда будет достигнут верхний виджет. 
      


Некоторые следствия вышеупомянутого:
   





Возвращаемое значение обработчика(хэндлера) не будет иметь никакого эффетка,
если это обработчик по умолчанию, если не была вызвана функция
         signal_connect_after().      



Чтобы обработчик сигнала был неуправляем, необходимо вызвать
         signal_connect()
и использовать 
         signal_emit_stop_by_name()
возвращенное значение только ли эффект размноженного сигнала, не текущая
эмиссия. 
      









Предыдущая


Главная


Следующая



Обзор контейнеров

Вверх

Основные контейнеры









Обзор Gtk-Perl 



Предыдущая




Следующая







Chapter 24.       Виджеты накрутки   

Иерархия наследования
      




Object

   +--- Widget


         +--- 
Editable


               +--- 
Entry


                     +--- SpinButton

         


   


Виджет накрутки используется для того, чтобы пользователь мог выбрать
значение из какого-то определенного диапазона. Он состоит из тектового бокса
со стрелочками, позволяющими при нажатии на них увеличивать или уменьшать
значение числа в текстовом боксе. В текстовом боксе также можно вручную
отредактировать числовое значение.  
   

Виджет накрутки может иметь нулевое значение или дробные значения и в
зависимости от времени удержания инкремента/декремента скорость прибавления
увеличивается.
   

Виджет накрутки использует
               выравнивание      
чтобы сохранять информацию о диапазоне значений, в котором находится
значение текстового поля.
   

Вспомните, что виджет диапазона объявляется следующей функцией:

      




$adj = new Gtk::Adjustment( $value,

                            $lower,

                            $upper,

                            $step_increment,

                            $page_increment,

                            $page_size );



Аттрибуты диапазона используются виджетом накрутки в таком виде:
   







$value



               Начальное значение виджета накрутки.
            


$lower



               Минимальное значение.
            


$upper



               Максимальное значение.
            


$step_increment



              Значение инкремента/декремента когда удерживается мышиная
кнопка 1.
            


$page_increment



Значение инкремента/декремента в случае нажатия кнопки 2.
            


$page_size



Не используется.
            





Третья кнопка может использоваться дл того, чтобы увеличивать значения
накрутчика в максимальное и минимальное значения, $upper или $lower
соответственно. Накрутчик можно создать следующим образом:

      




         $spin = new Gtk::SpinButton( $adjustment, $climb_rate, $digits );
      


Переменная 
      $climb_rate
принимает значения между
      0.0
      и
      1.0
и показывает величину изменения скорости увеличения значения в текстовом боксе
накрутчика.
Переменная 
      $digits
определяет число десятичных долей, которые будут выведены в спине.
   


Накрутчик(Spin Button) может быть повторно создан при помощи следующей
функции
      




         $spin->configure( $adjustment, $climb_rate, $digits );
      


   


Сохранение пропорций может быть установлено или восстановлено при помощи
независимого использования двух функций 

      




         $spin->set_adjustment( $adjustment );
      



      



         $spin->get_adjustment();
      

   


Число десятичных позиций также может быть изменено при помощи функции

      




         $spin->set_digits( $digits );
      


   


Значение переменной накрутчика может быть изменено при помощи
функции
      




         $spin->set_value( $value );
      

   


Текущее значение накрутчика может быть восстановлено в виде значения с
плавающей запятой или целочисленно использя функцию
      




         $spin->get_value_as_float();
      



      




         $spin->get_value_as_int();
      


   


Если необходимо изменить значение накрутчика, то это возможно при помощи
следующей функции:
      




         $spin->spin( $direction, $increment );
      


Параметр
      $direction
может принимать одно из приведенных значений
      



'forward'

'backward'

'page_forward'

'page_backward'

'home'

'end'

'user_defined'

   


Эта функция несет в себе мало функциональных возможностей, которые я(автор
tutorial) попытаюсь наиболее хорошо объяснить. Многие из установок
используют настройки выравнивания(Adjustment object), которые связаны с
кнопкой накрутки.
   
      'forward'
      и 
      'backward'
изменяют величину накрутчика значением, указанным в
      $increment,
если 
      $increment
не равен
      0,
когда значение изменено 
      $step_increment
в настройках выравнивания.
   
      'page_forward'
      и 
      'page_backward'
просто изменяют значение накрутчика при помощи 
      $increment.
   
      'home'
Устанавливает значение накрутчика в положение, соответствующее значению
выравнивания(Adjustments).
   
      'end'
Устанавливает значение накрутчика в положение, соответствующее максимальному 
значению выравнивания(Adjustments).
   
      'user_defined'
изменяет значение накрутчика на нужную величину.
   

Тепрерь перейдем от функций к установке и доставке признаков диапазона
накрутчика и функциям, ответственным за отрисовку и поведение накрутчика
непосредственно.
   

Первая из функций используется для того, чтобы задавать размеры текстового
поля виджета вплоть до того, что текстовое поле виджета ограничится только
цифрой, показывающей значение виджета. Это необходимо для того, чтобы
пользователь не мог ввести ничего, кроме цифр:
      




         $spin->set_numeric( $numeric );
      

   


Вы можете установить свойство накрутчика выравниваться в зависимости от
положения виджета между верхним и нижним значениями диапазона при помощи
следующей функции:
      




         $spin->set_wrap( $wrap );
      

   


Также можно заставить накрутчика округлять значения к ближайшему 
      
step_increment
,
который устанавливается в соответствии с базовым выравниванием(Adjustment
object) для накрутчика. Это можно сделать с помощью следующей функции:
      




         $spin->set_snap_to_ticks( $snap_to_ticks );
      

   


Изменить правила поведения накрутчика можно при помощи нижеприведенной
функции
      




         $spin->set_update_policy( $policy );
      


Возможные значения 
      $policy
      принимают одно из двух вариантов: 
      'always'
      или
      'if_valid'.
   


Эти политики определяют поведение накрутчика, разбирая вставленный текст и
сопоставляя необходимым образом его со значениями базовой политики
выравнивания. 
   

В случае 
      'if_valid'
накрутчик только оценивает текст, если введенный текст является числовым и
лежит в пределах определенных общей для всех виджетов приложения
 политикой выравнивания.
В противном случае текст переустанавливается в текущее значение.
   

В случае
      'update_always'
мы игнорируем ошибки в процессе конверации текста в числовое значение.
   

Появление кнопок, необходимых для изменения значения накрутчика возможно при
помощи сприведенной функции:

      




         $spin->set_shadow_type( $shadow_type );
      

   


Как обычно
      $shadow_type
 может быть одной из

      



'in'

'out'

'etched_in'

'etched_out'


   


В заключении можно заставить обновляться накрутчик непосредственно при
изменении:
      




         $spin->update();
      

   



24.1. Пример работы накрутчика

   

      
        Исходник
         






      
#!/usr/bin/perl -w

use 
Gtk
;
use 
strict
;

set_locale Gtk;
init Gtk;


my
 $false = 0;

my
 $true = 1;


my
 $spinner1;

my
 $window;

my
 $frame;

my
 $hbox;

my
 $main_vbox;

my
 $vbox;

my
 $vbox2;

my
 $spinner2;

my
 $spinner;

my
 $button;

my
 $label;

my
 $val_label;

my
 $adj;


# Создаем панель
$window = new Gtk::Window( "toplevel" );
$window->signal_connect( "destroy", 
sub
 { Gtk->
exit
( 0 ); } );
$window->set_title( "Spin Button" );

$main_vbox = new Gtk::VBox( $false, 5 );
$main_vbox->border_width( 10 );
$window->add( $main_vbox );

# Создаем фрейм для неускоренного прокрутчика
$frame = new Gtk::Frame( "Not accelerated" );
$main_vbox->pack_start( $frame, $true, $true, 0 );

$vbox = new Gtk::VBox( $false, 0 );
$vbox->border_width( 5 );
$frame->add( $vbox );

# День, месяц и год
$hbox = new Gtk::HBox( $false, 0 );
$vbox->pack_start( $hbox, $true, $true, 5 );

$vbox2 = new Gtk::VBox( $false, 0 );
$hbox->pack_start( $vbox2, $true, $true, 5 );

$label = new Gtk::Label( "Day :" );
$label->set_alignment( 0, 0.5 );
$vbox2->pack_start( $label, $false, $true, 0 );

$adj = new Gtk::Adjustment( 1.0, 1.0, 31.0, 1.0, 5.0, 0.0 );
$spinner = new Gtk::SpinButton( $adj, 0, 0 );
$spinner->set_wrap( $true );
$spinner->set_shadow_type( 'out' );
$vbox2->pack_start( $spinner, $false, $true, 0 );

$vbox2 = new Gtk::VBox( $false, 0 );
$hbox->pack_start( $vbox2, $true, $true, 5 );

$label = new Gtk::Label( "Month :" );
$label->set_alignment( 0, 0.5 );
$vbox2->pack_start( $label, $false, $true, 0 );

$adj = new Gtk::Adjustment( 1.0, 1.0, 12.0, 1.0, 5.0, 0.0 );

$spinner = new Gtk::SpinButton( $adj, 0, 0 );
$spinner->set_wrap( $true );
$spinner->set_shadow_type( 'etched_in' );
$vbox2->pack_start( $spinner, $false, $true, 0 );

$vbox2 = new Gtk::VBox( $false, 0 );
$hbox->pack_start( $vbox2, $true, $true, 5 );

$label = new Gtk::Label( "Year :" );
$label->set_alignment( 0, 0.5 );
$vbox2->pack_start( $label, $false, $true, 0 );

$adj = new Gtk::Adjustment( 1998.0, 0.0, 2100.0, 1.0, 100.0, 0.0 );
$spinner = new Gtk::SpinButton( $adj, 0, 0 );
$spinner->set_wrap( $false );
$spinner->set_shadow_type( 'in' );
$spinner->set_usize( 55, 0 );
$vbox2->pack_start( $spinner, $false, $true, 0 );

# создаем фрейм для обновляющихся накрутчиков
$frame = new Gtk::Frame( "Accelerated" );
$main_vbox->pack_start( $frame, $true, $true, 0 );

$vbox = new Gtk::VBox( $false, 0 );
$vbox->border_width( 5 );
$frame->add( $vbox );

$hbox = new Gtk::HBox( $false, 0 );
$vbox->pack_start( $hbox, $false, $true, 5 );

$vbox2 = new Gtk::VBox( $false, 0 );
$hbox->pack_start( $vbox2, $true, $true, 5 );

# Создаем ускоренные накрутчики
$label = new Gtk::Label( "Value :" );
$label->set_alignment( 0, 0.5 );
$vbox2->pack_start( $label, $false, $true, 0 );

$adj = new Gtk::Adjustment( 0.0, -10000.0, 10000.0, 0.5, 100.0, 0.0 );
$spinner1 = new Gtk::SpinButton( $adj, 1.0, 2 );
$spinner1->set_wrap( $true );
$spinner1->set_usize( 100, 0 );
$vbox2->pack_start( $spinner1, $false, $true, 0 );

$vbox2 = new Gtk::VBox( $false, 0 );
$hbox->pack_start( $vbox2, $true, $true, 5 );

$label = new Gtk::Label( "Digits :" );
$label->set_alignment( 0, 0.5 );
$vbox2->pack_start( $label, $false, $true, 0 );

$adj = new Gtk::Adjustment( 2, 1, 5, 1, 1, 0 );
$spinner2 = new Gtk::SpinButton( $adj, 0.0, 0 );
$spinner2->set_wrap( $true );
$adj->signal_connect( "value_changed", \&change_digits, $spinner2 );
$vbox2->pack_start( $spinner2, $false, $true, 0 );

$hbox = new Gtk::HBox( $false, 0 );
$vbox->pack_start( $hbox, $false, $true, 5 );

$button = new Gtk::CheckButton( "Snap to 0.5-ticks" );
$button->signal_connect( "clicked", \&toggle_snap, $spinner1 );
$vbox->pack_start( $button, $true, $true, 0 );
$button->set_active( $true );

$button = new Gtk::CheckButton( "Numeric only input mode" );
$button->signal_connect( "clicked", \&toggle_numeric, $spinner1 );
$vbox->pack_start( $button, $true, $true, 0 );
$button->set_active( $true );

$val_label = new Gtk::Label( "
" );

$hbox = new Gtk::HBox( $false, 0 );

$vbox->pack_start( $hbox, $false, $true, 5 );
$button = new Gtk::Button( "Value as Int" );
$button->set_user_data( $val_label );
$button->signal_connect( "clicked", \&get_value, $spinner1, 1 );
$hbox->pack_start( $button, $true, $true, 5 );

$button = new Gtk::Button( "Value as Font" );
$button->set_user_data( $val_label );
$button->signal_connect( "clicked", \&get_value, $spinner1, 2 );
$hbox->pack_start( $button, $true, $true, 5 );

$vbox->pack_start( $val_label, $true, $true, 0 );
$val_label->set_text( "0" );

$hbox = new Gtk::HBox( $false, 0 );
$main_vbox->pack_start( $hbox, $false, $true, 0 );

$button = new Gtk::Button( "Close" );
$button->signal_connect( "clicked", 
sub
 { Gtk->
exit
( 0 ); } );
$hbox->pack_start( $button, $true, $true, 5 );

$window->show_all();

main Gtk;

exit
( 0 );



### Subroutines


# Toggle whether text entry should snap to the tick values


sub
 
toggle_snap

{
   
my
 ( $widget, $spin ) = @_;

   $spin->set_snap_to_ticks( $widget->active );
}


# Toggle whether only numeric input is allowed


sub
 
toggle_numeric

{
   
my
 ( $widget, $spin ) = @_;

   $spin->set_numeric( $widget->active );
}


# Set the number of digits displayed after the decimal point


sub
 
change_digits

{
   
my
 ( $widget, $spin ) = @_;

   $spinner1->set_digits( $spin->get_value_as_int() );
}


# Get the value of the spinner and put in in a label


sub
 
get_value

{
   
my
 ( $widget, $spin, $num ) = @_;

   
my
 $buf = "
";
   
my
 $label;

   $label = new Gtk::Label( $widget->get_user_data() );

   
if
 ( $num == 1 )
   {
      $buf = $spin->get_value_as_int();
   }
   
else

   {
      $buf = $spin->get_value_as_float();
   }

   $val_label->set_text( $buf );
}


# END EXAMPLE PROGRAM
      
   









Скриншот с накрутчиками