From dcdb7f3f160ecfb832aa4ec4d54138df70ac56c9 Mon Sep 17 00:00:00 2001 From: sam Date: Mon, 18 Sep 2006 16:59:55 +0000 Subject: [PATCH] * Remove tabs from source code. Another excuse to test the buildbot. git-svn-id: svn://svn.zoy.org/elk/trunk@273 55e467fa-43c5-0310-a8a2-de718669efc6 --- lib/xwidgets/motif/list.d | 20 ++++++++++---------- lib/xwidgets/motif/row-column.d | 8 ++++---- lib/xwidgets/motif/scroll-bar.d | 6 +++--- lib/xwidgets/motif/support.d | 12 ++++++------ lib/xwidgets/motif/toggle-btn.d | 2 +- lib/xwidgets/xaw/grip.d | 8 ++++---- lib/xwidgets/xaw/list.d | 10 +++++----- lib/xwidgets/xaw/paned.d | 2 +- lib/xwidgets/xaw/porthole.d | 2 +- lib/xwidgets/xaw/simplemenu.d | 2 +- lib/xwidgets/xaw/stripchart.d | 4 ++-- 11 files changed, 38 insertions(+), 38 deletions(-) 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;")