\ ------------------- Alert (About Box) -----------------------------------
\ --- アラートの宣言 ---
1 alert aboutBox
\ --- アバウト画面の初期化 ---
xts{ null } 128 init: aboutBox \ resID 128 のアラートを使用
\ --- アバウト表示ルーチン ---
:a ShowAboutBox
show: aboutBox
;a
\ ------------------- Menus -----------------------------------------------
\ --- メニューの宣言 ---
1 menu fileMenu
\ --- アプリケーション終了ルーチン ---
:a QuitApp
bye
;a
\ --- メニューの初期化 ---
xts{ ShowAboutBox DoDsk } 128 init: appleMen \ resID 128 のメニューを使用
xts{ QuitApp } 129 init: fileMenu \ resID 129 のメニューを使用
\ --- メニューバーの初期化 ---
: MenuInit
getnew: appleMen
getnew: fileMenu
appleMen fileMenu 2 init: menuBar
;
\ ------------------- Start Up --------------------------------------------
\ --- ウインドウの宣言 ---
selwindow helloWin
\ --- ウインドウアイテムの宣言 ---
statictext helloText
\ --- メインルーチン ---
: GO
\ --- リソースファイルの読み込み ---
instld?
NIF
" Hello.rsrc" OpenResFile
THEN
\ --- カーソルを消す ---
-curs
\ --- メニューを設定 ---
MenuInit
\ --- ウインドウの初期化 ---
false setGrow: helloWin
false setZoom: helloWin
20 60 220 180 setbounds: helloWin
" Window" docWind true false new: helloWin
\ --- ウインドウアイテムの初期化 ---
55 60 moveto: helloText
" Osaka" fontName: helloText
12 fontSize: helloText
" Hello, World!" put: helloText
\ --- ウインドウアイテムをウインドウにセット ---
helloText add: helloWin
\ --- カーソルを表示 ---
arrowCurs
\ --- イベントループ ---
eventloop
;
\ ------------------- Error -----------------------------------------------
\ --- エラー処理 ---
: CRASH
3 beep 3 beep 3 beep
bye
;
戻る