diff --git a/lib/xwidgets/motif/list.d b/lib/xwidgets/motif/list.d
index 011234b..7d8a07a 100644
--- a/lib/xwidgets/motif/list.d
+++ b/lib/xwidgets/motif/list.d
@@ -41,9 +41,9 @@
tail = ret = P_Make_List (Make_Integer (len), Null);
GC_Link2 (ret, tail);
for ( ; len > 0; len--, tail = Cdr (tail)) {
- if (!XmStringGetLtoR (*tab++, XmSTRING_DEFAULT_CHARSET, &text))
- text = \"\";
- Car (tail) = Make_String (text, strlen (text));
+ if (!XmStringGetLtoR (*tab++, XmSTRING_DEFAULT_CHARSET, &text))
+ text = \"\";
+ Car (tail) = Make_String (text, strlen (text));
}
GC_Unlink;
return ret;
@@ -66,18 +66,18 @@
GC_Node2;
if (!XmStringGetLtoR (p->item, XmSTRING_DEFAULT_CHARSET, &text))
- text = \"\";
+ text = \"\";
ret = s = Make_String (text, strlen (text));
GC_Link2 (ret, s);
ret = Cons (ret, Null);
if (p->reason == XmCR_MULTIPLE_SELECT
- || p->reason == XmCR_EXTENDED_SELECT) {
- s = String_Table_To_Scheme (p->selected_items, p->selected_item_count);
- ret = Cons (s, ret);
- s = Bits_To_Symbols ((unsigned long)p->selection_type, 0, Type_Syms);
- ret = Cons (s, ret);
+ || p->reason == XmCR_EXTENDED_SELECT) {
+ s = String_Table_To_Scheme (p->selected_items, p->selected_item_count);
+ ret = Cons (s, ret);
+ s = Bits_To_Symbols ((unsigned long)p->selection_type, 0, Type_Syms);
+ ret = Cons (s, ret);
} else {
- ret = Cons (Make_Integer (p->item_position), ret);
+ ret = Cons (Make_Integer (p->item_position), ret);
}
s = Get_Any_CB ((XmAnyCallbackStruct *)p);
ret = Cons (Cdr (s), ret);
diff --git a/lib/xwidgets/motif/row-column.d b/lib/xwidgets/motif/row-column.d
index a38d4e2..3f3a518 100644
--- a/lib/xwidgets/motif/row-column.d
+++ b/lib/xwidgets/motif/row-column.d
@@ -54,7 +54,7 @@
XtSetArg (a, XmNwhichButton, &b);
XtGetValues (popup, &a, 1);
if (ep->button != b)
- return;
+ return;
XmMenuPosition (popup, ep);
XtManageChild (popup);
}")
@@ -83,11 +83,11 @@
XtSetArg (a, XmNuserData, &client_data);
XtGetValues (WIDGET(w)->widget, &a, 1);
if (client_data)
- XtRemoveEventHandler (WIDGET(w)->widget, ButtonPressMask, 0,
- Post_Handler, client_data);
+ XtRemoveEventHandler (WIDGET(w)->widget, ButtonPressMask, 0,
+ Post_Handler, client_data);
client_data = (XtPointer)WIDGET(m)->widget;
XtAddEventHandler (WIDGET(w)->widget, ButtonPressMask, 0,
- Post_Handler, client_data);
+ Post_Handler, client_data);
client_data = (XtPointer)WIDGET(m)->widget;
XtSetValues (WIDGET(w)->widget, &a, 1);
return Void;")
diff --git a/lib/xwidgets/motif/scroll-bar.d b/lib/xwidgets/motif/scroll-bar.d
index 7d0e360..149bc6f 100644
--- a/lib/xwidgets/motif/scroll-bar.d
+++ b/lib/xwidgets/motif/scroll-bar.d
@@ -62,11 +62,11 @@
(c->scheme 'callback:scroll-bar-decrementCallback scrollbar-callback->scheme)
(c->scheme 'callback:scroll-bar-incrementCallback scrollbar-callback->scheme)
(c->scheme 'callback:scroll-bar-pageDecrementCallback
- scrollbar-callback->scheme)
+ scrollbar-callback->scheme)
(c->scheme 'callback:scroll-bar-pageIncrementCallback
- scrollbar-callback->scheme)
+ scrollbar-callback->scheme)
(c->scheme 'callback:scroll-bar-dragCallback scrollbar-callback->scheme)
(c->scheme 'callback:scroll-bar-toTopCallback scrollbar-callback->scheme)
(c->scheme 'callback:scroll-bar-toBottomCallback scrollbar-callback->scheme)
(c->scheme 'callback:scroll-bar-valueChangedCallback
- scrollbar-callback->scheme)
+ scrollbar-callback->scheme)
diff --git a/lib/xwidgets/motif/support.d b/lib/xwidgets/motif/support.d
index f4be1ab..19aa4f6 100644
--- a/lib/xwidgets/motif/support.d
+++ b/lib/xwidgets/motif/support.d
@@ -89,7 +89,7 @@
Destroy_Event_Args (args);
}
ret = Cons (Bits_To_Symbols ((unsigned long)p->reason, 0, Reason_Syms),
- ret);
+ ret);
GC_Unlink;
return ret;
}")
@@ -103,7 +103,7 @@
GC_Node2;
if (!XmStringGetLtoR (p->value, XmSTRING_DEFAULT_CHARSET, &text))
- text = \"\";
+ text = \"\";
ret = s = Make_String (text, strlen (text));
GC_Link2 (ret, s);
ret = Cons (ret, Null);
@@ -124,13 +124,13 @@
Alloca_Begin;
tab = (XmString *)XtMalloc (Get_Integer (P_Length (x))
- * sizeof (XmString));
+ * sizeof (XmString));
/* tab is never freed since the converter must return a new address
* each time it is called.
*/
for (t = x; TYPE(t) == T_Pair; t = Cdr (t)) {
- Get_Strsym_Stack (Car (t), s);
- tab[i++] = XmStringCreate (s, XmSTRING_DEFAULT_CHARSET);
+ Get_Strsym_Stack (Car (t), s);
+ tab[i++] = XmStringCreate (s, XmSTRING_DEFAULT_CHARSET);
}
Alloca_End;
return (XtArgVal)tab;
@@ -195,7 +195,7 @@
(define xm-string->scheme
" char *text;
if (!XmStringGetLtoR ((XmString)x, XmSTRING_DEFAULT_CHARSET, &text))
- text = \"\";
+ text = \"\";
return Make_String (text, strlen (text));")
(define scheme->xm-string
diff --git a/lib/xwidgets/motif/toggle-btn.d b/lib/xwidgets/motif/toggle-btn.d
index 1175385..fea0138 100644
--- a/lib/xwidgets/motif/toggle-btn.d
+++ b/lib/xwidgets/motif/toggle-btn.d
@@ -49,4 +49,4 @@
(c->scheme 'callback:toggle-button-valueChangedCallback
toggle-button-callback->scheme)
(c->scheme 'callback:toggle-button-gadget-valueChangedCallback
- toggle-button-callback->scheme)
+ toggle-button-callback->scheme)
diff --git a/lib/xwidgets/xaw/grip.d b/lib/xwidgets/xaw/grip.d
index 3aea3ca..847bade 100644
--- a/lib/xwidgets/xaw/grip.d
+++ b/lib/xwidgets/xaw/grip.d
@@ -46,10 +46,10 @@
Destroy_Event_Args (args);
t = P_Make_List (Make_Integer (p->num_params), Null);
for (i = 0, Cdr (ret) = t; i < p->num_params; i++, t = Cdr (t)) {
- Object s;
-
- s = Make_String (p->params[i], strlen (p->params[i]));
- Car (t) = s;
+ Object s;
+
+ s = Make_String (p->params[i], strlen (p->params[i]));
+ Car (t) = s;
}
GC_Unlink;
return ret;")
diff --git a/lib/xwidgets/xaw/list.d b/lib/xwidgets/xaw/list.d
index 03088f9..5774102 100644
--- a/lib/xwidgets/xaw/list.d
+++ b/lib/xwidgets/xaw/list.d
@@ -40,8 +40,8 @@ static char **Get_List (Object x) {
n = Fast_Length (x);
l = (char **)XtMalloc ((n+1) * sizeof (char *));
for (i = 0; i < n; i++, x = Cdr (x)) {
- Get_Strsym_Stack (Car (x), s);
- l[i] = XtNewString (s);
+ Get_Strsym_Stack (Car (x), s);
+ l[i] = XtNewString (s);
}
l[i] = 0;
Alloca_End;
@@ -55,7 +55,7 @@ static char **Get_List (Object x) {
(c->scheme 'callback:list-callback
" XawListReturnStruct *p = (XawListReturnStruct *)x;
return Cons (Make_String (p->string, strlen (p->string)),
- Make_Integer (p->list_index));")
+ Make_Integer (p->list_index));")
(scheme->c 'list-list
" return (XtArgVal)Get_List (x);")
@@ -82,6 +82,6 @@ static char **Get_List (Object x) {
Check_Widget_Class (w, listWidgetClass);
p = XawListShowCurrent (WIDGET(w)->widget);
if (p->list_index == XAW_LIST_NONE)
- return False;
+ return False;
return Cons (Make_String (p->string, strlen (p->string)),
- Make_Integer (p->list_index));")
+ Make_Integer (p->list_index));")
diff --git a/lib/xwidgets/xaw/paned.d b/lib/xwidgets/xaw/paned.d
index 1808560..2699b91 100644
--- a/lib/xwidgets/xaw/paned.d
+++ b/lib/xwidgets/xaw/paned.d
@@ -40,7 +40,7 @@
(define-primitive 'paned-set-min-max! '(w min max)
" Check_Widget (w);
XawPanedSetMinMax (WIDGET(w)->widget, Get_Integer (min),
- Get_Integer (max));
+ Get_Integer (max));
return Void;")
(define-primitive 'paned-get-min-max '(w)
diff --git a/lib/xwidgets/xaw/porthole.d b/lib/xwidgets/xaw/porthole.d
index 29dda26..04b014b 100644
--- a/lib/xwidgets/xaw/porthole.d
+++ b/lib/xwidgets/xaw/porthole.d
@@ -59,6 +59,6 @@
ret = Cons (Make_Integer (p->slider_y), ret);
ret = Cons (Make_Integer (p->slider_x), ret);
ret = Cons (Bits_To_Symbols ((unsigned long)p->changed, 1, Panner_Syms),
- ret);
+ ret);
GC_Unlink;
return ret;")
diff --git a/lib/xwidgets/xaw/simplemenu.d b/lib/xwidgets/xaw/simplemenu.d
index 1c3bdc8..35383af 100644
--- a/lib/xwidgets/xaw/simplemenu.d
+++ b/lib/xwidgets/xaw/simplemenu.d
@@ -39,7 +39,7 @@
(define-primitive 'simplemenu-get-active-entry '(w)
" Check_Widget_Class (w, simpleMenuWidgetClass);
return
- Make_Widget_Foreign (XawSimpleMenuGetActiveEntry (WIDGET(w)->widget));")
+ Make_Widget_Foreign (XawSimpleMenuGetActiveEntry (WIDGET(w)->widget));")
(define-primitive 'simplemenu-clear-active-entry '(w)
" Check_Widget_Class (w, simpleMenuWidgetClass);
diff --git a/lib/xwidgets/xaw/stripchart.d b/lib/xwidgets/xaw/stripchart.d
index 13461d6..0eeac36 100644
--- a/lib/xwidgets/xaw/stripchart.d
+++ b/lib/xwidgets/xaw/stripchart.d
@@ -55,7 +55,7 @@
XtSetArg (a[0], XtNgetValue, &c);
XtGetValues (WIDGET(w)->widget, a, 1);
if (c[0].callback)
- Primitive_Error (\"stripchart already has a sampler\");
+ Primitive_Error (\"stripchart already has a sampler\");
i = Register_Function (p);
XtAddCallback (WIDGET(w)->widget, XtNgetValue, Get_Value, (XtPointer)i);
return Make_Id ('s', (XtPointer)WIDGET(w)->widget, i);")
@@ -65,6 +65,6 @@
w = (Widget)Use_Id (i, 's');
XtRemoveCallback (w, XtNgetValue, Get_Value,
- (XtPointer)IDENTIFIER(i)->num);
+ (XtPointer)IDENTIFIER(i)->num);
Deregister_Function (IDENTIFIER(i)->num);
return Void;")