crossedit/Cnv/CnvBrowse.c

#include <Cnv.h>

/**********************************************************************
 * widget
 **********************************************************************/

static void CancelCb(Widget w,XtPointer client,XtPointer call)
{
  CnvBrowse self = (CnvBrowse)client;
  XtPopdown(self->shell);
  self->isup = False;
}

static void OkCb(Widget w,XtPointer client,XtPointer call)
{
  CnvBrowse self = (CnvBrowse)client;
  String str;

  XtPopdown(self->shell);
  XtUnmanageChild(self->ok);
  self->isup = False;
  XtVaGetValues(self->text,
                XtNstring,&str,
                NULL);
  (*self->proc)(self,client,str);
}

/**********************************************************************
 * privates
 **********************************************************************/

static void Layout(CnvBrowse self,String name,Widget parent)
{
  Widget vpaned,hbox,cancel;

  self->shell = XtVaCreatePopupShell
      (name,topLevelShellWidgetClass,parent,
       NULL);
  vpaned = XtVaCreateManagedWidget
      ("vpaned",panedWidgetClass,self->shell,
       XtNorientation,XtorientVertical,
       NULL);
  hbox = XtVaCreateManagedWidget
      ("hbox",boxWidgetClass,vpaned,
       XtNorientation,XtorientHorizontal,
       XtNshowGrip,False,
       NULL);

  cancel = XtVaCreateManagedWidget
      ("cancel",commandWidgetClass,hbox,
       NULL);
  XtAddCallback(cancel,XtNcallback,CancelCb,(XtPointer)self);

  self->ok = XtVaCreateWidget
      ("ok",commandWidgetClass,hbox,
       NULL);
  XtAddCallback(self->ok,XtNcallback,OkCb,(XtPointer)self);

  self->file = XtVaCreateWidget
      ("file",labelWidgetClass,hbox,
       NULL);
  self->text = XtVaCreateManagedWidget
      ("text",asciiTextWidgetClass,vpaned,
       XtNeditType,XawtextEdit,
       NULL);
}

static void CnvBrowseShow(CnvBrowse self)
{
  XtUnmanageChild(self->file);
  if(self->isup == False) XtPopup(self->shell,XtGrabNone);
}

/**********************************************************************
 * members
 **********************************************************************/

/*
 * parent:
 * byName:
 */
CnvBrowse CnvBrowseCreate
(String name,Widget parent,CnvBrowseEditProc proc)
{
    CnvBrowse self;
    
    /* alloc & init state */
    self = (CnvBrowse)XtMalloc(sizeof(struct CnvBrowse));
    self->shell = NULL;
    self->text = NULL;
    self->file = NULL;
    self->isup = False;
    self->proc = proc;
   
    Layout(self,name,parent);
    return self;
}

/*
 *
 */
void CnvBrowseDestroy(CnvBrowse self)
{
  XtDestroyWidget(self->shell);
  XtFree((char*)self);
}

/*
 * show file
 */
void CnvBrowseShowFile(CnvBrowse self,String file)
{
    if(!(self && file)) return;
    CnvBrowseShow(self);  
    XtManageChild(self->file);
    XtVaSetValues(self->text,
                  XtNtype,XawAsciiFile,
                  XtNstring,file,
                  XtNeditType,XawtextRead,
                  NULL);
    XtVaSetValues(self->file,
                  XtNlabel,file,
                  NULL);
}

/*
 * show string
 */
void CnvBrowseShowString(CnvBrowse self,String str)
{
    if(!(self && str)) return;
    CnvBrowseShow(self);
    XtVaSetValues(self->text,
                  XtNtype,XawAsciiString,
                  XtNstring,str,
                  XtNeditType,XawtextRead,
                  NULL);
}

/*
 * edit string, finish by callback
 */
void CnvBrowseEditString(CnvBrowse self,String str)
{
    if(!(self && str && self->proc)) return;
    XtManageChild(self->ok);
    CnvBrowseShow(self);
    XtVaSetValues(self->text,
                  XtNtype,XawAsciiString,
                  XtNstring,str,
                  XtNeditType,XawtextEdit,
                  NULL);
}

