Commit: master - mruby_btron_window (git)

BTRONのウィンドウを扱うmrbgemの開発用

Commit MetaInfo

• Revision: e9c2d165b34c85a2fc902ea811434c937a9161f5 (tree)
• Time: 2017-06-14 01:45:11
• Author: ornse01 <ornse01@user...>
• Commiter: ornse01

Log Message

add open/close system call

Change Summary

• modified: src/window.c

Incremental Difference

--- a/src/window.c
+++ b/src/window.c
@@ -1,12 +1,20 @@
 #include "mruby.h"
+
 #include <bstdio.h>
+#include <btron/btron.h>
+#include <btron/hmi.h>
 
 static mrb_value
 mrb_opn_wnd(mrb_state *mrb, mrb_value self)
 {
+	PAT	bgpat = {{0, 16, 16, 0x10FFFFFF, 0x10FFFFFF, FILL100}};
+	RECT r = {{0, 0, 100, 100}};
+	WID wid = wopn_wnd(WA_NORMAL, 0, &r, NULL, 0, NULL, &bgpat, NULL);
+
 	struct RClass* wid_class = mrb_class_get(mrb, "WID");
     mrb_value wid_value = mrb_obj_value(wid_class);
-    mrb_value real_value = mrb_fixnum_value(25);
+    mrb_value real_value = mrb_fixnum_value(wid);
+
 	return mrb_funcall(mrb, wid_value, "new", 1, real_value);
 }
 
@@ -14,13 +22,16 @@ static mrb_value
 mrb_cls_wnd(mrb_state *mrb, mrb_value self)
 {
 	mrb_value s2, id_value;
-	mrb_int real_value;
+	mrb_int wid;
 
 	mrb_get_args(mrb, "o", &s2);
 
 	id_value = mrb_funcall(mrb, s2, "id", 0);
-	real_value = mrb_fixnum(id_value);
-	printf("fixnum: %d\n", real_value);
+	wid = mrb_fixnum(id_value);
+
+	wcls_wnd(wid, CLR);
+	printf("fixnum: %d\n", wid);
+
 	return self;
 }