1 | <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> |
---|
2 | <html><head><meta http-equiv="Content-Type" content="text/html;charset=iso-8859-1"> |
---|
3 | <title>G4UIXm.cc Source File</title> |
---|
4 | <link href="doxygen.css" rel="stylesheet" type="text/css"> |
---|
5 | </head><body> |
---|
6 | <!-- Generated by Doxygen 1.3.4 --> |
---|
7 | <div class="qindex"><a class="qindex" href="index.html">Main Page</a> | <a class="qindex" href="hierarchy.html">Class Hierarchy</a> | <a class="qindex" href="annotated.html">Class List</a> | <a class="qindex" href="files.html">File List</a> | <a class="qindex" href="functions.html">Class Members</a> | <a class="qindex" href="globals.html">File Members</a></div> |
---|
8 | <h1>G4UIXm.cc</h1><a href="G4UIXm_8cc.html">Go to the documentation of this file.</a><div class="fragment"><pre>00001 <span class="comment">//</span> |
---|
9 | 00002 <span class="comment">// ********************************************************************</span> |
---|
10 | 00003 <span class="comment">// * License and Disclaimer *</span> |
---|
11 | 00004 <span class="comment">// * *</span> |
---|
12 | 00005 <span class="comment">// * The Geant4 software is copyright of the Copyright Holders of *</span> |
---|
13 | 00006 <span class="comment">// * the Geant4 Collaboration. It is provided under the terms and *</span> |
---|
14 | 00007 <span class="comment">// * conditions of the Geant4 Software License, included in the file *</span> |
---|
15 | 00008 <span class="comment">// * LICENSE and available at http://cern.ch/geant4/license . These *</span> |
---|
16 | 00009 <span class="comment">// * include a list of copyright holders. *</span> |
---|
17 | 00010 <span class="comment">// * *</span> |
---|
18 | 00011 <span class="comment">// * Neither the authors of this software system, nor their employing *</span> |
---|
19 | 00012 <span class="comment">// * institutes,nor the agencies providing financial support for this *</span> |
---|
20 | 00013 <span class="comment">// * work make any representation or warranty, express or implied, *</span> |
---|
21 | 00014 <span class="comment">// * regarding this software system or assume any liability for its *</span> |
---|
22 | 00015 <span class="comment">// * use. Please see the license in the file LICENSE and URL above *</span> |
---|
23 | 00016 <span class="comment">// * for the full disclaimer and the limitation of liability. *</span> |
---|
24 | 00017 <span class="comment">// * *</span> |
---|
25 | 00018 <span class="comment">// * This code implementation is the result of the scientific and *</span> |
---|
26 | 00019 <span class="comment">// * technical work of the GEANT4 collaboration. *</span> |
---|
27 | 00020 <span class="comment">// * By using, copying, modifying or distributing the software (or *</span> |
---|
28 | 00021 <span class="comment">// * any work based on the software) you agree to acknowledge its *</span> |
---|
29 | 00022 <span class="comment">// * use in resulting scientific publications, and indicate your *</span> |
---|
30 | 00023 <span class="comment">// * acceptance of all terms of the Geant4 Software license. *</span> |
---|
31 | 00024 <span class="comment">// ********************************************************************</span> |
---|
32 | 00025 <span class="comment">//</span> |
---|
33 | 00026 <span class="comment">//</span> |
---|
34 | 00027 <span class="comment">// $Id: G4UIXm.cc,v 1.14 2006/06/29 19:09:49 gunter Exp $</span> |
---|
35 | 00028 <span class="comment">// GEANT4 tag $Name: geant4-08-01-patch-01 $</span> |
---|
36 | 00029 <span class="comment">//</span> |
---|
37 | 00030 <span class="comment">// G.Barrand</span> |
---|
38 | 00031 |
---|
39 | 00032 <span class="comment">//#define DEBUG</span> |
---|
40 | 00033 |
---|
41 | 00034 <span class="preprocessor">#ifdef G4UI_BUILD_XM_SESSION</span> |
---|
42 | 00035 <span class="preprocessor"></span> |
---|
43 | 00036 <span class="preprocessor">#include "G4Types.hh"</span> |
---|
44 | 00037 |
---|
45 | 00038 <span class="preprocessor">#include <string.h></span> |
---|
46 | 00039 |
---|
47 | 00040 <span class="preprocessor">#include <X11/Intrinsic.h></span> |
---|
48 | 00041 <span class="preprocessor">#include <X11/Shell.h></span> |
---|
49 | 00042 <span class="preprocessor">#include <X11/keysym.h></span> |
---|
50 | 00043 |
---|
51 | 00044 <span class="preprocessor">#include <Xm/Xm.h></span> |
---|
52 | 00045 <span class="preprocessor">#include <Xm/Command.h></span> |
---|
53 | 00046 <span class="preprocessor">#include <Xm/RowColumn.h></span> |
---|
54 | 00047 <span class="preprocessor">#include <Xm/Form.h></span> |
---|
55 | 00048 <span class="preprocessor">#include <Xm/PushB.h></span> |
---|
56 | 00049 <span class="preprocessor">#include <Xm/CascadeB.h></span> |
---|
57 | 00050 <span class="preprocessor">#include <Xm/Text.h></span> |
---|
58 | 00051 |
---|
59 | 00052 <span class="preprocessor">#include "<a class="code" href="G4UIXm_8hh.html">G4UIXm.hh</a>"</span> |
---|
60 | 00053 <span class="preprocessor">#include "G4UImanager.hh"</span> |
---|
61 | 00054 <span class="preprocessor">#include "G4StateManager.hh"</span> |
---|
62 | 00055 <span class="preprocessor">#include "G4UIcommandTree.hh"</span> |
---|
63 | 00056 <span class="preprocessor">#include "G4UIcommandStatus.hh"</span> |
---|
64 | 00057 |
---|
65 | 00058 <span class="preprocessor">#include "<a class="code" href="G4Xt_8hh.html">G4Xt.hh</a>"</span> |
---|
66 | 00059 |
---|
67 | 00060 <span class="preprocessor">#include <stdlib.h></span> |
---|
68 | 00061 |
---|
69 | 00062 <span class="keyword">static</span> <span class="keywordtype">void</span> <a class="code" href="G4UIXm_8cc.html#a3">XmTextAppendString</a> (Widget,<span class="keywordtype">char</span>*); |
---|
70 | 00063 |
---|
71 | 00064 <span class="keyword">static</span> <span class="keywordtype">void</span> <a class="code" href="G4UIXm_8cc.html#a4">clearButtonCallback</a> (Widget,XtPointer,XtPointer); |
---|
72 | 00065 |
---|
73 | 00066 <span class="keyword">static</span> <span class="keywordtype">char</span>* <a class="code" href="G4UIXm_8cc.html#a5">XmConvertCompoundStringToString</a> (XmString,<span class="keywordtype">int</span>); |
---|
74 | 00067 <span class="keyword">static</span> G4bool <a class="code" href="G4UIXm_8cc.html#a6">ConvertStringToInt</a>(<span class="keyword">const</span> <span class="keywordtype">char</span>*,<span class="keywordtype">int</span>&); |
---|
75 | 00068 <span class="keyword">static</span> <span class="keywordtype">void</span> <a class="code" href="G4UIXm_8cc.html#a7">ExecuteChangeSizeFunction</a>(Widget); |
---|
76 | 00069 |
---|
77 | <a name="l00070"></a><a class="code" href="G4UIXm_8cc.html#a0">00070</a> <span class="keyword">static</span> G4bool <a class="code" href="G4UIXm_8cc.html#a0">exitSession</a> = <span class="keyword">true</span>; |
---|
78 | <a name="l00071"></a><a class="code" href="G4UIXm_8cc.html#a1">00071</a> <span class="keyword">static</span> G4bool <a class="code" href="G4UIXm_8cc.html#a1">exitPause</a> = <span class="keyword">true</span>; |
---|
79 | <a name="l00072"></a><a class="code" href="G4UIXm_8cc.html#a2">00072</a> <span class="keyword">static</span> G4bool <a class="code" href="G4UIXm_8cc.html#a2">exitHelp</a> = <span class="keyword">true</span>; |
---|
80 | 00073 <span class="comment">/***************************************************************************/</span> |
---|
81 | <a name="l00074"></a><a class="code" href="classG4UIXm.html#a0">00074</a> <a class="code" href="classG4UIXm.html#a0">G4UIXm::G4UIXm</a> ( |
---|
82 | 00075 <span class="keywordtype">int</span> argc |
---|
83 | 00076 ,<span class="keywordtype">char</span>** argv |
---|
84 | 00077 ) |
---|
85 | 00078 :shell(NULL) |
---|
86 | 00079 ,command(NULL) |
---|
87 | 00080 ,menuBar(NULL) |
---|
88 | 00081 ,text(NULL) |
---|
89 | 00082 ,fHelp(false) |
---|
90 | 00083 ,fHelpChoice(0) |
---|
91 | 00084 <span class="comment">/***************************************************************************/</span> |
---|
92 | 00086 { |
---|
93 | 00087 G4UImanager* UI = G4UImanager::GetUIpointer(); |
---|
94 | 00088 <span class="keywordflow">if</span>(UI!=NULL) UI->SetSession(<span class="keyword">this</span>); |
---|
95 | 00089 |
---|
96 | 00090 <a class="code" href="classG4Xt.html">G4Xt</a>* interactorManager = <a class="code" href="classG4Xt.html#e0">G4Xt::getInstance</a> (argc,argv,(<span class="keywordtype">char</span>*)<span class="stringliteral">"Xm"</span>); |
---|
97 | 00091 |
---|
98 | 00092 Widget top = (Widget)interactorManager-><a class="code" href="classG4VInteractorManager.html#a5">GetMainInteractor</a>(); |
---|
99 | 00093 |
---|
100 | 00094 <span class="keywordflow">if</span>(getenv(<span class="stringliteral">"XENVIRONMENT"</span>)==NULL) { |
---|
101 | 00095 XrmDatabase database = XrmGetDatabase(XtDisplay(top)); |
---|
102 | 00096 <span class="keywordflow">if</span>(database!=NULL) { |
---|
103 | 00097 XrmPutLineResource(&database,<span class="stringliteral">"*topShadowColor:white"</span>); |
---|
104 | 00098 XrmPutLineResource(&database,<span class="stringliteral">"*bottomShadowColor:black"</span>); |
---|
105 | 00099 XrmPutLineResource(&database,<span class="stringliteral">"*foreground:black"</span>); |
---|
106 | 00100 XrmPutLineResource(&database,<span class="stringliteral">"*background:lightgrey"</span>); |
---|
107 | 00101 XrmPutLineResource(&database,<span class="stringliteral">"*borderColor:lightgrey"</span>); |
---|
108 | 00102 XrmPutLineResource(&database,<span class="stringliteral">"*fontList:-*-helvetica-bold-r-*-*-*-120-*-*-*-*-iso8859-1"</span>); |
---|
109 | 00103 XrmPutLineResource(&database,<span class="stringliteral">"*text.background:white"</span>); |
---|
110 | 00104 XrmPutLineResource(&database,<span class="stringliteral">"*text.fontList:*courier*-r-*--14-*"</span>); |
---|
111 | 00105 XrmPutLineResource(&database,<span class="stringliteral">"*text.maxLength:8000"</span>); |
---|
112 | 00106 } |
---|
113 | 00107 } |
---|
114 | 00108 |
---|
115 | 00109 Arg args[9]; |
---|
116 | 00110 XtSetArg(args[0],XmNkeyboardFocusPolicy,XmPOINTER); <span class="comment">// For completion.</span> |
---|
117 | 00111 <a class="code" href="classG4UIXm.html#r1">shell</a> = XtAppCreateShell (<span class="stringliteral">"G4UIXm"</span>,<span class="stringliteral">"G4UIXm"</span>, |
---|
118 | 00112 topLevelShellWidgetClass,XtDisplay(top), |
---|
119 | 00113 args,1); |
---|
120 | 00114 <a class="code" href="classG4UIXm.html#r0">form</a> = XmCreateForm (<a class="code" href="classG4UIXm.html#r1">shell</a>,(<span class="keywordtype">char</span>*)<span class="stringliteral">"form"</span>,NULL,0); |
---|
121 | 00115 XtManageChild (<a class="code" href="classG4UIXm.html#r0">form</a>); |
---|
122 | 00116 |
---|
123 | 00117 XtSetArg(args[0],XmNtopAttachment ,XmATTACH_FORM); |
---|
124 | 00118 XtSetArg(args[1],XmNleftAttachment ,XmATTACH_FORM); |
---|
125 | 00119 XtSetArg(args[2],XmNrightAttachment ,XmATTACH_FORM); |
---|
126 | 00120 <a class="code" href="classG4UIXm.html#r3">menuBar</a> = XmCreateMenuBar (<a class="code" href="classG4UIXm.html#r0">form</a>,(<span class="keywordtype">char</span>*)<span class="stringliteral">"menuBar"</span>,args,3); |
---|
127 | 00121 |
---|
128 | 00122 XtSetArg(args[0],XmNtopAttachment ,XmATTACH_NONE); |
---|
129 | 00123 XtSetArg(args[1],XmNleftAttachment ,XmATTACH_FORM); |
---|
130 | 00124 XtSetArg(args[2],XmNrightAttachment ,XmATTACH_FORM); |
---|
131 | 00125 XtSetArg(args[3],XmNbottomAttachment ,XmATTACH_FORM); |
---|
132 | 00126 <a class="code" href="classG4UIXm.html#r2">command</a> = XmCreateCommand (<a class="code" href="classG4UIXm.html#r0">form</a>,(<span class="keywordtype">char</span>*)<span class="stringliteral">"command"</span>,args,4); |
---|
133 | 00127 XtManageChild (<a class="code" href="classG4UIXm.html#r2">command</a>); |
---|
134 | 00128 |
---|
135 | 00129 XtSetArg(args[0],XmNtopAttachment ,XmATTACH_NONE); |
---|
136 | 00130 XtSetArg(args[1],XmNleftAttachment ,XmATTACH_FORM); |
---|
137 | 00131 XtSetArg(args[2],XmNrightAttachment ,XmATTACH_FORM); |
---|
138 | 00132 XtSetArg(args[3],XmNbottomAttachment,XmATTACH_WIDGET); |
---|
139 | 00133 XtSetArg(args[4],XmNbottomWidget ,<a class="code" href="classG4UIXm.html#r2">command</a>); |
---|
140 | 00134 XmString cps = XmStringLtoRCreate((<span class="keywordtype">char</span>*)<span class="stringliteral">"Clear"</span>,XmSTRING_DEFAULT_CHARSET); |
---|
141 | 00135 XtSetArg (args[5],XmNlabelString,cps); |
---|
142 | 00136 Widget clearButton = XmCreatePushButton(<a class="code" href="classG4UIXm.html#r0">form</a>,(<span class="keywordtype">char</span>*)<span class="stringliteral">"clearButton"</span>,args,6); |
---|
143 | 00137 XmStringFree (cps); |
---|
144 | 00138 XtManageChild (clearButton); |
---|
145 | 00139 |
---|
146 | 00140 XtSetArg(args[0],XmNtopAttachment ,XmATTACH_WIDGET); |
---|
147 | 00141 XtSetArg(args[1],XmNtopWidget ,<a class="code" href="classG4UIXm.html#r3">menuBar</a>); |
---|
148 | 00142 XtSetArg(args[2],XmNleftAttachment ,XmATTACH_FORM); |
---|
149 | 00143 XtSetArg(args[3],XmNrightAttachment ,XmATTACH_FORM); |
---|
150 | 00144 XtSetArg(args[4],XmNbottomAttachment,XmATTACH_WIDGET); |
---|
151 | 00145 XtSetArg(args[5],XmNbottomWidget ,clearButton); |
---|
152 | 00146 XtSetArg(args[6],XmNeditMode ,XmMULTI_LINE_EDIT); |
---|
153 | 00147 XtSetArg(args[7],XmNrows ,12); |
---|
154 | 00148 XtSetArg(args[8],XmNcolumns ,80); |
---|
155 | 00149 <a class="code" href="classG4UIXm.html#r4">text</a> = XmCreateScrolledText (<a class="code" href="classG4UIXm.html#r0">form</a>,(<span class="keywordtype">char</span>*)<span class="stringliteral">"text"</span>,args,9); |
---|
156 | 00150 XtManageChild (<a class="code" href="classG4UIXm.html#r4">text</a>); |
---|
157 | 00151 |
---|
158 | 00152 XtAddCallback(clearButton,XmNactivateCallback, |
---|
159 | 00153 <a class="code" href="G4UIXm_8cc.html#a4">clearButtonCallback</a>,(XtPointer)<a class="code" href="classG4UIXm.html#r4">text</a>); |
---|
160 | 00154 XtAddCallback(<a class="code" href="classG4UIXm.html#r2">command</a>,XmNcommandEnteredCallback, |
---|
161 | 00155 <a class="code" href="classG4UIXm.html#h0">commandEnteredCallback</a>,(XtPointer)<span class="keyword">this</span>); |
---|
162 | 00156 |
---|
163 | 00157 Widget commandText = XmCommandGetChild(<a class="code" href="classG4UIXm.html#r2">command</a>,XmDIALOG_COMMAND_TEXT); |
---|
164 | 00158 XtAddEventHandler(commandText,KeyPressMask,False,<a class="code" href="classG4UIXm.html#h1">keyHandler</a>,(XtPointer)<span class="keyword">this</span>); |
---|
165 | 00159 |
---|
166 | 00160 XtRealizeWidget(<a class="code" href="classG4UIXm.html#r1">shell</a>); |
---|
167 | 00161 XtMapWidget(<a class="code" href="classG4UIXm.html#r1">shell</a>); |
---|
168 | 00162 |
---|
169 | 00163 <span class="keywordflow">if</span>(UI!=NULL) UI->SetCoutDestination(<span class="keyword">this</span>); |
---|
170 | 00164 } |
---|
171 | 00165 <span class="comment">/***************************************************************************/</span> |
---|
172 | <a name="l00166"></a><a class="code" href="classG4UIXm.html#a4">00166</a> <a class="code" href="classG4UIXm.html#a4">G4UIXm::~G4UIXm</a>( |
---|
173 | 00167 ) |
---|
174 | 00168 <span class="comment">/***************************************************************************/</span> |
---|
175 | 00170 { |
---|
176 | 00171 G4UImanager* UI = G4UImanager::GetUIpointer(); |
---|
177 | 00172 <span class="keywordflow">if</span>(UI!=NULL) { |
---|
178 | 00173 UI->SetSession(NULL); |
---|
179 | 00174 UI->SetCoutDestination(NULL); |
---|
180 | 00175 } |
---|
181 | 00176 XtDestroyWidget(<a class="code" href="classG4UIXm.html#r1">shell</a>); |
---|
182 | 00177 } |
---|
183 | 00178 <span class="comment">/***************************************************************************/</span> |
---|
184 | <a name="l00179"></a><a class="code" href="classG4UIXm.html#a1">00179</a> G4UIsession* <a class="code" href="classG4UIXm.html#a1">G4UIXm::SessionStart</a> ( |
---|
185 | 00180 ) |
---|
186 | 00181 <span class="comment">/***************************************************************************/</span> |
---|
187 | 00183 { |
---|
188 | 00184 <a class="code" href="classG4Xt.html">G4Xt</a>* interactorManager = <a class="code" href="classG4Xt.html#e0">G4Xt::getInstance</a> (); |
---|
189 | 00185 <a class="code" href="classG4UIXm.html#a5">Prompt</a>(<span class="stringliteral">"session"</span>); |
---|
190 | 00186 <a class="code" href="G4UIXm_8cc.html#a0">exitSession</a> = <span class="keyword">false</span>; |
---|
191 | 00187 interactorManager-><a class="code" href="classG4VInteractorManager.html#a13">DisableSecondaryLoop</a> (); |
---|
192 | 00188 <span class="keywordtype">void</span>* event; |
---|
193 | 00189 <span class="keywordflow">while</span>((event = interactorManager-><a class="code" href="classG4Xt.html#a2">GetEvent</a>())!=NULL) { |
---|
194 | 00190 interactorManager-><a class="code" href="classG4VInteractorManager.html#a17">DispatchEvent</a>(event); |
---|
195 | 00191 <span class="keywordflow">if</span>(<a class="code" href="G4UIXm_8cc.html#a0">exitSession</a>==<span class="keyword">true</span>) <span class="keywordflow">break</span>; |
---|
196 | 00192 } |
---|
197 | 00193 interactorManager-><a class="code" href="classG4VInteractorManager.html#a12">EnableSecondaryLoop</a> (); |
---|
198 | 00194 <span class="keywordflow">return</span> <span class="keyword">this</span>; |
---|
199 | 00195 } |
---|
200 | 00196 <span class="comment">/***************************************************************************/</span> |
---|
201 | <a name="l00197"></a><a class="code" href="classG4UIXm.html#a5">00197</a> <span class="keywordtype">void</span> <a class="code" href="classG4UIXm.html#a5">G4UIXm::Prompt</a> ( |
---|
202 | 00198 G4String aPrompt |
---|
203 | 00199 ) |
---|
204 | 00200 <span class="comment">/***************************************************************************/</span> |
---|
205 | 00202 { |
---|
206 | 00203 Arg args[1]; |
---|
207 | 00204 <span class="keywordtype">char</span>* str = (<span class="keywordtype">char</span>*)XtNewString(aPrompt.data()); |
---|
208 | 00205 XmString cps = XmStringLtoRCreate(str,XmSTRING_DEFAULT_CHARSET); |
---|
209 | 00206 XtFree(str); |
---|
210 | 00207 XtSetArg(args[0],XmNpromptString,cps); |
---|
211 | 00208 XtSetValues(<a class="code" href="classG4UIXm.html#r2">command</a>,args,1); |
---|
212 | 00209 XmStringFree(cps); |
---|
213 | 00210 } |
---|
214 | 00211 <span class="comment">/***************************************************************************/</span> |
---|
215 | <a name="l00212"></a><a class="code" href="classG4UIXm.html#a6">00212</a> <span class="keywordtype">void</span> <a class="code" href="classG4UIXm.html#a6">G4UIXm::SessionTerminate</a> ( |
---|
216 | 00213 ) |
---|
217 | 00214 <span class="comment">/***************************************************************************/</span> |
---|
218 | 00216 { |
---|
219 | 00217 } |
---|
220 | 00218 <span class="comment">/***************************************************************************/</span> |
---|
221 | <a name="l00219"></a><a class="code" href="classG4UIXm.html#a7">00219</a> <span class="keywordtype">void</span> <a class="code" href="classG4UIXm.html#a7">G4UIXm::PauseSessionStart</a> ( |
---|
222 | 00220 G4String a_state |
---|
223 | 00221 ) |
---|
224 | 00222 <span class="comment">/***************************************************************************/</span> |
---|
225 | 00224 { |
---|
226 | 00225 <span class="keywordflow">if</span>(a_state==<span class="stringliteral">"G4_pause> "</span>) { |
---|
227 | 00226 <a class="code" href="classG4UIXm.html#d0">SecondaryLoop</a> (<span class="stringliteral">"Pause, type continue to exit this state"</span>); |
---|
228 | 00227 } |
---|
229 | 00228 |
---|
230 | 00229 <span class="keywordflow">if</span>(a_state==<span class="stringliteral">"EndOfEvent"</span>) { |
---|
231 | 00230 <span class="comment">// Picking with feed back in event data Done here !!!</span> |
---|
232 | 00231 <a class="code" href="classG4UIXm.html#d0">SecondaryLoop</a> (<span class="stringliteral">"End of event, type continue to exit this state"</span>); |
---|
233 | 00232 } |
---|
234 | 00233 } |
---|
235 | 00234 <span class="comment">/***************************************************************************/</span> |
---|
236 | <a name="l00235"></a><a class="code" href="classG4UIXm.html#d0">00235</a> <span class="keywordtype">void</span> <a class="code" href="classG4UIXm.html#d0">G4UIXm::SecondaryLoop</a> ( |
---|
237 | 00236 G4String a_prompt |
---|
238 | 00237 ) |
---|
239 | 00238 <span class="comment">/***************************************************************************/</span> |
---|
240 | 00240 { |
---|
241 | 00241 <a class="code" href="classG4Xt.html">G4Xt</a>* interactorManager = <a class="code" href="classG4Xt.html#e0">G4Xt::getInstance</a> (); |
---|
242 | 00242 <a class="code" href="classG4UIXm.html#a5">Prompt</a>(a_prompt); |
---|
243 | 00243 <a class="code" href="G4UIXm_8cc.html#a1">exitPause</a> = <span class="keyword">false</span>; |
---|
244 | 00244 <span class="keywordtype">void</span>* event; |
---|
245 | 00245 <span class="keywordflow">while</span>((event = interactorManager-><a class="code" href="classG4Xt.html#a2">GetEvent</a>())!=NULL) { |
---|
246 | 00246 interactorManager-><a class="code" href="classG4VInteractorManager.html#a17">DispatchEvent</a>(event); |
---|
247 | 00247 <span class="keywordflow">if</span>(<a class="code" href="G4UIXm_8cc.html#a1">exitPause</a>==<span class="keyword">true</span>) <span class="keywordflow">break</span>; |
---|
248 | 00248 } |
---|
249 | 00249 <a class="code" href="classG4UIXm.html#a5">Prompt</a>(<span class="stringliteral">"session"</span>); |
---|
250 | 00250 } |
---|
251 | 00251 <span class="comment">/***************************************************************************/</span> |
---|
252 | <a name="l00252"></a><a class="code" href="classG4UIXm.html#a8">00252</a> G4int <a class="code" href="classG4UIXm.html#a8">G4UIXm::ReceiveG4cout</a> ( |
---|
253 | 00253 G4String a_string |
---|
254 | 00254 ) |
---|
255 | 00255 <span class="comment">/***************************************************************************/</span> |
---|
256 | 00257 { |
---|
257 | 00258 <a class="code" href="G4UIXm_8cc.html#a3">XmTextAppendString</a>(<a class="code" href="classG4UIXm.html#r4">text</a>,(<span class="keywordtype">char</span>*)a_string.data()); |
---|
258 | 00259 <span class="keywordflow">return</span> 0; |
---|
259 | 00260 } |
---|
260 | 00261 <span class="comment">/***************************************************************************/</span> |
---|
261 | <a name="l00262"></a><a class="code" href="classG4UIXm.html#a9">00262</a> G4int <a class="code" href="classG4UIXm.html#a9">G4UIXm::ReceiveG4cerr</a> ( |
---|
262 | 00263 G4String a_string |
---|
263 | 00264 ) |
---|
264 | 00265 <span class="comment">/***************************************************************************/</span> |
---|
265 | 00267 { |
---|
266 | 00268 <a class="code" href="G4UIXm_8cc.html#a3">XmTextAppendString</a>(<a class="code" href="classG4UIXm.html#r4">text</a>,(<span class="keywordtype">char</span>*)a_string.data()); |
---|
267 | 00269 <span class="keywordflow">return</span> 0; |
---|
268 | 00270 } |
---|
269 | 00271 <span class="comment">/***************************************************************************/</span> |
---|
270 | <a name="l00272"></a><a class="code" href="classG4UIXm.html#d1">00272</a> G4bool <a class="code" href="classG4UIXm.html#d1">G4UIXm::GetHelpChoice</a>( |
---|
271 | 00273 G4int& aInt |
---|
272 | 00274 ) |
---|
273 | 00275 <span class="comment">/***************************************************************************/</span> |
---|
274 | 00277 { |
---|
275 | 00278 <a class="code" href="classG4UIXm.html#r6">fHelp</a> = <span class="keyword">true</span>; |
---|
276 | 00279 <span class="comment">// SecondaryLoop :</span> |
---|
277 | 00280 <a class="code" href="classG4Xt.html">G4Xt</a>* interactorManager = <a class="code" href="classG4Xt.html#e0">G4Xt::getInstance</a> (); |
---|
278 | 00281 <a class="code" href="classG4UIXm.html#a5">Prompt</a>(<span class="stringliteral">"Help"</span>); |
---|
279 | 00282 <a class="code" href="G4UIXm_8cc.html#a2">exitHelp</a> = <span class="keyword">false</span>; |
---|
280 | 00283 <span class="keywordtype">void</span>* event; |
---|
281 | 00284 <span class="keywordflow">while</span>((event = interactorManager-><a class="code" href="classG4Xt.html#a2">GetEvent</a>())!=NULL) { |
---|
282 | 00285 interactorManager-><a class="code" href="classG4VInteractorManager.html#a17">DispatchEvent</a>(event); |
---|
283 | 00286 <span class="keywordflow">if</span>(<a class="code" href="G4UIXm_8cc.html#a2">exitHelp</a>==<span class="keyword">true</span>) <span class="keywordflow">break</span>; |
---|
284 | 00287 } |
---|
285 | 00288 <a class="code" href="classG4UIXm.html#a5">Prompt</a>(<span class="stringliteral">"session"</span>); |
---|
286 | 00289 <span class="comment">//</span> |
---|
287 | 00290 <span class="keywordflow">if</span>(<a class="code" href="classG4UIXm.html#r6">fHelp</a>==<span class="keyword">false</span>) <span class="keywordflow">return</span> <span class="keyword">false</span>; |
---|
288 | 00291 aInt = <a class="code" href="classG4UIXm.html#r7">fHelpChoice</a>; |
---|
289 | 00292 <a class="code" href="classG4UIXm.html#r6">fHelp</a> = <span class="keyword">false</span>; |
---|
290 | 00293 <span class="keywordflow">return</span> <span class="keyword">true</span>; |
---|
291 | 00294 } |
---|
292 | 00295 <span class="comment">/***************************************************************************/</span> |
---|
293 | <a name="l00296"></a><a class="code" href="classG4UIXm.html#d2">00296</a> <span class="keywordtype">void</span> <a class="code" href="classG4UIXm.html#d2">G4UIXm::ExitHelp</a>( |
---|
294 | 00297 ) |
---|
295 | 00298 <span class="comment">/***************************************************************************/</span> |
---|
296 | 00300 { |
---|
297 | 00301 } |
---|
298 | 00302 <span class="comment">/***************************************************************************/</span> |
---|
299 | <a name="l00303"></a><a class="code" href="classG4UIXm.html#a2">00303</a> <span class="keywordtype">void</span> <a class="code" href="classG4UIXm.html#a2">G4UIXm::AddMenu</a> ( |
---|
300 | 00304 <span class="keyword">const</span> <span class="keywordtype">char</span>* a_name |
---|
301 | 00305 ,<span class="keyword">const</span> <span class="keywordtype">char</span>* a_label |
---|
302 | 00306 ) |
---|
303 | 00307 <span class="comment">/***************************************************************************/</span> |
---|
304 | 00309 { |
---|
305 | 00310 <span class="keywordflow">if</span>(<a class="code" href="classG4UIXm.html#r3">menuBar</a>==NULL) <span class="keywordflow">return</span>; |
---|
306 | 00311 <span class="keywordflow">if</span>(a_name==NULL) <span class="keywordflow">return</span>; |
---|
307 | 00312 <span class="keywordflow">if</span>(a_label==NULL) <span class="keywordflow">return</span>; |
---|
308 | 00313 XtManageChild (<a class="code" href="classG4UIXm.html#r3">menuBar</a>); |
---|
309 | 00314 <span class="comment">// Pulldown menu :</span> |
---|
310 | 00315 Widget widget; |
---|
311 | 00316 widget = XmCreatePulldownMenu (<a class="code" href="classG4UIXm.html#r3">menuBar</a>,(<span class="keywordtype">char</span>*)a_name,NULL,0); |
---|
312 | 00317 <a class="code" href="classG4VInteractiveSession.html#a4">AddInteractor</a> (a_name,(<a class="code" href="G4VInteractorManager_8hh.html#a0">G4Interactor</a>)widget); |
---|
313 | 00318 <span class="comment">// Cascade button :</span> |
---|
314 | 00319 Arg args[2]; |
---|
315 | 00320 XmString cps = XmStringLtoRCreate((<span class="keywordtype">char</span>*)a_label,XmSTRING_DEFAULT_CHARSET); |
---|
316 | 00321 XtSetArg (args[0],XmNlabelString,cps); |
---|
317 | 00322 XtSetArg (args[1],XmNsubMenuId,widget); |
---|
318 | 00323 widget = XmCreateCascadeButton (<a class="code" href="classG4UIXm.html#r3">menuBar</a>,(<span class="keywordtype">char</span>*)a_name,args,2); |
---|
319 | 00324 XmStringFree (cps); |
---|
320 | 00325 XtManageChild (widget); |
---|
321 | 00326 <a class="code" href="G4UIXm_8cc.html#a7">ExecuteChangeSizeFunction</a>(<a class="code" href="classG4UIXm.html#r0">form</a>); |
---|
322 | 00327 } |
---|
323 | 00328 <span class="comment">/***************************************************************************/</span> |
---|
324 | <a name="l00329"></a><a class="code" href="classG4UIXm.html#a3">00329</a> <span class="keywordtype">void</span> <a class="code" href="classG4UIXm.html#a3">G4UIXm::AddButton</a> ( |
---|
325 | 00330 <span class="keyword">const</span> <span class="keywordtype">char</span>* a_menu |
---|
326 | 00331 ,<span class="keyword">const</span> <span class="keywordtype">char</span>* a_label |
---|
327 | 00332 ,<span class="keyword">const</span> <span class="keywordtype">char</span>* a_command |
---|
328 | 00333 ) |
---|
329 | 00334 <span class="comment">/***************************************************************************/</span> |
---|
330 | 00336 { |
---|
331 | 00337 <span class="keywordflow">if</span>(a_menu==NULL) <span class="keywordflow">return</span>; |
---|
332 | 00338 <span class="keywordflow">if</span>(a_label==NULL) <span class="keywordflow">return</span>; |
---|
333 | 00339 <span class="keywordflow">if</span>(a_command==NULL) <span class="keywordflow">return</span>; |
---|
334 | 00340 Widget parent = (Widget)<a class="code" href="classG4VInteractiveSession.html#a5">GetInteractor</a>(a_menu); |
---|
335 | 00341 <span class="keywordflow">if</span>(parent==NULL) <span class="keywordflow">return</span>; |
---|
336 | 00342 Widget widget = XmCreatePushButton(parent,(<span class="keywordtype">char</span>*)a_label,NULL,0); |
---|
337 | 00343 XtManageChild (widget); |
---|
338 | 00344 XtAddCallback (widget,XmNactivateCallback,<a class="code" href="classG4UIXm.html#h2">ButtonCallback</a>,(XtPointer)<span class="keyword">this</span>); |
---|
339 | 00345 <a class="code" href="classG4UIXm.html#r5">commands</a>[widget] = a_command; |
---|
340 | 00346 } |
---|
341 | 00347 <span class="comment">/***************************************************************************/</span> |
---|
342 | <a name="l00348"></a><a class="code" href="classG4UIXm.html#a10">00348</a> G4String <a class="code" href="classG4UIXm.html#a10">G4UIXm::GetCommand</a> ( |
---|
343 | 00349 Widget a_widget |
---|
344 | 00350 ) |
---|
345 | 00351 <span class="comment">/***************************************************************************/</span> |
---|
346 | 00353 { |
---|
347 | 00354 <span class="keywordflow">return</span> <a class="code" href="classG4UIXm.html#r5">commands</a>[a_widget]; |
---|
348 | 00355 } |
---|
349 | 00356 <span class="comment">/***************************************************************************/</span> |
---|
350 | 00357 <span class="comment">/***************************************************************************/</span> |
---|
351 | 00358 <span class="comment">/***************************************************************************/</span> |
---|
352 | <a name="l00359"></a><a class="code" href="classG4UIXm.html#h0">00359</a> <span class="keywordtype">void</span> <a class="code" href="classG4UIXm.html#h0">G4UIXm::commandEnteredCallback</a> ( |
---|
353 | 00360 Widget a_widget |
---|
354 | 00361 ,XtPointer a_tag |
---|
355 | 00362 ,XtPointer a_data |
---|
356 | 00363 ) |
---|
357 | 00364 <span class="comment">/***************************************************************************/</span> |
---|
358 | 00366 { |
---|
359 | 00367 <a class="code" href="classG4UIXm.html">G4UIXm</a>* This = (<a class="code" href="classG4UIXm.html">G4UIXm</a>*)a_tag; |
---|
360 | 00368 |
---|
361 | 00369 XmString cps = ((XmCommandCallbackStruct*)a_data)->value; |
---|
362 | 00370 <span class="keywordtype">char</span>* ss = <a class="code" href="G4UIXm_8cc.html#a5">XmConvertCompoundStringToString</a>(cps,0); |
---|
363 | 00371 G4String <a class="code" href="classG4UIXm.html#r2">command</a> (ss); |
---|
364 | 00372 XtFree (ss); |
---|
365 | 00373 |
---|
366 | 00374 <span class="keywordflow">if</span>(This-><a class="code" href="classG4UIXm.html#r6">fHelp</a>==<span class="keyword">true</span>) { |
---|
367 | 00375 <a class="code" href="G4UIXm_8cc.html#a2">exitHelp</a> = <span class="keyword">true</span>; |
---|
368 | 00376 This-><a class="code" href="classG4UIXm.html#r6">fHelp</a> = <a class="code" href="G4UIXm_8cc.html#a6">ConvertStringToInt</a>(command.data(),This-><a class="code" href="classG4UIXm.html#r7">fHelpChoice</a>); |
---|
369 | 00377 } <span class="keywordflow">else</span> { |
---|
370 | 00378 This-><a class="code" href="classG4VBasicShell.html#b10">ApplyShellCommand</a> (command,<a class="code" href="G4UIXm_8cc.html#a0">exitSession</a>,<a class="code" href="G4UIXm_8cc.html#a1">exitPause</a>); |
---|
371 | 00379 } |
---|
372 | 00380 |
---|
373 | 00381 a_widget = NULL; |
---|
374 | 00382 a_tag = NULL; |
---|
375 | 00383 } |
---|
376 | 00384 <span class="comment">/***************************************************************************/</span> |
---|
377 | <a name="l00385"></a><a class="code" href="classG4UIXm.html#h1">00385</a> <span class="keywordtype">void</span> <a class="code" href="classG4UIXm.html#h1">G4UIXm::keyHandler</a> ( |
---|
378 | 00386 Widget a_widget |
---|
379 | 00387 ,XtPointer a_tag |
---|
380 | 00388 ,XEvent* a_event |
---|
381 | 00389 ,Boolean* |
---|
382 | 00390 ) |
---|
383 | 00391 <span class="comment">/***************************************************************************/</span> |
---|
384 | 00393 { |
---|
385 | 00394 KeySym keySym; |
---|
386 | 00395 XLookupString(&(a_event->xkey),NULL,0,&keySym,NULL); |
---|
387 | 00396 <span class="keywordflow">if</span>(keySym!=XK_Tab) <span class="keywordflow">return</span>; |
---|
388 | 00397 <a class="code" href="classG4UIXm.html">G4UIXm</a>* This = (<a class="code" href="classG4UIXm.html">G4UIXm</a>*)a_tag; |
---|
389 | 00398 <span class="keywordtype">char</span>* s = XmTextGetString(a_widget); |
---|
390 | 00399 G4String ss = This-><a class="code" href="classG4VBasicShell.html#b5">Complete</a>(s); |
---|
391 | 00400 XmTextSetString(a_widget,(<span class="keywordtype">char</span>*)ss.data()); |
---|
392 | 00401 XtFree(s); |
---|
393 | 00402 XmTextSetInsertionPosition(a_widget,XmTextGetLastPosition(a_widget)); |
---|
394 | 00403 } |
---|
395 | 00404 <span class="comment">/***************************************************************************/</span> |
---|
396 | <a name="l00405"></a><a class="code" href="G4UIXm_8cc.html#a4">00405</a> <span class="keywordtype">void</span> <a class="code" href="G4UIXm_8cc.html#a4">clearButtonCallback</a> ( |
---|
397 | 00406 Widget |
---|
398 | 00407 ,XtPointer a_tag |
---|
399 | 00408 ,XtPointer |
---|
400 | 00409 ) |
---|
401 | 00410 <span class="comment">/***************************************************************************/</span> |
---|
402 | 00412 { |
---|
403 | 00413 XmTextSetString((Widget)a_tag,(<span class="keywordtype">char</span>*)<span class="stringliteral">""</span>); |
---|
404 | 00414 } |
---|
405 | 00415 <span class="comment">/***************************************************************************/</span> |
---|
406 | <a name="l00416"></a><a class="code" href="classG4UIXm.html#h2">00416</a> <span class="keywordtype">void</span> <a class="code" href="classG4UIXm.html#h2">G4UIXm::ButtonCallback</a> ( |
---|
407 | 00417 Widget a_widget |
---|
408 | 00418 ,XtPointer a_tag |
---|
409 | 00419 ,XtPointer |
---|
410 | 00420 ) |
---|
411 | 00421 <span class="comment">/***************************************************************************/</span> |
---|
412 | 00423 { |
---|
413 | 00424 <a class="code" href="classG4UIXm.html">G4UIXm</a>* This = (<a class="code" href="classG4UIXm.html">G4UIXm</a>*)a_tag; |
---|
414 | 00425 <span class="keywordflow">if</span>(This-><a class="code" href="classG4UIXm.html#r6">fHelp</a>==<span class="keyword">true</span>) <span class="keywordflow">return</span>; <span class="comment">// Disabled when in help.</span> |
---|
415 | 00426 G4String ss = This-><a class="code" href="classG4UIXm.html#a10">GetCommand</a> (a_widget); |
---|
416 | 00427 <span class="comment">//printf ("debug : execute:\n%s\n",ss.data());</span> |
---|
417 | 00428 This-><a class="code" href="classG4VBasicShell.html#b10">ApplyShellCommand</a>(ss,<a class="code" href="G4UIXm_8cc.html#a0">exitSession</a>,<a class="code" href="G4UIXm_8cc.html#a1">exitPause</a>); |
---|
418 | 00429 } |
---|
419 | 00430 <span class="comment">/***************************************************************************/</span> |
---|
420 | 00431 <span class="comment">/***************************************************************************/</span> |
---|
421 | 00432 <span class="comment">/***************************************************************************/</span> |
---|
422 | <a name="l00433"></a><a class="code" href="G4UIXm_8cc.html#a5">00433</a> <span class="keywordtype">char</span>* <a class="code" href="G4UIXm_8cc.html#a5">XmConvertCompoundStringToString</a> ( |
---|
423 | 00434 XmString a_cps |
---|
424 | 00435 ,<span class="keywordtype">int</span> a_number |
---|
425 | 00436 ) |
---|
426 | 00437 <span class="comment">/***************************************************************************/</span> |
---|
427 | 00439 { |
---|
428 | 00440 <span class="keywordflow">if</span>(a_cps==NULL) <span class="keywordflow">return</span> NULL; |
---|
429 | 00441 <span class="keywordtype">char</span>* ss = NULL; |
---|
430 | 00442 XmStringContext context; |
---|
431 | 00443 XmStringInitContext(&context,a_cps); |
---|
432 | 00444 <span class="keywordtype">int</span> icount = 0; |
---|
433 | 00445 Boolean Done = False; |
---|
434 | 00446 <span class="keywordflow">while</span>(Done==False) { |
---|
435 | 00447 <span class="keywordtype">char</span>* text = NULL; |
---|
436 | 00448 XmStringCharSet charset = NULL; |
---|
437 | 00449 XmStringDirection direct; |
---|
438 | 00450 Boolean sep; |
---|
439 | 00451 <span class="keywordflow">if</span>(XmStringGetNextSegment(context,&text,&charset,&direct,&sep)==True) { |
---|
440 | 00452 XtFree(charset); |
---|
441 | 00453 <span class="keywordflow">if</span>(sep==True) Done = True; |
---|
442 | 00454 <span class="keywordflow">if</span>(icount==a_number) { |
---|
443 | 00455 ss = text; |
---|
444 | 00456 <span class="keywordflow">break</span>; |
---|
445 | 00457 } |
---|
446 | 00458 icount++; |
---|
447 | 00459 XtFree(text); |
---|
448 | 00460 } |
---|
449 | 00461 <span class="keywordflow">else</span> |
---|
450 | 00462 Done = True; |
---|
451 | 00463 } |
---|
452 | 00464 XmStringFreeContext(context); |
---|
453 | 00465 <span class="keywordflow">return</span> ss; |
---|
454 | 00466 } |
---|
455 | 00467 <span class="comment">/***************************************************************************/</span> |
---|
456 | <a name="l00468"></a><a class="code" href="G4UIXm_8cc.html#a3">00468</a> <span class="keywordtype">void</span> <a class="code" href="G4UIXm_8cc.html#a3">XmTextAppendString</a> ( |
---|
457 | 00469 Widget This |
---|
458 | 00470 ,<span class="keywordtype">char</span>* a_string |
---|
459 | 00471 ) |
---|
460 | 00472 <span class="comment">/***************************************************************************/</span> |
---|
461 | 00474 { |
---|
462 | 00475 <span class="keywordflow">if</span>(This==NULL) <span class="keywordflow">return</span>; |
---|
463 | 00476 <span class="keywordflow">if</span>(!XtIsSubclass(This,xmTextWidgetClass)) <span class="keywordflow">return</span>; |
---|
464 | 00477 <span class="keywordflow">if</span>(a_string==NULL) <span class="keywordflow">return</span>; |
---|
465 | 00478 XmTextPosition lastpos = XmTextGetLastPosition(This); |
---|
466 | 00479 XmTextReplace(This,lastpos,lastpos,a_string); |
---|
467 | 00480 XmTextSetInsertionPosition(This,XmTextGetLastPosition(This)); |
---|
468 | 00481 } |
---|
469 | <a name="l00483"></a><a class="code" href="G4UIXm_8cc.html#a6">00483</a> G4bool <a class="code" href="G4UIXm_8cc.html#a6">ConvertStringToInt</a>( |
---|
470 | 00484 <span class="keyword">const</span> <span class="keywordtype">char</span>* aString |
---|
471 | 00485 ,<span class="keywordtype">int</span>& aInt |
---|
472 | 00486 ) |
---|
473 | 00489 { |
---|
474 | 00490 aInt = 0; |
---|
475 | 00491 <span class="keywordflow">if</span>(aString==NULL) <span class="keywordflow">return</span> <span class="keyword">false</span>; |
---|
476 | 00492 <span class="keywordtype">char</span>* s; |
---|
477 | 00493 <span class="keywordtype">long</span> value = strtol(aString,&s,10); |
---|
478 | 00494 <span class="keywordflow">if</span>(s==aString) <span class="keywordflow">return</span> <span class="keyword">false</span>; |
---|
479 | 00495 aInt = value; |
---|
480 | 00496 <span class="keywordflow">return</span> <span class="keyword">true</span>; |
---|
481 | 00497 } |
---|
482 | 00498 <span class="preprocessor">#include <X11/IntrinsicP.h></span> |
---|
483 | <a name="l00500"></a><a class="code" href="G4UIXm_8cc.html#a7">00500</a> <span class="keywordtype">void</span> <a class="code" href="G4UIXm_8cc.html#a7">ExecuteChangeSizeFunction</a> ( |
---|
484 | 00501 Widget aWidget |
---|
485 | 00502 ) |
---|
486 | 00505 { |
---|
487 | 00506 <span class="keywordflow">if</span>(aWidget==NULL) <span class="keywordflow">return</span>; |
---|
488 | 00507 <span class="keywordflow">if</span>(aWidget->core.widget_class->core_class.resize==NULL) <span class="keywordflow">return</span>; |
---|
489 | 00508 (aWidget->core.widget_class->core_class.resize)(aWidget); |
---|
490 | 00509 } |
---|
491 | 00510 |
---|
492 | 00511 |
---|
493 | 00512 <span class="preprocessor">#endif</span> |
---|
494 | </pre></div><hr size="1"><address style="align: right;"><small>Generated on Fri Jun 22 11:07:02 2007 by |
---|
495 | <a href="http://www.doxygen.org/index.html"> |
---|
496 | <img src="doxygen.png" alt="doxygen" align="middle" border=0 > |
---|
497 | </a>1.3.4 </small></address> |
---|
498 | </body> |
---|
499 | </html> |
---|