FRTM Sample -- Window Image by Mr. nakanishi

[Up]

結果

mvpwin.png(0.9KB)

ワード定義

nakanishi さんが闇掲示板に掲載されたワードの定義を一部変更したものです． B-Free 上では漢字が表示できるのですが，UNIX+X11 版ではまだアルファベッ トのみの表示となっているので，uindou の定義を変えさせていただきました． 
: black
0 setcolor 0 0 640 240 rectf
;
: title
7 setcolor
36 7 23 23 ellipsf
137 7 23 23 ellipsf
48 7 100 23 rectf
8 setcolor
40 8 22 22 ellipsf
0 setcolor
43 12 moveto 0 14 rlineto
43 12 moveto 13 0 rlineto
46 15 moveto 9 0 rlineto
46 19 moveto 7 0 rlineto
46 23 moveto 9 0 rlineto
15 setcolor
57 12 moveto 0 14 rlineto
44 26 moveto 12 0 rlineto
45 14 moveto 9 0 rlineto
45 18 moveto 7 0 rlineto
45 22 moveto 9 0 rlineto
;
: uindou
0 setcolor 7 setbgc
69 10 (Window) drawstr
;
: mvpwin
black
7 setcolor
36 27 570 177 rectf
8 setcolor
39 30 564 171 rect
37 204 moveto 569 0 rlineto
606 28 moveto 0 176 rlineto
15 setcolor
40 31 562 169 rectf
title
uindou
;
naniwa@rbt.his.fukui-u.ac.jp