Initial import of xtrkcad version 1:4.0.2-2

1 files changed, 1109 insertions, 0 deletions

diff --git a/app/wlib/gtklib/gtklist.c b/app/wlib/gtklib/gtklist.c
new file mode 100644
index 0000000..b2c9799
--- /dev/null
+++ b/app/wlib/gtklib/gtklist.c
@@ -0,0 +1,1109 @@
+/*
+ * $Header: /home/dmarkle/xtrkcad-fork-cvs/xtrkcad/app/wlib/gtklib/gtklist.c,v 1.4 2009-05-30 11:11:26 m_fischer Exp $
+ */
+
+/*  XTrkCad - Model Railroad CAD
+ *  Copyright (C) 2005 Dave Bullis
+ *
+ *  This program 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; either version 2 of the License, or
+ *  (at your option) any later version.
+ *
+ *  This program 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, write to the Free Software
+ *  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+ */
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+
+#include <gtk/gtk.h>
+#include <gdk/gdk.h>
+#include "gtkint.h"
+#include "i18n.h"
+
+#define ROW_HEIGHT (15)
+#define PIX_TEXT_SEP (5)
+static char ListItemDataKey[] = "ListItemDataKey";
+
+/*
+ *****************************************************************************
+ *
+ * List Boxes
+ *
+ *****************************************************************************
+ */
+
+typedef struct wListItem_t * wListItem_p;
+		
+struct wList_t {
+		WOBJ_COMMON
+		GtkWidget *list;
+		int count;
+		int number;
+		int colCnt;
+		wPos_t *colWidths;
+		wBool_t *colRightJust;
+		int last;
+		wPos_t listX;
+		long * valueP;
+		wListCallBack_p action;
+		int recursion;
+		int editted;
+		int editable;
+		};
+
+
+struct wListItem_t {
+		wBool_t active;
+		void * itemData;
+		const char * label;
+		GtkLabel * labelG;
+		wBool_t selected;
+		wList_p listP;
+		};
+
+
+static wListItem_p getListItem(
+		wList_p b,
+		wIndex_t inx, 
+		GList ** childR )
+{
+	GList * child;
+	GtkObject * listItem;
+	wListItem_p id_p;
+	if (childR)
+		*childR = NULL;
+	if (b->list == 0) abort();
+	if (inx < 0)
+		return NULL;
+	if ( b->type == B_LIST )
+		return (wListItem_p)gtk_clist_get_row_data( GTK_CLIST(b->list), inx );
+		
+	for ( child=GTK_LIST(b->list)->children; inx>0&&child; child=child->next,inx-- );
+	if (child==NULL) {
+		fprintf( stderr, "wListGetValues - End Of List\n" );
+		return NULL;
+	}
+	listItem = GTK_OBJECT(child->data);
+	id_p = (wListItem_p)gtk_object_get_data(listItem, ListItemDataKey );
+	if (id_p==NULL) {
+		fprintf( stderr, "wListGetValues - id_p == NULL\n" );
+		return NULL;
+	}
+	if (childR)
+		*childR = child;
+	return id_p;
+}
+
+
+EXPORT void wListClear(
+		wList_p b )		/* List */
+/*
+Remove all entries from the list <b>.
+*/
+{
+	if (b->list == 0) abort();
+	b->recursion++;
+	if ( b->type == B_DROPLIST )
+		gtk_list_clear_items( GTK_LIST(b->list), 0, b->count );
+	else
+		gtk_clist_clear( GTK_CLIST(b->list) );
+	b->recursion--;
+	b->last = -1;
+	b->count = 0;
+}
+
+
+EXPORT void wListSetIndex(
+		wList_p b,		/* List */
+		int val )		/* Index */
+/*
+Makes the <val>th entry (0-origin) the current selection.
+If <val> if '-1' then no entry is selected.
+*/
+{
+	int cur;
+	wListItem_p id_p;
+
+	if (b->widget == 0) abort();
+	b->recursion++;
+	cur = b->last;
+	if ( b->type == B_DROPLIST ) {
+	if ((b->option&BL_NONE)!=0 && val < 0) {
+		if (cur != -1) {
+			gtk_list_unselect_item( GTK_LIST(b->list), cur );
+		}
+	} else {
+		if (cur != -1)
+			gtk_list_unselect_item( GTK_LIST(b->list), cur );
+		if (val != -1)
+			gtk_list_select_item( GTK_LIST(b->list), val );
+	}
+	} else {
+		if (cur != -1) {
+			gtk_clist_unselect_row( GTK_CLIST(b->list), cur, -1 );
+			id_p = getListItem( b, cur, NULL );
+			if ( id_p )
+				id_p->selected = FALSE;
+		}
+		if (val != -1) {
+			gtk_clist_select_row( GTK_CLIST(b->list), val, -1 );
+			id_p = getListItem( b, val, NULL );
+			if ( id_p )
+				id_p->selected = TRUE;
+		}
+	}
+	b->last = val;
+	b->recursion--;
+}
+
+
+static void parseLabelStr(
+		const char * labelStr,
+		int count,
+		char * * * texts )
+{
+	static char * labelBuffer;
+	static int labelBufferLen = 0;
+	static char * * textBuffer;
+	static int textBufferCount = 0;
+	char * cp;
+	int col;
+	int len;
+
+	labelStr = gtkConvertInput( labelStr );
+	len = strlen(labelStr)+1;
+	if ( len > labelBufferLen ) {
+		if ( labelBuffer )
+			labelBuffer = realloc( labelBuffer, len );
+		else
+			labelBuffer = (char*)malloc( len );
+		labelBufferLen = len;
+	}
+	if ( count > textBufferCount ) {
+		if ( textBuffer )
+			textBuffer = (char**)malloc( count * sizeof *textBuffer );
+		else
+			textBuffer = (char**)realloc( textBuffer, count * sizeof *textBuffer );
+		textBufferCount = count;
+	}
+		
+	strcpy( labelBuffer, labelStr );
+	cp = labelBuffer;
+	for ( col=0; cp && col<count; col++ ) {
+		textBuffer[col] = cp;
+		cp = strchr( cp, '\t' );
+		if ( cp != NULL )
+			*cp++ = '\0';
+	}
+	for ( ; col<count; col++ )
+		textBuffer[col] = "";
+	*texts = textBuffer;
+}
+
+
+EXPORT void wListSetValue(
+		wList_p bl,
+		const char * val )
+{
+	if (bl->list==NULL) abort();
+	bl->recursion++;
+	if (bl->type == B_DROPLIST) {
+		bl->editted = TRUE;
+		gtk_entry_set_text( GTK_ENTRY(GTK_COMBO(bl->widget)->entry), val );
+		if (bl->action) {
+			bl->action( -1, val, 0, bl->data, NULL );
+		}
+	}
+	bl->recursion--;
+}
+
+
+EXPORT wIndex_t wListFindValue(
+		wList_p b,
+		const char * val )
+{
+	GList * child;
+	GtkObject * listItem;
+	wListItem_p id_p;
+	wIndex_t inx;
+
+	if (b->list==NULL) abort();
+	if (b->type == B_DROPLIST) {
+		for ( child=GTK_LIST(b->list)->children,inx=0; child; child=child->next,inx++ ) {
+			listItem = GTK_OBJECT(child->data);
+			id_p = (wListItem_p)gtk_object_get_data(listItem, ListItemDataKey );
+			if ( id_p && id_p->label && strcmp( id_p->label, val ) == 0 ) {
+				return inx;
+			}
+		}
+	} else {
+		for ( inx=0; inx<b->count; inx++ ) {
+			id_p = (wListItem_p)gtk_clist_get_row_data( GTK_CLIST(b->list), inx );
+			if ( id_p && id_p->label && strcmp( id_p->label, val ) == 0 )
+				return inx;
+		}
+	}
+	return -1;
+}
+
+EXPORT wIndex_t wListGetIndex(
+		wList_p b )		/* List */
+/*
+Returns the current selected list entry.
+If <val> if '-1' then no entry is selected.
+*/
+{
+	if (b->list == 0) abort();
+	return b->last;
+}
+
+EXPORT wIndex_t wListGetValues(
+		wList_p bl,
+		char * labelStr,
+		int labelSize,
+		void * * listDataRet,
+		void * * itemDataRet )
+
+{
+	wListItem_p id_p;
+	wIndex_t inx = bl->last;
+	const char * entry_value = "";
+	void * item_data = NULL;
+
+	if ( bl->list == 0 ) abort();
+	if ( bl->type == B_DROPLIST && bl->editted ) {
+		entry_value = gtk_entry_get_text( GTK_ENTRY(GTK_COMBO(bl->widget)->entry) );
+		inx = bl->last = -1;
+	} else {
+		inx = bl->last;
+		if (inx >= 0) {
+			id_p = getListItem( bl, inx, NULL );
+			if (id_p==NULL) {
+				fprintf( stderr, "wListGetValues - id_p == NULL\n" );
+				inx = -1;
+			} else {
+				entry_value = id_p->label;
+				item_data = id_p->itemData;
+			}
+		}
+	}
+	if ( labelStr ) {
+		strncpy( labelStr, entry_value, labelSize );
+	}
+	if ( listDataRet )
+		*listDataRet = bl->data;
+	if ( itemDataRet )
+		*itemDataRet = item_data;
+	return bl->last;
+}
+
+
+EXPORT wIndex_t wListGetCount(
+		wList_p b )
+{
+	return b->count;
+}
+
+
+EXPORT void * wListGetItemContext(
+		wList_p b,
+		wIndex_t inx )
+{
+	wListItem_p id_p;
+	if ( inx < 0 )
+		return NULL;
+	id_p = getListItem( b, inx, NULL );
+	if ( id_p )
+		return id_p->itemData;
+	else
+		return NULL;
+}
+
+
+EXPORT wBool_t wListGetItemSelected(
+		wList_p b,
+		wIndex_t inx )
+{
+	wListItem_p id_p;
+	if ( inx < 0 )
+		return FALSE;
+	id_p = getListItem( b, inx, NULL );
+	if ( id_p )
+		return id_p->selected;
+	else
+		return FALSE;
+}
+
+
+EXPORT wIndex_t wListGetSelectedCount(
+		wList_p b )
+{
+	wIndex_t selcnt, inx;
+	for ( selcnt=inx=0; inx<b->count; inx++ )
+		if ( wListGetItemSelected( b, inx ) )
+			selcnt++;
+	return selcnt;
+}
+
+
+EXPORT wBool_t wListSetValues(
+		wList_p b,
+		wIndex_t row,
+		const char * labelStr,
+		wIcon_p bm,
+		void *itemData )
+
+{
+	wListItem_p id_p;
+	GList * child;
+	GdkPixmap *pixmap;
+	GdkBitmap *bitmap = NULL;
+	char ** texts;
+	int col;
+
+	if (b->list == 0) abort();
+	b->recursion++;
+	id_p = getListItem( b, row, &child );
+	if (id_p != NULL) {
+		if ( b->type == B_DROPLIST ) {
+			gtk_label_set( id_p->labelG, labelStr?gtkConvertInput(labelStr):"" );
+			id_p->label = strdup( labelStr?labelStr:"" );
+		} else {
+			parseLabelStr( labelStr, b->colCnt, &texts );
+			for ( col=0; col<b->colCnt; col++ )
+				gtk_clist_set_text( GTK_CLIST(b->list), row, col, texts[col] );
+			if ( bm ) {
+				pixmap = gtkMakeIcon( b->widget, bm, &bitmap );
+				gtk_clist_set_pixtext( GTK_CLIST(b->list), row, 0, texts[0], 5, pixmap, bitmap );
+				gdk_pixmap_unref( pixmap );
+				gdk_bitmap_unref( bitmap );
+			}
+		}
+		id_p->itemData = itemData;
+	}
+	b->recursion--;
+	return TRUE;
+}
+
+
+EXPORT void wListDelete(
+		wList_p b,
+		wIndex_t inx )
+
+{
+	wListItem_p id_p;
+	GList * child;
+
+	if (b->list == 0) abort();
+	b->recursion++;
+	if ( b->type == B_DROPLIST ) {
+		id_p = getListItem( b, inx, &child );
+		if (id_p != NULL) {
+			gtk_container_remove( GTK_CONTAINER(b->list), child->data );
+			b->count--;
+		}
+	} else {
+		gtk_clist_remove( GTK_CLIST(b->list), inx );
+		b->count--;
+	}
+	b->recursion--;
+	return;
+}
+
+
+int wListGetColumnWidths(
+		wList_p bl,
+		int colCnt,
+		wPos_t * colWidths )
+{
+	int inx;
+
+	if ( bl->type != B_LIST )
+		return 0;
+	if ( bl->colWidths == NULL )
+		return 0;
+	for ( inx=0; inx<colCnt; inx++ ) {
+		if ( inx < bl->colCnt ) {
+			colWidths[inx] = bl->colWidths[inx];
+		} else {
+			colWidths[inx] = 0;
+		}
+	}
+	return bl->colCnt;
+}
+
+
+static void gtkDropListAddValue(
+		wList_p b,
+		wListItem_p id_p )
+{
+	GtkWidget * listItem;
+
+	if ( id_p == NULL )
+		return;
+	id_p->labelG = (GtkLabel*)gtk_label_new( gtkConvertInput(id_p->label) );
+	/*gtk_misc_set_alignment( GTK_MISC(id_p->labelG), 0.0, 0.5 );*/
+	gtk_widget_show( GTK_WIDGET(id_p->labelG) );
+
+	listItem = gtk_list_item_new();
+	gtk_object_set_data( GTK_OBJECT(listItem), ListItemDataKey, id_p );
+	gtk_container_add( GTK_CONTAINER(listItem), GTK_WIDGET(id_p->labelG) );
+	gtk_misc_set_alignment( GTK_MISC(id_p->labelG), 0.0, 0.5 );
+	gtk_container_add( GTK_CONTAINER(b->list), listItem );
+	gtk_widget_show( listItem );
+}
+
+
+EXPORT wIndex_t wListAddValue(
+		wList_p b,		/* List */
+		const char * labelStr,	/* Entry name */
+		wIcon_p bm,	/* Entry bitmap */
+		void * itemData )	/* User context */
+/*
+Adds a entry to the list <b> with name <name>.
+If list is created with 'BL_
+*/
+{
+	wListItem_p id_p;
+	GdkPixmap * pixmap = NULL;
+	GdkBitmap * bitmap;
+	static char ** texts;
+	GtkAdjustment *adj;
+
+	if (b->list == 0) abort();
+	b->recursion++;
+	id_p = (wListItem_p)malloc( sizeof *id_p );
+	memset( id_p, 0, sizeof *id_p );
+	id_p->itemData = itemData;
+	id_p->active = TRUE;
+	if ( labelStr == NULL )
+		labelStr = "";
+	id_p->label = strdup( labelStr );
+	id_p->listP = b;
+	if ( b->type == B_DROPLIST ) {
+		gtkDropListAddValue( b, id_p );
+	} else {
+		parseLabelStr( labelStr, b->colCnt, &texts );
+		gtk_clist_append( GTK_CLIST(b->list), texts );
+		
+		/* 
+		 * this has taken forever to find out: the adjustment has to be notified 
+		 * about the list change by the program. So we need to get the current alignment.
+		 * increment the upper value and then inform the scrolled window about the update.
+		 * The upper value is increased only if the current value is smaller than the size
+		 * of the list box. 
+		 */
+		
+		adj = gtk_scrolled_window_get_vadjustment(GTK_SCROLLED_WINDOW(b->widget));
+		
+		if( adj->upper < adj->step_increment * (b->count+1)) {
+			adj->upper += adj->step_increment;
+			gtk_adjustment_changed( adj );
+		}	
+		if ( bm ) {
+			pixmap = gtkMakeIcon( b->widget, bm, &bitmap );
+			gtk_clist_set_pixtext( GTK_CLIST(b->list), b->count, 0, texts[0], 5, pixmap, bitmap );
+			gdk_pixmap_unref( pixmap );
+			gdk_bitmap_unref( bitmap );
+		}
+		gtk_clist_set_row_data( GTK_CLIST(b->list), b->count, id_p );
+	}
+
+	b->count++;
+	b->recursion--;
+	if ( b->count == 1 ) {
+		b->last = 0;
+	}
+	return b->count-1;
+}
+
+
+void wListSetSize( wList_p bl, wPos_t w, wPos_t h )
+{
+	/*gtk_widget_set_usize( bl->list, w, h );*/
+	if (bl->type == B_DROPLIST) {
+		/*gtk_widget_set_usize( GTK_COMBO(bl->widget)->entry, w, -1 );
+		gtk_widget_set_usize( GTK_COMBO(bl->widget)->list, w, -1 );*/
+#ifndef GTK1
+		gtk_widget_set_size_request( bl->widget, w, -1 );
+#else
+		gtk_widget_set_usize( bl->widget, w, -1 );
+#endif
+	} else {
+#ifndef GTK1
+		gtk_widget_set_size_request( bl->widget, w, h );
+#else
+		gtk_widget_set_usize( bl->widget, w, h );
+#endif
+	}
+	bl->w = w;
+	bl->h = h;
+}
+
+
+
+
+EXPORT void wListSetActive(
+		wList_p b,		/* List */
+		int inx,		/* Index */
+		wBool_t active )	/* Command */
+/*
+*/
+{
+	wListItem_p id_p;
+	GList * child;
+
+	if (b->list == 0) abort();
+	id_p = getListItem( b, inx, &child );
+	if (id_p == NULL)
+		return;
+	gtk_widget_set_sensitive( GTK_WIDGET(child->data), active );
+}
+
+
+EXPORT void wListSetEditable(
+		wList_p b,
+		wBool_t editable )
+{
+	b->editable = editable;
+	if ( b->type == B_DROPLIST )
+		gtk_widget_set_sensitive( GTK_WIDGET(GTK_COMBO(b->widget)->entry), b->editable );
+}
+
+
+static int selectCList(
+		GtkWidget * clist,
+		int row,
+		int col,
+		GdkEventButton* event,
+		gpointer data )
+{
+	wList_p bl = (wList_p)data;
+	wListItem_p id_p;
+
+	if (gdk_pointer_is_grabbed()) {
+		gdk_pointer_ungrab(0);
+	}
+	wFlush();
+	if (bl->recursion)
+		return 0;
+	id_p = gtk_clist_get_row_data( GTK_CLIST(clist), row );
+	if ( id_p == NULL ) return 1;
+	bl->editted = FALSE;
+	if ( (bl->option&BL_MANY)==0 && bl->last == row )
+		return 1;
+	bl->last = row;
+	id_p->selected = TRUE;
+	if (bl->valueP)
+		*bl->valueP = row;
+	if (bl->action)
+		bl->action( row, id_p->label, 1, bl->data, id_p->itemData );
+	return 1;
+}
+		
+
+static int unselectCList(
+		GtkWidget * clist,
+		int row,
+		int col,
+		GdkEventButton* event,
+		gpointer data )
+{
+	wList_p bl = (wList_p)data;
+	wListItem_p id_p;
+
+	if (gdk_pointer_is_grabbed()) {
+		gdk_pointer_ungrab(0);
+	}
+	wFlush();
+	if (bl->recursion)
+		return 0;
+	id_p = gtk_clist_get_row_data( GTK_CLIST(clist), row );
+	if ( id_p == NULL ) return 1;
+	id_p->selected = FALSE;
+	if (bl->action)
+		bl->action( row, id_p->label, 2, bl->data, id_p->itemData );
+	return 1;
+}
+
+
+static int resizeColumnCList(
+		GtkWidget * clist,
+		int col,
+		int width,
+		gpointer data )
+{
+	wList_p bl = (wList_p)data;
+
+	if (gdk_pointer_is_grabbed()) {
+		gdk_pointer_ungrab(0);
+	}
+	wFlush();
+	if (bl->recursion)
+		return 0;
+	if ( col >= 0 && col < bl->colCnt )
+		bl->colWidths[col] = width;
+	return 0;
+}
+
+
+
+static int DropListSelectChild(
+		GtkWidget * list,
+		GtkWidget * listItem,
+		gpointer data )
+{
+	wList_p bl = (wList_p)data;
+	wListItem_p id_p=NULL;
+	wIndex_t inx;
+	GList * child;
+
+	if (gdk_pointer_is_grabbed()) {
+		gdk_pointer_ungrab(0);
+	}
+#ifdef LATER
+	printf( "DropListSelectChild %p %p %p\n", list, listItem, data );
+	printf( "  b: recurs=%d widget=%p\n", bl->recursion, bl->list );
+#endif
+	if (bl->recursion)
+		return 0;
+	wFlush();
+	id_p = gtk_object_get_data(GTK_OBJECT(listItem), ListItemDataKey );
+	if ( id_p == NULL ) {
+		fprintf( stderr, "  id_p = NULL\n");
+		return 0;
+	}
+#ifdef LATER
+	printf( "  id_p = %s %lx, %d %d\n", id_p->label, (long)id_p->itemData, id_p->active, id_p->selected );
+#endif
+	if ( bl->type == B_DROPLIST && bl->editable ) {
+		if ( bl->editted == FALSE )
+			return 0;
+		gtkSetTrigger( NULL, NULL );
+	}
+	bl->editted = FALSE;
+	for ( inx=0,child=GTK_LIST(bl->list)->children,inx=0; child&&child->data!=listItem; child=child->next ) inx++;
+	if ( bl->last == inx )
+		return 1;
+	bl->last = inx;
+	if (bl->valueP)
+		*bl->valueP = inx;
+	if (id_p && bl->action)
+		bl->action( (wIndex_t)inx, id_p->label, 1, bl->data, id_p->itemData );
+	gtkSetTrigger( NULL, NULL );
+	return 1;
+}
+
+
+#ifdef LATER
+static int DropListSelectionChanged(
+		GtkWidget * list,
+		gpointer data )
+{
+	wList_p bl = (wList_p)data;
+	wListItem_p id_p=NULL;
+	GList * child;
+	GList * dlist;
+	wIndex_t inx;
+	GtkObject * listItem;
+	if (gdk_pointer_is_grabbed()) {
+		gdk_pointer_ungrab(0);
+	}
+	if (bl->recursion)
+		return 0;
+	wFlush();
+	if ( bl->type == B_DROPLIST && bl->editable ) {
+		if ( bl->editted == FALSE )
+			return 0;
+		gtkSetTrigger( NULL, NULL );
+	}
+
+	dlist = GTK_LIST(bl->list)->selection;
+	if (dlist == NULL) {
+		return 0;
+	}
+	inx = 0;
+	for ( child=GTK_LIST(bl->list)->children,inx=0; child&&child->data!=dlist->data; child=child->next ) inx++;
+	while (dlist) {
+		listItem = GTK_OBJECT(dlist->data);
+		id_p = gtk_object_get_data(listItem, ListItemDataKey );
+		printf( "DropListSelectionChanged: id_p = %s %lx\n", id_p->label, (long)id_p->itemData );
+		dlist = dlist->next;
+	}
+	return 0;
+#ifdef LATER
+	bl->editted = FALSE;
+	if ( bl->last == inx )
+		return 1;
+	bl->last = inx;
+	if (bl->valueP)
+		*bl->valueP = inx;
+	if (id_p && bl->action)
+		bl->action( inx, id_p->label, 1, bl->data, id_p->itemData );
+	gtkSetTrigger( NULL, NULL );
+	return 1;
+#endif
+}
+		
+#endif
+
+
+static void triggerDListEntry(
+		wControl_p b )
+{
+	wList_p bl = (wList_p)b;
+	const char * entry_value;
+
+	if (bl == 0)
+		return;
+	if (bl->widget == 0) abort();
+	entry_value = gtk_entry_get_text( GTK_ENTRY(GTK_COMBO(bl->widget)->entry) );
+	if (entry_value == NULL) return;
+	if (debugWindow >= 2) printf("triggerListEntry: %s text = %s\n", bl->labelStr?bl->labelStr:"No label", entry_value );
+	if (bl->action) {
+		bl->recursion++;
+		bl->action( -1, entry_value, 0, bl->data, NULL );
+		bl->recursion--;
+	}
+	gtkSetTrigger( NULL, NULL );
+	return;
+}
+
+
+static void updateDListEntry(
+		GtkEntry * widget,
+		wList_p bl )
+{
+	const char *entry_value;
+	if (bl == 0)
+		return;
+	if (bl->recursion)
+		return;
+	if (!bl->editable)
+		return;
+	entry_value = gtk_entry_get_text( GTK_ENTRY(GTK_COMBO(bl->widget)->entry) );
+	bl->editted = TRUE;
+	if (bl->valueP != NULL)
+		*bl->valueP = -1;
+	bl->last = -1;
+	if (bl->action)
+		gtkSetTrigger( (wControl_p)bl, triggerDListEntry );
+	return;
+}
+
+
+
+#ifdef LATER
+EXPORT wList_p wListCreate(
+		wWin_p	parent,		/* Parent window */
+		wPos_t	x,		/* X-position */
+		wPos_t	y,		/* Y-position */
+		const char 	* helpStr,	/* Help string */
+		const char	* labelStr,	/* Label */
+		long	option,		/* Options */
+		long	number,		/* Number of displayed entries */
+		wPos_t	width,		/* Width of list */
+		long	*valueP,	/* Selected index */
+		wListCallBack_p action,	/* Callback */
+		void 	*data )		/* Context */
+/*
+*/
+{ 
+	wList_p b;
+
+	b = (wList_p)gtkAlloc( parent, B_LIST, x, y, labelStr, sizeof *b, data );
+	b->option = option;
+	b->number = number;
+	b->count = 0;
+	b->last = -1;
+	b->valueP = valueP;
+	b->action = action;
+	b->listX = b->realX;
+	b->colCnt = 0;
+	b->colWidths = NULL;
+	b->colRightJust = NULL;
+	gtkComputePos( (wControl_p)b );
+
+	b->list = (GtkWidget*)gtk_clist_new(1);
+	if (b->list == 0) abort();
+	b->widget = gtk_scrolled_window_new( NULL, NULL );
+	gtk_scrolled_window_set_policy (GTK_SCROLLED_WINDOW (b->widget),
+				GTK_POLICY_AUTOMATIC, GTK_POLICY_AUTOMATIC );
+	/*gtk_container_add( GTK_CONTAINER(b->widget), b->list );*/
+	gtk_scrolled_window_add_with_viewport( GTK_SCROLLED_WINDOW(b->widget), b->list );
+	if (width == 0)
+		width = 100;
+	gtk_clist_set_column_width( GTK_CLIST(b->list), 0, width );
+#ifndef GTK1
+	gtk_widget_set_size_request( b->widget, width, (number+1)*ROW_HEIGHT );
+#else
+	gtk_widget_set_usize( b->widget, width, (number+1)*ROW_HEIGHT );
+#endif
+	gtk_signal_connect( GTK_OBJECT(b->list), "select_row", GTK_SIGNAL_FUNC(selectCList), b );
+	gtk_signal_connect( GTK_OBJECT(b->list), "unselect_row", GTK_SIGNAL_FUNC(unselectCList), b );
+	gtk_list_set_selection_mode( GTK_LIST(b->list), (option&BL_MANY)?GTK_SELECTION_MULTIPLE:GTK_SELECTION_BROWSE );
+/*	gtk_container_set_focus_vadjustment (GTK_CONTAINER (b->list),
+				gtk_scrolled_window_get_vadjustment (GTK_SCROLLED_WINDOW (b->widget))); */
+	gtk_widget_show( b->list );
+
+#ifndef GTK1
+	gtk_fixed_put( GTK_FIXED(parent->widget), b->widget, b->realX, b->realY );
+#else
+	gtk_container_add( GTK_CONTAINER(parent->widget), b->widget );
+	gtk_widget_set_uposition( b->widget, b->realX, b->realY );
+#endif
+	gtkControlGetSize( (wControl_p)b );
+	if (labelStr)
+		b->labelW = gtkAddLabel( (wControl_p)b, labelStr );
+	gtk_widget_show( b->widget );
+	gtkAddButton( (wControl_p)b );
+	gtkAddHelpString( b->widget, helpStr );
+	return b;
+}
+#endif
+
+/** Create a drop down list. The drop down is created and intialized with the supplied values.
+ *
+ *		\param IN parent Parent window 
+ *		\param IN x, X-position
+ *		\param IN y	 Y-position
+ *		\param IN helpStr Help string 
+ *		\param IN labelStr Label
+ *		\param IN option Options 
+ *		\param IN number Number of displayed entries
+ *		\param IN width Width 
+ *		\param IN valueP Selected index
+ *		\param IN action Callback
+ *		\param IN data Context 
+ */
+
+EXPORT wList_p wDropListCreate(
+		wWin_p	parent,		/* Parent window */
+		wPos_t	x,		/* X-position */
+		wPos_t	y,		/* Y-position */
+		const char 	* helpStr,	/* Help string */
+		const char	* labelStr,	/* Label */
+		long	option,		/* Options */
+		long	number,		/* Number of displayed entries */
+		wPos_t	width,		/* Width */
+		long	*valueP,	/* Selected index */
+		wListCallBack_p action,	/* Callback */
+		void 	*data )		/* Context */
+/*
+*/
+{
+	wList_p b;
+	b = (wList_p)gtkAlloc( parent, B_DROPLIST, x, y, labelStr, sizeof *b, data );
+	b->option = option;
+	b->number = number;
+	b->count = 0;
+	b->last = -1;
+	b->valueP = valueP;
+	b->action = action;
+	b->listX = b->realX;
+	b->colCnt = 0;
+	b->colWidths = NULL;
+	b->colRightJust = NULL;
+	gtkComputePos( (wControl_p)b );
+
+	b->widget = (GtkWidget*)gtk_combo_new();
+	if (b->widget == 0) abort();
+	b->list = GTK_COMBO(b->widget)->list;
+#ifdef LATER
+	gtk_signal_connect( GTK_OBJECT(b->list), "selection_changed", GTK_SIGNAL_FUNC(DropListSelectionChanged), b );
+#endif
+	gtk_signal_connect( GTK_OBJECT(b->list), "select_child", GTK_SIGNAL_FUNC(DropListSelectChild), b );
+	if (width == 0)
+		width = 100;
+#ifndef GTK1
+	gtk_widget_set_size_request( b->widget, width, -1 );
+	gtk_widget_set_size_request( GTK_COMBO(b->widget)->entry, width, -1 );
+#else
+	gtk_widget_set_usize( b->widget, width, -1 );
+	gtk_widget_set_usize( GTK_COMBO(b->widget)->entry, width, -1 );
+#endif
+
+	gtk_signal_connect( GTK_OBJECT(GTK_COMBO(b->widget)->entry), "changed", GTK_SIGNAL_FUNC(updateDListEntry), b );
+	if ( (option&BL_EDITABLE) == 0 )
+		gtk_widget_set_sensitive( GTK_WIDGET(GTK_COMBO(b->widget)->entry), FALSE );
+	else {
+		b->editable = TRUE;
+	}
+
+#ifndef GTK1
+	gtk_fixed_put( GTK_FIXED(parent->widget), b->widget, b->realX, b->realY );
+#else
+	gtk_container_add( GTK_CONTAINER(parent->widget), b->widget );
+	gtk_widget_set_uposition( b->widget, b->realX, b->realY );
+#endif
+	gtkControlGetSize( (wControl_p)b );
+	if (labelStr)
+		b->labelW = gtkAddLabel( (wControl_p)b, labelStr );
+	gtk_widget_show( b->widget );
+	gtkAddButton( (wControl_p)b );
+	gtkAddHelpString( b->widget, helpStr );
+	return b;
+
+}
+
+
+EXPORT wList_p wComboListCreate(
+		wWin_p	parent,		/* Parent window */
+		wPos_t	x,		/* X-position */
+		wPos_t	y,		/* Y-position */
+		const char 	* helpStr,	/* Help string */
+		const char	* labelStr,	/* Label */
+		long	option,		/* Options */
+		long	number,		/* Number of displayed list entries */
+		wPos_t	width,		/* Width */
+		long	*valueP,	/* Selected index */
+		wListCallBack_p action,	/* Callback */
+		void 	*data )		/* Context */
+/*
+*/
+{
+	return wListCreate( parent, x, y, helpStr, labelStr, option, number, width, 0, NULL, NULL, NULL, valueP, action, data );
+#ifdef LATER
+	wList_p b;
+
+	b = (wList_p)gtkAlloc( parent, B_LIST, x, y, labelStr, sizeof *b, data );
+	b->option = option;
+	b->number = number;
+	b->count = 0;
+	b->last = -1;
+	b->valueP = valueP;
+	b->action = action;
+	b->listX = b->realX;
+	gtkComputePos( (wControl_p)b );
+
+	b->widget = (GtkWidget*)gtk_combo_new();
+	if (b->widget == 0) abort();
+	if (width == 0)
+		width = 100;
+	/*gtk_clist_set_column_width( GTK_CLIST(b->widget), 0, width );*/
+#ifndef GTK1
+	gtk_widget_set_size_request( b->widget, width, -1 );
+#else
+	gtk_widget_set_usize( b->widget, width, -1 );
+#endif
+
+#ifndef GTK1
+	gtk_fixed_put( GTK_FIXED(parent->widget), b->widget, b->realX, b->realY );
+#else
+	gtk_container_add( GTK_CONTAINER(parent->widget), b->widget );
+	gtk_widget_set_uposition( b->widget, b->realX, b->realY );
+#endif
+	gtkControlGetSize( (wControl_p)b );
+	if (labelStr)
+		b->labelW = gtkAddLabel( (wControl_p)b, labelStr );
+	gtk_widget_show( b->widget );
+	gtkAddButton( (wControl_p)b );
+	gtkAddHelpString( b->widget, helpStr );
+	return b;
+#endif
+}
+
+
+
+EXPORT wList_p wListCreate(
+		wWin_p	parent,		/* Parent window */
+		wPos_t	x,		/* X-position */
+		wPos_t	y,		/* Y-position */
+		const char 	* helpStr,	/* Help string */
+		const char	* labelStr,	/* Label */
+		long	option,		/* Options */
+		long	number,		/* Number of displayed entries */
+		wPos_t	width,		/* Width of list */
+		int	colCnt,		/* Number of columns */
+		wPos_t	* colWidths,	/* Width of columns */
+		wBool_t * colRightJust,	/* justification of columns */
+		const char 	** colTitles,	/* Title of columns */
+		long	*valueP,	/* Selected index */
+		wListCallBack_p action,	/* Callback */
+		void 	*data )		/* Context */
+/*
+*/
+{ 
+	wList_p bl;
+	long col;
+	static wPos_t zeroPos = 0;
+
+	bl = (wList_p)gtkAlloc( parent, B_LIST, x, y, labelStr, sizeof *bl, data );
+	bl->option = option;
+	bl->number = number;
+	bl->count = 0;
+	bl->last = -1;
+	bl->valueP = valueP;
+	bl->action = action;
+	bl->listX = bl->realX;
+
+	if ( colCnt <= 0 ) {
+		colCnt = 1;
+		colWidths = &zeroPos;
+	}
+	bl->colCnt = colCnt;
+	bl->colWidths = (wPos_t*)malloc( colCnt * sizeof *(wPos_t*)0 );
+	memcpy( bl->colWidths, colWidths, colCnt * sizeof *(wPos_t*)0 );
+
+	gtkComputePos( (wControl_p)bl );
+
+	bl->list = (GtkWidget*)gtk_clist_new( bl->colCnt );
+	if (bl->list == 0) abort();
+	if (colTitles)
+	{
+		for (col = 0; col < colCnt; col++)
+			gtk_clist_set_column_title(GTK_CLIST(bl->list), col, _(((char*)colTitles[col])));
+		gtk_clist_column_titles_show(GTK_CLIST(bl->list));
+	}
+
+	bl->widget = gtk_scrolled_window_new( NULL, NULL );
+	gtk_scrolled_window_set_policy (GTK_SCROLLED_WINDOW (bl->widget),
+				GTK_POLICY_AUTOMATIC, GTK_POLICY_AUTOMATIC );
+	/* gtk_container_add( GTK_CONTAINER(bl->widget), bl->list ); */
+	gtk_scrolled_window_add_with_viewport( GTK_SCROLLED_WINDOW(bl->widget), bl->list ); 
+	if (width == 0)
+		width = 100;
+	for ( col=0; col<colCnt; col++ ) {
+		gtk_clist_set_column_auto_resize( GTK_CLIST(bl->list), col, TRUE );
+		gtk_clist_set_column_resizeable( GTK_CLIST(bl->list), col, TRUE );
+		gtk_clist_set_column_justification( GTK_CLIST(bl->list), col,
+				(colRightJust==NULL||colRightJust[col]==FALSE)?GTK_JUSTIFY_LEFT:GTK_JUSTIFY_RIGHT );
+		gtk_clist_set_column_width( GTK_CLIST(bl->list), col, bl->colWidths[col] );
+	}
+#ifndef GTK1
+	gtk_widget_set_size_request( bl->widget, width, (number+1)*ROW_HEIGHT );
+#else
+	gtk_widget_set_usize( bl->widget, width, (number+1)*ROW_HEIGHT );
+#endif
+	gtk_signal_connect( GTK_OBJECT(bl->list), "select_row", GTK_SIGNAL_FUNC(selectCList), bl );
+	gtk_signal_connect( GTK_OBJECT(bl->list), "unselect_row", GTK_SIGNAL_FUNC(unselectCList), bl );
+	gtk_signal_connect( GTK_OBJECT(bl->list), "resize_column", GTK_SIGNAL_FUNC(resizeColumnCList), bl );
+	gtk_clist_set_selection_mode( GTK_CLIST(bl->list), (option&BL_MANY)?GTK_SELECTION_MULTIPLE:GTK_SELECTION_BROWSE );
+	gtk_container_set_focus_vadjustment (GTK_CONTAINER (bl->list),
+				gtk_scrolled_window_get_vadjustment (GTK_SCROLLED_WINDOW (bl->widget)));
+
+	gtk_widget_show( bl->list );
+
+#ifndef GTK1
+	gtk_fixed_put( GTK_FIXED(parent->widget), bl->widget, bl->realX, bl->realY );
+#else
+	gtk_container_add( GTK_CONTAINER(parent->widget), bl->widget );
+	gtk_widget_set_uposition( bl->widget, bl->realX, bl->realY );
+#endif
+	gtkControlGetSize( (wControl_p)bl );
+	if (labelStr)
+		bl->labelW = gtkAddLabel( (wControl_p)bl, labelStr );
+	gtk_widget_show( bl->widget );
+	gtkAddButton( (wControl_p)bl );
+	gtkAddHelpString( bl->widget, helpStr );
+	return bl;
+}