| 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>
|
|---|
