From 7ae3b4656b4fc011520bdffe76a15a3a7569e9e0 Mon Sep 17 00:00:00 2001
From: "Mirar (Pontus Hagland)" <pike@sort.mirar.org>
Date: Mon, 4 May 1998 18:28:08 +0200
Subject: [PATCH] bugfixes (create was illegal)
Rev: src/modules/Image/font.c:1.37
---
src/modules/Image/font.c | 13 ++++++++++---
1 file changed, 10 insertions(+), 3 deletions(-)
diff --git a/src/modules/Image/font.c b/src/modules/Image/font.c
index e71e161061..1d9cdd014c 100644
--- a/src/modules/Image/font.c
+++ b/src/modules/Image/font.c
@@ -1,4 +1,4 @@
-/* $Id: font.c,v 1.36 1998/05/04 11:49:57 mirar Exp $ */
+/* $Id: font.c,v 1.37 1998/05/04 16:28:08 mirar Exp $ */
#include "global.h"
#include <config.h>
@@ -7,7 +7,7 @@
/*
**! module Image
**! note
-**! $Id: font.c,v 1.36 1998/05/04 11:49:57 mirar Exp $
+**! $Id: font.c,v 1.37 1998/05/04 16:28:08 mirar Exp $
**! class font
**!
**! note
@@ -332,6 +332,13 @@ static INLINE void write_char(struct _char *ci,
**! Similar to <ref>load</ref>().
*/
+void font_load(INT32 args);
+
+void font_create(INT32 args)
+{
+ if (args) font_load(args);
+ pop_n_elems(1);
+}
void font_load(INT32 args)
{
@@ -766,7 +773,7 @@ void init_font_programs(void)
"function(string:object|int)",0);
add_function("create",font_load,
- "function(string:object|int)",0);
+ "function(void|string:void)",0);
add_function("write",font_write,
"function(string:object)",0);
--
GitLab