- 追加された行はこのように表示されます。
- 削除された行は
このように表示されます。
!!! ダウンロード
* {{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
{{include_html _code_gtk3_textview_stdin}}