1 files changed, 106 insertions, 0 deletions
diff --git a/atari/gemtk/objc.c b/atari/gemtk/objc.c
new file mode 100644
index 000000000..3bf8ebbe0
--- /dev/null
+++ b/atari/gemtk/objc.c
@@ -0,0 +1,106 @@
+/*
+ * Copyright 2013 Ole Loots <ole@monochrom.net>
+ *
+ * This file is part of NetSurf, http://www.netsurf-browser.org/
+ *
+ * NetSurf is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; version 2 of the License.
+ *
+ * NetSurf is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program.  If not, see <http://www.gnu.org/licenses/>.
+ *
+ * Module Description:
+ *
+ * AES Object tree tools.
+ *
+ */
+
+ #include "gemtk.h"
+
+char *get_text(OBJECT * tree, short idx)
+{
+	static char p[]="";
+	USERBLK *user;
+	char *retval;
+
+	switch (tree[idx].ob_type & 0x00FF) {
+		case G_BUTTON:
+		case G_STRING:
+		case G_TITLE:
+			return( tree[idx].ob_spec.free_string);
+		case G_TEXT:
+		case G_BOXTEXT:
+		case G_FTEXT:
+		case G_FBOXTEXT:
+			return (tree[idx].ob_spec.tedinfo->te_ptext);
+		case G_ICON:
+		case G_CICON:
+			return (tree[idx].ob_spec.iconblk->ib_ptext);
+			break;
+
+		default: break;
+	}
+	return (p);
+}
+
+OBJECT *get_tree(int idx)
+{
+
+  OBJECT *tree;
+
+  rsrc_gaddr(R_TREE, idx, &tree);
+
+  return tree;
+}
+
+bool obj_is_inside(OBJECT * tree, short obj, GRECT *area)
+{
+	GRECT obj_screen;
+	bool ret = false;
+
+	objc_offset(tree, obj, &obj_screen.g_x, &obj_screen.g_y);
+	obj_screen.g_w = tree[obj].ob_width;
+	obj_screen.g_h = tree[obj].ob_height;
+
+	ret = RC_WITHIN(&obj_screen, area);
+
+	return(ret);
+}
+
+GRECT * obj_screen_rect(OBJECT * tree, short obj)
+{
+	static GRECT obj_screen;
+
+	get_objframe(tree, obj, &obj_screen);
+
+	return(&obj_screen);
+}
+
+
+void obj_mouse_sprite(OBJECT *tree, int index)
+{
+    MFORM mform;
+    int dum;
+
+    if ((tree[index].ob_type & 0xFF) != G_ICON)
+        return;
+
+    dum = tree[index].ob_spec.iconblk->ib_char;
+    mform . mf_nplanes = 1;
+    mform . mf_fg = (dum>>8)&0x0F;
+    mform . mf_bg = dum>>12;
+    mform . mf_xhot = 0; /* to prevent the mform to "jump" on the */
+    mform . mf_yhot = 0; /* screen (zebulon rules!) */
+
+    for( dum = 0; dum<16; dum ++) {
+        mform . mf_mask[dum] = tree[index].ob_spec.iconblk->ib_pmask[dum];
+        mform . mf_data[dum] = tree[index].ob_spec.iconblk->ib_pdata[dum];
+    }
+    graf_mouse(USER_DEF, &mform);
+}