1 /*** DTB_USER_CODE_START vvv Add file header below vvv ***/
2 //%% (c) Copyright 1993, 1994 Hewlett-Packard Company
3 //%% (c) Copyright 1993, 1994 International Business Machines Corp.
4 //%% (c) Copyright 1993, 1994 Sun Microsystems, Inc.
5 //%% (c) Copyright 1993, 1994 Novell, Inc.
6 //%% $XConsortium: stringChooser_stubs.C.src /main/3 1995/11/06 17:13:57 rswiston $
7 /*** DTB_USER_CODE_END ^^^ Add file header above ^^^ ***/
10 * File: stringChooser_stubs.c
11 * Contains: Module callbacks and connection functions
13 * This file was generated by dtcodegen, from module stringChooser
15 * Any text may be added between the DTB_USER_CODE_START and
16 * DTB_USER_CODE_END comments (even non-C code). Descriptive comments
17 * are provided only as an aid.
19 * ** EDIT ONLY WITHIN SECTIONS MARKED WITH DTB_USER_CODE COMMENTS. **
20 * ** ALL OTHER MODIFICATIONS WILL BE OVERWRITTEN. DO NOT MODIFY OR **
21 * ** DELETE THE GENERATED COMMENTS! **
26 #include "dtb_utils.h"
27 #include "stringChooser_ui.h"
30 * Header files for cross-module connections
32 #include "ttsnoop_ui.h"
35 /**************************************************************************
36 *** DTB_USER_CODE_START
38 *** All necessary header files have been included.
40 *** Add include files, types, macros, externs, and user functions here.
47 extern ofstream snoopStream;
51 _DtStringChooserAction choice,
56 DtbStringChooserStringChooserInfo instance =
57 &dtb_string_chooser_string_chooser;
58 if (! instance->initialized) {
59 dtb_string_chooser_string_chooser_initialize(
60 instance, dtb_ttsnoop_ttsnoop_win.ttsnoopWin );
62 if ((! tt_is_err( tt_ptr_error( val ))) && (val != 0)) {
63 XmTextFieldSetString( instance->stringText, (char *)val );
65 _DtStringChooserSet( choice, entity );
70 _DtStringChooserAction choice,
78 case _DtStringChoosePatternOp:
80 title = "tt_pattern_op_add";
83 case _DtStringChoosePatternOtype:
85 title = "tt_pattern_otype_add";
86 valueLabel = "Otype:";
88 case _DtStringChoosePatternObject:
90 title = "tt_pattern_object_add";
91 valueLabel = "Object:";
93 case _DtStringChoosePatternSenderPtype:
95 title = "tt_pattern_sender_ptype_add";
96 valueLabel = "Ptype:";
98 case _DtStringChooseMessageOtype:
100 title = "tt_message_otype_set";
101 valueLabel = "Otype:";
103 case _DtStringChooseMessageObject:
105 title = "tt_message_object_set";
106 valueLabel = "Object:";
108 case _DtStringChooseMessageSenderPtype:
110 title = "tt_message_sender_ptype_set";
111 valueLabel = "Ptype:";
113 case _DtStringChooseMessageHandlerPtype:
115 title = "tt_message_handler_ptype_set";
116 valueLabel = "Ptype:";
118 case _DtStringChooseMessageStatusString:
120 title = "tt_message_status_string_set";
121 valueLabel = "String:";
123 case _DtStringChooseMessageArgValSet:
125 title = "tt_message_arg_val_set";
128 case _DtStringChoosePtype2Declare:
129 okString = "Declare";
130 title = "tt_ptype_declare";
131 valueLabel = "Ptype:";
133 case _DtStringChooseMediaPtype2Declare:
134 okString = "Undeclare";
135 title = "ttmedia_ptype_undeclare";
136 valueLabel = "Ptype:";
138 case _DtStringChoosePtype2UnDeclare:
139 okString = "Undeclare";
140 title = "tt_ptype_undeclare";
141 valueLabel = "Ptype:";
143 case _DtStringChoosePtype2SetDefault:
145 title = "tt_default_ptype_set";
146 valueLabel = "Ptype:";
148 case _DtStringChoosePtype2Exists:
149 okString = "Exists?";
150 title = "tt_ptype_exists";
151 valueLabel = "Ptype:";
153 case _DtStringChooseSystem:
154 okString = "system()";
155 title = "system(3C)";
156 valueLabel = "Command:";
158 case _DtStringChoosePutenv:
159 okString = "putenv()";
160 title = "putenv(3C)";
161 valueLabel = "variable=value:";
163 case _DtStringChooseNetfile2File:
165 title = "tt_netfile_file";
166 valueLabel = "Netfile:";
171 DtbStringChooserStringChooserInfo instance =
172 &dtb_string_chooser_string_chooser;
173 if (! instance->initialized) {
174 dtb_string_chooser_string_chooser_initialize(
175 instance, dtb_ttsnoop_ttsnoop_win.ttsnoopWin );
177 DtTtSetLabel( instance->stringOkButton, okString );
178 DtTtSetLabel( instance->stringText_label, valueLabel );
179 XtVaSetValues( instance->stringChooser, XmNtitle, title, 0 );
180 // Remember dialog mode, entity
181 XtVaSetValues( instance->stringOkButton, XmNuserData, choice, 0 );
182 XtVaSetValues( instance->stringCancelButton, XmNuserData, entity, 0 );
183 XmTextPosition last = XmTextFieldGetLastPosition( instance->stringText );
184 Time when = XtLastTimestampProcessed( XtDisplay( instance->stringText ));
185 XmTextFieldSetSelection( instance->stringText, 0, last, when );
186 XtManageChild( instance->stringChooser_shellform );
189 /*** DTB_USER_CODE_END
191 *** End of user code section
193 **************************************************************************/
198 stringChooser_stringCancelButton_CB1(
200 XtPointer clientData,
204 /*** DTB_USER_CODE_START vvv Add C variables and code below vvv ***/
205 /*** DTB_USER_CODE_END ^^^ Add C variables and code above ^^^ ***/
207 DtbStringChooserStringChooserInfo instance = (DtbStringChooserStringChooserInfo)clientData;
209 if (!(instance->initialized))
211 dtb_string_chooser_string_chooser_initialize(instance, dtb_ttsnoop_ttsnoop_win.ttsnoopWin);
213 XtUnmanageChild(instance->stringChooser_shellform);
215 /*** DTB_USER_CODE_START vvv Add C code below vvv ***/
216 /*** DTB_USER_CODE_END ^^^ Add C code above ^^^ ***/
223 XtPointer clientData,
227 /*** DTB_USER_CODE_START vvv Add C variables and code below vvv ***/
228 /*** DTB_USER_CODE_END ^^^ Add C variables and code above ^^^ ***/
230 /*** DTB_USER_CODE_START vvv Add C code below vvv ***/
231 DtbStringChooserStringChooserInfo instance =
232 (DtbStringChooserStringChooserInfo)clientData;
233 char *string = XmTextFieldGetString( instance->stringText );
234 if ((string != 0) && (string[0] == '\0')) {
239 XtVaGetValues( instance->stringOkButton, XmNuserData, &val, 0 );
240 _DtStringChooserAction choice = (_DtStringChooserAction)val;
241 XtVaGetValues( instance->stringCancelButton, XmNuserData, &val, 0 );
242 Widget label = dtb_ttsnoop_ttsnoop_win.ttsnoopWin_label;
247 case _DtStringChoosePatternOp:
248 case _DtStringChoosePatternOtype:
249 case _DtStringChoosePatternObject:
250 case _DtStringChoosePatternSenderPtype:
251 _DtTtPatternUpdate( (Tt_pattern)val, choice, string );
253 case _DtStringChooseMessageOtype:
254 case _DtStringChooseMessageObject:
255 case _DtStringChooseMessageSenderPtype:
256 case _DtStringChooseMessageHandlerPtype:
257 case _DtStringChooseMessageStatusString:
258 case _DtStringChooseMessageArgValSet:
259 _DtTtMessageUpdate( (Tt_message)val, choice, string );
261 case _DtStringChoosePtype2Declare:
262 status = tt_ptype_declare( string );
263 DtTtSetLabel( label, "tt_ptype_declare()", status );
265 case _DtStringChooseMediaPtype2Declare:
266 // XXX prompt for base_opnum
267 status = ttmedia_ptype_declare( string, 0, _DtTtMediaLoadPatCb,
269 DtTtSetLabel( label, "ttmedia_ptype_declare()", status );
271 case _DtStringChoosePtype2UnDeclare:
272 status = tt_ptype_undeclare( string );
273 DtTtSetLabel( label, "tt_ptype_undeclare()", status );
275 case _DtStringChoosePtype2SetDefault:
276 status = tt_default_ptype_set( string );
277 DtTtSetLabel( label, "tt_default_ptype_set()", status );
279 case _DtStringChoosePtype2Exists:
280 status = tt_ptype_exists( string );
281 DtTtSetLabel( label, "tt_ptype_exists()", status );
283 case _DtStringChooseSystem:
284 ival = system( string );
285 DtTtSetLabel( label, "system()", ival );
287 case _DtStringChoosePutenv:
288 ival = putenv( string );
289 DtTtSetLabel( label, "putenv()", ival );
291 case _DtStringChooseNetfile2File:
292 file = tt_netfile_file( string );
293 DtTtSetLabel( label, "tt_netfile_file()", file );
294 if (! tt_is_err( tt_ptr_error( file ))) {
295 snoopStream << "tt_netfile_file( \"" << string
296 << "\" ) = \"" << file << "\"" << endl;
305 XtUnmanageChild( instance->stringChooser_shellform );
306 /*** DTB_USER_CODE_END ^^^ Add C code above ^^^ ***/
313 XtPointer clientData,
317 /*** DTB_USER_CODE_START vvv Add C variables and code below vvv ***/
318 /*** DTB_USER_CODE_END ^^^ Add C variables and code above ^^^ ***/
320 /*** DTB_USER_CODE_START vvv Add C code below vvv ***/
321 DtbStringChooserStringChooserInfo instance =
322 (DtbStringChooserStringChooserInfo)clientData;
324 XtVaGetValues( instance->stringOkButton, XmNuserData, &val, 0 );
325 _DtStringChooserAction choice = (_DtStringChooserAction)val;
326 Widget label = dtb_ttsnoop_ttsnoop_win.ttsnoopWin_label;
328 case _DtStringChoosePatternOp:
329 _DtMan( label, "tt_pattern_op_add" );
331 case _DtStringChoosePatternOtype:
332 _DtMan( label, "tt_pattern_otype_add" );
334 case _DtStringChoosePatternObject:
335 _DtMan( label, "tt_pattern_object_add" );
337 case _DtStringChoosePatternSenderPtype:
338 _DtMan( label, "tt_pattern_sender_ptype_add" );
340 case _DtStringChooseMessageOtype:
341 _DtMan( label, "tt_message_otype_set" );
343 case _DtStringChooseMessageObject:
344 _DtMan( label, "tt_message_object_set" );
346 case _DtStringChooseMessageSenderPtype:
347 _DtMan( label, "tt_message_sender_ptype_set" );
349 case _DtStringChooseMessageHandlerPtype:
350 _DtMan( label, "tt_message_handler_ptype_set" );
352 case _DtStringChooseMessageStatusString:
353 _DtMan( label, "tt_message_status_string_set" );
355 case _DtStringChooseMessageArgValSet:
356 _DtMan( label, "tt_message_arg_val_set" );
358 case _DtStringChoosePtype2Declare:
359 _DtMan( label, "tt_ptype_declare" );
361 case _DtStringChooseMediaPtype2Declare:
362 _DtMan( label, "ttmedia_ptype_declare" );
364 case _DtStringChoosePtype2UnDeclare:
365 _DtMan( label, "tt_ptype_undeclare" );
367 case _DtStringChoosePtype2SetDefault:
368 _DtMan( label, "tt_default_ptype_set" );
370 case _DtStringChoosePtype2Exists:
371 _DtMan( label, "tt_ptype_exists" );
373 case _DtStringChooseSystem:
374 _DtMan( label, "system" );
376 case _DtStringChoosePutenv:
377 _DtMan( label, "putenv" );
382 /*** DTB_USER_CODE_END ^^^ Add C code above ^^^ ***/
387 /**************************************************************************
388 *** DTB_USER_CODE_START
390 *** All automatically-generated data and functions have been defined.
392 *** Add new functions here, or at the top of the file.
395 /*** DTB_USER_CODE_END
397 *** End of user code section
399 **************************************************************************/