1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

$id =~ s/ //g; #스페이스 공백 제거
if($id eq ''){
	show_message_dialog($window, #에러메세지 출력
	$m_type->{'nick'},		
	$error_msg{id_empty},
	'ok');

} 
elsif($passwd eq ''){
	show_message_dialog($window,
	$m_type->{'nick'},		
	$error_msg{pw_empty},
	'ok');
}	

use Glib qw/TRUE FALSE/;
use Gtk2 '-init';

# 새로운 콜백함수 이 함수는 데이터를 전달한다 

# 모니터로 문자열을 출력해준다.
sub callback
{
	my ($button, $data) = @_;
	
	print "Hello again - $data was pressed\n";
}

# 다른 콜백함수
sub delete_event
{
	Gtk2->main_quit;
	return FALSE;
}

# 새로운 윈도우를 만든다.
$window = Gtk2::Window->new('toplevel');

# 만든 윈도우의 제목을 적는다.
# 윈도우 창의 이름은 "Hello Buttons!"
$window->set_title("Hello Buttons!");

# 여기서 delete_event 에 대한 처리를 설정한다

# exits GTK.
$window->signal_connect(delete_event => \&delete_event);

# 윈도우의 테두리 너비를 조정한다.
$window->set_border_width(10);

# 우리는 위젯을 팩으로 하여 상자를 하나 만든다. 이것을 자세하게 설명하자면

# packing은 section이다. 이 박스는 실제로는 눈에 보이진 않는다.






# 이것은 단지 위젯을 쓰기 위한 도구로만 사용이 된다.
$box1 = Gtk2::HBox->new(FALSE, 0);

# 메인 윈도우에 이 상자를 넣는다.
$window->add($box1);

# 새로운 버튼을 만들고 레이블을 "Button 1"로 설정한다

$button = Gtk2::Button->new("Button 1");

# 이제 버튼을 클릭했을 때, 콜백함수를 호출하도록 설정한다.


# 인수로는 "button 1" 이라는 문자열 넣어서 호출하겠다.
$button->signal_connect(clicked => \&callback, 'button 1');

# Gtk2::Container::add 모듈 대신 , pack 눈에 보이지 않게 버튼을 안에다 넣는다.
# 박스는 윈도우안에 속하게 되었다.
$box1->pack_start($button, TRUE, TRUE, 0);

# 이것은 GTK 를 위한 준비단계를 말하는것이기 때문에 이 단계를 항상 기억해야 한다.

# 버튼이 완료되었고 이제 버튼을 출력 할 수 있다.

$button->show;

# 두번째 버튼은 동일하게 만들어 주면 된다.

$button = Gtk2::Button->new("Button 2");

# 같은 콜백 함수를 호출 하지만 다른 인자값을 넘긴다.

# "button 2" instead.
$button->signal_connect(clicked => \&callback, 'button 2');

$box1->pack_start($button, TRUE, TRUE, 0);

# 버튼들을 보여주는 순서들이 중요하지는 않지만

# 윈도우의 마지막부분에 한번에 모두 보여주는것을 추천한다.

$button->show;

$box1->show;

$window->show;

# Rest in main and wait for the fun to begin!
Gtk2->main;

0;