/*** end of CnvBrowse.c ***/
Revision:	1.1
Committed:	Fri Feb 3 07:11:45 2006 UTC (18 years, 5 months ago) by root
Content type:	text/plain
Branch:	MAIN
Branch point for:	UPSTREAM
Log Message:	Initial revision
#	User	Rev	Content
1	root	1.1	#include <Cnv.h>
2
3			/**********************************************************************
4			* widget
5			**********************************************************************/
6
7			static void CancelCb(Widget w,XtPointer client,XtPointer call)
8			{
9			CnvBrowse self = (CnvBrowse)client;
10			XtPopdown(self->shell);
11			self->isup = False;
12			}
13
14			static void OkCb(Widget w,XtPointer client,XtPointer call)
15			{
16			CnvBrowse self = (CnvBrowse)client;
17			String str;
18
19			XtPopdown(self->shell);
20			XtUnmanageChild(self->ok);
21			self->isup = False;
22			XtVaGetValues(self->text,
23			XtNstring,&str,
24			NULL);
25			(*self->proc)(self,client,str);
26			}
27
28			/**********************************************************************
29			* privates
30			**********************************************************************/
31
32			static void Layout(CnvBrowse self,String name,Widget parent)
33			{
34			Widget vpaned,hbox,cancel;
35
36			self->shell = XtVaCreatePopupShell
37			(name,topLevelShellWidgetClass,parent,
38			NULL);
39			vpaned = XtVaCreateManagedWidget
40			("vpaned",panedWidgetClass,self->shell,
41			XtNorientation,XtorientVertical,
42			NULL);
43			hbox = XtVaCreateManagedWidget
44			("hbox",boxWidgetClass,vpaned,
45			XtNorientation,XtorientHorizontal,
46			XtNshowGrip,False,
47			NULL);
48
49			cancel = XtVaCreateManagedWidget
50			("cancel",commandWidgetClass,hbox,
51			NULL);
52			XtAddCallback(cancel,XtNcallback,CancelCb,(XtPointer)self);
53
54			self->ok = XtVaCreateWidget
55			("ok",commandWidgetClass,hbox,
56			NULL);
57			XtAddCallback(self->ok,XtNcallback,OkCb,(XtPointer)self);
58
59			self->file = XtVaCreateWidget
60			("file",labelWidgetClass,hbox,
61			NULL);
62			self->text = XtVaCreateManagedWidget
63			("text",asciiTextWidgetClass,vpaned,
64			XtNeditType,XawtextEdit,
65			NULL);
66			}
67
68			static void CnvBrowseShow(CnvBrowse self)
69			{
70			XtUnmanageChild(self->file);
71			if(self->isup == False) XtPopup(self->shell,XtGrabNone);
72			}
73
74			/**********************************************************************
75			* members
76			**********************************************************************/
77
78			/*
79			* parent:
80			* byName:
81			*/
82			CnvBrowse CnvBrowseCreate
83			(String name,Widget parent,CnvBrowseEditProc proc)
84			{
85			CnvBrowse self;
86
87			/* alloc & init state */
88			self = (CnvBrowse)XtMalloc(sizeof(struct CnvBrowse));
89			self->shell = NULL;
90			self->text = NULL;
91			self->file = NULL;
92			self->isup = False;
93			self->proc = proc;
94
95			Layout(self,name,parent);
96			return self;
97			}
98
99			/*
100			*
101			*/
102			void CnvBrowseDestroy(CnvBrowse self)
103			{
104			XtDestroyWidget(self->shell);
105			XtFree((char*)self);
106			}
107
108			/*
109			* show file
110			*/
111			void CnvBrowseShowFile(CnvBrowse self,String file)
112			{
113			if(!(self && file)) return;
114			CnvBrowseShow(self);
115			XtManageChild(self->file);
116			XtVaSetValues(self->text,
117			XtNtype,XawAsciiFile,
118			XtNstring,file,
119			XtNeditType,XawtextRead,
120			NULL);
121			XtVaSetValues(self->file,
122			XtNlabel,file,
123			NULL);
124			}
125
126			/*
127			* show string
128			*/
129			void CnvBrowseShowString(CnvBrowse self,String str)
130			{
131			if(!(self && str)) return;
132			CnvBrowseShow(self);
133			XtVaSetValues(self->text,
134			XtNtype,XawAsciiString,
135			XtNstring,str,
136			XtNeditType,XawtextRead,
137			NULL);
138			}
139
140			/*
141			* edit string, finish by callback
142			*/
143			void CnvBrowseEditString(CnvBrowse self,String str)
144			{
145			if(!(self && str && self->proc)) return;
146			XtManageChild(self->ok);
147			CnvBrowseShow(self);
148			XtVaSetValues(self->text,
149			XtNtype,XawAsciiString,
150			XtNstring,str,
151			XtNeditType,XawtextEdit,
152			NULL);
153			}
154
155			/* end of CnvBrowse.c */