Gtk2-Perl

1. 개요

Gtk2-Perl은 Perl 프로그래밍 언어를 위한 GTK+ 그래픽 사용자 인터페이스 (GUI) 라이브러리의 바인딩이다. 이 바인딩을 통해 Perl 프로그래머는 GTK+ 라이브러리를 사용하여 GUI 애플리케이션을 개발할 수 있다. 예시 코드는 "Hello World!"라는 제목의 GTK Window를 생성하고, "Press me" 버튼을 포함하며, 버튼 클릭 시 콘솔에 메시지를 출력하는 간단한 GUI 애플리케이션을 보여준다.

2. 예제

이 샘플 프로그램은 "Hello World!"라는 제목의 GTK 창을 생성하고, "Press me"라는 버튼을 포함한다. 버튼을 누르면 "Hello again - the button was pressed"라는 메시지가 "clicked" 신호에 연결된 익명 서브루틴 내부의 콜백을 통해 콘솔에 표시된다.

2.1. 펄 GTK2 "Hello World" 예제

perl
use Gtk2 '-init';

$window = Gtk2::Window->new('toplevel');
$window->set_title("Hello World!");

$button = Gtk2::Button->new("Press me");
$button->signal_connect(clicked => sub { print "Hello again - the button was pressed\n"; });

$window->add($button);
$window->show_all;

Gtk2->main;

0;
```

이 예제 프로그램은 "Hello World!"라는 제목의 GTK 창을 생성하며, "Press me"라는 버튼을 포함한다. 버튼을 클릭하면 "clicked" 신호에 연결된 서브루틴 내 콜백을 통해 "Hello again - the button was pressed"라는 메시지가 콘솔에 출력된다.

2.1.1. 코드 설명

perl
use Gtk2 '-init';
```

Gtk2 모듈을 로드하고 초기화한다.

```perl
$window = Gtk2::Window->new('toplevel');
$window->set_title("Hello World!");
```

`$window` 변수에 새로운 최상위 윈도우를 생성하고, 윈도우의 제목을 "Hello World!"로 설정한다.

```perl
$button = Gtk2::Button->new("Press me");
$button->signal_connect(clicked => sub { print "Hello again - the button was pressed\n"; });
```

`$button` 변수에 "Press me" 텍스트를 가진 새로운 버튼을 생성한다. 버튼의 "clicked" 신호에 익명 서브루틴을 연결하여, 버튼이 클릭될 때마다 "Hello again - the button was pressed\n" 메시지를 콘솔에 출력하는 콜백을 실행한다.

```perl
$window->add($button);
$window->show_all;
```

생성된 버튼을 윈도우에 추가하고, 윈도우와 버튼을 모두 화면에 표시한다.

```perl
Gtk2->main;

0;
```

GTK 메인 루프를 시작하여 사용자 입력을 기다린다. 마지막의 `0;`은 Perl 스크립트가 성공적으로 종료되었음을 나타낸다.