!!! ダウンロード
* {{ref cldlg_20160221.zip}}

!!! メインスクリプト
	/*
	  標準入力からのテキストをtextviewに表示
	 */
	*_build
	#packopt name  "cldlg"
	#runtime "hsp3cl"
	
	*_include
	#include "hspinet.as"
	#include "gtk+.as"
	#include "h_myconsts.as"
	#include "m_stdio.as"
	#include "modclbk.as"
	  // コールバック関数登録
	  newclbk3  cb_win_delete_event, 3, *on_win_delete_event, CLBKMODE_CDECL@
	
	*_main
	  // 入力
	  input2  input_buf
	  size  = stat
	  nkfcnv  input_buf, input_buf, "wS", size, ( size * 4 )
	
	  gtk_init  NULL@, NULL@
	
	  // GTKのデフォルトGUIフォントを変更
	  gtk_settings_get_default
	  gtk_settings_set_string_property stat, "gtk-font-name", "meiryo, bold 11", NULL@;
	
	  // window
	  gtk_window_new  GTK_WINDOW_TOPLEVEL@
	  win  = stat
	  gtk_window_set_position  win, GTK_WIN_POS_CENTER@
	  g_signal_connect_data  win, "delete-event", cb_win_delete_event, NULL@, 0, 0
	  
	  // scrolledwindow
	  gtk_scrolled_window_new  NULL@, NULL@
	  scw  = stat
	  gtk_scrolled_window_set_min_content_width  scw, 600
	  gtk_scrolled_window_set_min_content_height  scw, 400
	
	  // textview
	  gtk_text_view_new
	  tvw  = stat
	  gtk_text_view_set_wrap_mode  tvw, GTK_WRAP_WORD@
	  gtk_text_view_get_buffer  tvw
	  gtk_text_buffer_set_text  stat, input_buf, -1
	
	  // ウィンドウ組み立て
	  gtk_container_add  win, scw
	  gtk_container_add  scw, tvw
	
	  // ウィンドウ表示、メインループ開始
	  gtk_widget_show_all  win
	  gtk_window_present  win  ; コンソールウィンドウが表示されない状態で起動された時に
	                           ; これを実行しないとウィンドウが表示されない場合がある
	  gtk_main
	  end
	
	*_signal_handlers
	
	*on_win_delete_event
	  gtk_main_quit
	  return