« 夏に乾杯! | トップページ | DockBarX復活!(0.39.5.1) »

初めてのがうちょ(+GTK)

Gauche(本当は「ごーしゅ」らしい)でのGTK付きのプログラミング。(笑)
#がうちょで刷り込まれてしまったので、Gaucheは「がうちょ」、OCamlは「おかむら」と呼称しております。
ソースコードはこれ。


(use gtk)

(define close-window (lambda _ (gtk-main-quit)))

(define (main args)
(gtk-init args)
(let ((window (gtk-window-new GTK_WINDOW_TOPLEVEL))
(vbox (gtk-vbox-new #f 0)))
(g-signal-connect window "delete_event" close-window)
(gtk-container-add window vbox)
(add-new-image vbox)
(gtk-widget-show-all window))
(gtk-main))

(define (add-new-image vbox)
(let ((image (gtk-image-new)))
(gtk-image-set-from-file image "/home/kaoru/Projects/gauche/splash.jpg")
(gtk-box-pack-start vbox image #f #f 0)))


参考サイトはこれ

ほぼ丸写し。(笑)

で、成果物はこれ。

送信者 Blog

みくつべ♪のスプラッシュを表示してみました。
そんだけ。
終了ボタン押すと終了する。
そんだけ。

初めてのがうちょ。(笑)

やったぁ、これでワタクシもがうちょ使いだ!(嘘

|

« 夏に乾杯! | トップページ | DockBarX復活!(0.39.5.1) »

Ubuntu」カテゴリの記事

パソコン・インターネット」カテゴリの記事

コメント

コメントを書く



(ウェブ上には掲載しません)




トラックバック

この記事のトラックバックURL:
http://app.cocolog-nifty.com/t/trackback/500703/48926304

この記事へのトラックバック一覧です: 初めてのがうちょ(+GTK):

« 夏に乾杯! | トップページ | DockBarX復活!(0.39.5.1) »