標準入力からのデータをTextViewに表示 #hsp3 #gtk3

ダウンロード

• cldlg_20160221.zip(231)

メインスクリプト

/*
  標準入力からのテキストを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