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.
53 extern ofstream snoopStream;
57 _DtStringChooserAction choice,
62 DtbStringChooserStringChooserInfo instance =
63 &dtb_string_chooser_string_chooser;
64 if (! instance->initialized) {
65 dtb_string_chooser_string_chooser_initialize(
66 instance, dtb_ttsnoop_ttsnoop_win.ttsnoopWin );
68 if ((! tt_is_err( tt_ptr_error( val ))) && (val != 0)) {
69 XmTextFieldSetString( instance->stringText, (char *)val );
71 _DtStringChooserSet( choice, entity );
76 _DtStringChooserAction choice,
84 case _DtStringChoosePatternOp:
86 title = "tt_pattern_op_add";
89 case _DtStringChoosePatternOtype:
91 title = "tt_pattern_otype_add";
92 valueLabel = "Otype:";
94 case _DtStringChoosePatternObject:
96 title = "tt_pattern_object_add";
97 valueLabel = "Object:";
99 case _DtStringChoosePatternSenderPtype:
101 title = "tt_pattern_sender_ptype_add";
102 valueLabel = "Ptype:";
104 case _DtStringChooseMessageOtype:
106 title = "tt_message_otype_set";
107 valueLabel = "Otype:";
109 case _DtStringChooseMessageObject:
111 title = "tt_message_object_set";
112 valueLabel = "Object:";
114 case _DtStringChooseMessageSenderPtype:
116 title = "tt_message_sender_ptype_set";
117 valueLabel = "Ptype:";
119 case _DtStringChooseMessageHandlerPtype:
121 title = "tt_message_handler_ptype_set";
122 valueLabel = "Ptype:";
124 case _DtStringChooseMessageStatusString:
126 title = "tt_message_status_string_set";
127 valueLabel = "String:";
129 case _DtStringChooseMessageArgValSet:
131 title = "tt_message_arg_val_set";
134 case _DtStringChoosePtype2Declare:
135 okString = "Declare";
136 title = "tt_ptype_declare";
137 valueLabel = "Ptype:";
139 case _DtStringChooseMediaPtype2Declare:
140 okString = "Undeclare";
141 title = "ttmedia_ptype_undeclare";
142 valueLabel = "Ptype:";
144 case _DtStringChoosePtype2UnDeclare:
145 okString = "Undeclare";
146 title = "tt_ptype_undeclare";
147 valueLabel = "Ptype:";
149 case _DtStringChoosePtype2SetDefault:
151 title = "tt_default_ptype_set";
152 valueLabel = "Ptype:";
154 case _DtStringChoosePtype2Exists:
155 okString = "Exists?";
156 title = "tt_ptype_exists";
157 valueLabel = "Ptype:";
159 case _DtStringChooseSystem:
160 okString = "system()";
161 title = "system(3C)";
162 valueLabel = "Command:";
164 case _DtStringChoosePutenv:
165 okString = "putenv()";
166 title = "putenv(3C)";
167 valueLabel = "variable=value:";
169 case _DtStringChooseNetfile2File:
171 title = "tt_netfile_file";
172 valueLabel = "Netfile:";
177 DtbStringChooserStringChooserInfo instance =
178 &dtb_string_chooser_string_chooser;
179 if (! instance->initialized) {
180 dtb_string_chooser_string_chooser_initialize(
181 instance, dtb_ttsnoop_ttsnoop_win.ttsnoopWin );
183 DtTtSetLabel( instance->stringOkButton, okString );
184 DtTtSetLabel( instance->stringText_label, valueLabel );
185 XtVaSetValues( instance->stringChooser, XmNtitle, title, 0 );
186 // Remember dialog mode, entity
187 XtVaSetValues( instance->stringOkButton, XmNuserData, choice, 0 );
188 XtVaSetValues( instance->stringCancelButton, XmNuserData, entity, 0 );
189 XmTextPosition last = XmTextFieldGetLastPosition( instance->stringText );
190 Time when = XtLastTimestampProcessed( XtDisplay( instance->stringText ));
191 XmTextFieldSetSelection( instance->stringText, 0, last, when );
192 XtManageChild( instance->stringChooser_shellform );
195 /*** DTB_USER_CODE_END
197 *** End of user code section
199 **************************************************************************/
204 stringChooser_stringCancelButton_CB1(
206 XtPointer clientData,
210 /*** DTB_USER_CODE_START vvv Add C variables and code below vvv ***/
211 /*** DTB_USER_CODE_END ^^^ Add C variables and code above ^^^ ***/
213 DtbStringChooserStringChooserInfo instance = (DtbStringChooserStringChooserInfo)clientData;
215 if (!(instance->initialized))
217 dtb_string_chooser_string_chooser_initialize(instance, dtb_ttsnoop_ttsnoop_win.ttsnoopWin);
219 XtUnmanageChild(instance->stringChooser_shellform);
221 /*** DTB_USER_CODE_START vvv Add C code below vvv ***/
222 /*** DTB_USER_CODE_END ^^^ Add C code above ^^^ ***/
229 XtPointer clientData,
233 /*** DTB_USER_CODE_START vvv Add C variables and code below vvv ***/
234 /*** DTB_USER_CODE_END ^^^ Add C variables and code above ^^^ ***/
236 /*** DTB_USER_CODE_START vvv Add C code below vvv ***/
237 DtbStringChooserStringChooserInfo instance =
238 (DtbStringChooserStringChooserInfo)clientData;
239 char *string = XmTextFieldGetString( instance->stringText );
240 if ((string != 0) && (string[0] == '\0')) {
245 XtVaGetValues( instance->stringOkButton, XmNuserData, &val, 0 );
246 _DtStringChooserAction choice = (_DtStringChooserAction) (long) val;
247 XtVaGetValues( instance->stringCancelButton, XmNuserData, &val, 0 );
248 Widget label = dtb_ttsnoop_ttsnoop_win.ttsnoopWin_label;
253 case _DtStringChoosePatternOp:
254 case _DtStringChoosePatternOtype:
255 case _DtStringChoosePatternObject:
256 case _DtStringChoosePatternSenderPtype:
257 _DtTtPatternUpdate( (Tt_pattern)val, choice, string );
259 case _DtStringChooseMessageOtype:
260 case _DtStringChooseMessageObject:
261 case _DtStringChooseMessageSenderPtype:
262 case _DtStringChooseMessageHandlerPtype:
263 case _DtStringChooseMessageStatusString:
264 case _DtStringChooseMessageArgValSet:
265 _DtTtMessageUpdate( (Tt_message)val, choice, string );
267 case _DtStringChoosePtype2Declare:
268 status = tt_ptype_declare( string );
269 DtTtSetLabel( label, "tt_ptype_declare()", status );
271 case _DtStringChooseMediaPtype2Declare:
272 // XXX prompt for base_opnum
273 status = ttmedia_ptype_declare( string, 0, _DtTtMediaLoadPatCb,
275 DtTtSetLabel( label, "ttmedia_ptype_declare()", status );
277 case _DtStringChoosePtype2UnDeclare:
278 status = tt_ptype_undeclare( string );
279 DtTtSetLabel( label, "tt_ptype_undeclare()", status );
281 case _DtStringChoosePtype2SetDefault:
282 status = tt_default_ptype_set( string );
283 DtTtSetLabel( label, "tt_default_ptype_set()", status );
285 case _DtStringChoosePtype2Exists:
286 status = tt_ptype_exists( string );
287 DtTtSetLabel( label, "tt_ptype_exists()", status );
289 case _DtStringChooseSystem:
290 ival = system( string );
291 DtTtSetLabel( label, "system()", ival );
293 case _DtStringChoosePutenv:
294 ival = putenv( string );
295 DtTtSetLabel( label, "putenv()", ival );
297 case _DtStringChooseNetfile2File:
298 file = tt_netfile_file( string );
299 DtTtSetLabel( label, "tt_netfile_file()", file );
300 if (! tt_is_err( tt_ptr_error( file ))) {
301 snoopStream << "tt_netfile_file( \"" << string
302 << "\" ) = \"" << file << "\"" << endl;
311 XtUnmanageChild( instance->stringChooser_shellform );
312 /*** DTB_USER_CODE_END ^^^ Add C code above ^^^ ***/
319 XtPointer clientData,
323 /*** DTB_USER_CODE_START vvv Add C variables and code below vvv ***/
324 /*** DTB_USER_CODE_END ^^^ Add C variables and code above ^^^ ***/
326 /*** DTB_USER_CODE_START vvv Add C code below vvv ***/
327 DtbStringChooserStringChooserInfo instance =
328 (DtbStringChooserStringChooserInfo)clientData;
330 XtVaGetValues( instance->stringOkButton, XmNuserData, &val, 0 );
331 _DtStringChooserAction choice = (_DtStringChooserAction) (long) val;
332 Widget label = dtb_ttsnoop_ttsnoop_win.ttsnoopWin_label;
334 case _DtStringChoosePatternOp:
335 _DtMan( label, "tt_pattern_op_add" );
337 case _DtStringChoosePatternOtype:
338 _DtMan( label, "tt_pattern_otype_add" );
340 case _DtStringChoosePatternObject:
341 _DtMan( label, "tt_pattern_object_add" );
343 case _DtStringChoosePatternSenderPtype:
344 _DtMan( label, "tt_pattern_sender_ptype_add" );
346 case _DtStringChooseMessageOtype:
347 _DtMan( label, "tt_message_otype_set" );
349 case _DtStringChooseMessageObject:
350 _DtMan( label, "tt_message_object_set" );
352 case _DtStringChooseMessageSenderPtype:
353 _DtMan( label, "tt_message_sender_ptype_set" );
355 case _DtStringChooseMessageHandlerPtype:
356 _DtMan( label, "tt_message_handler_ptype_set" );
358 case _DtStringChooseMessageStatusString:
359 _DtMan( label, "tt_message_status_string_set" );
361 case _DtStringChooseMessageArgValSet:
362 _DtMan( label, "tt_message_arg_val_set" );
364 case _DtStringChoosePtype2Declare:
365 _DtMan( label, "tt_ptype_declare" );
367 case _DtStringChooseMediaPtype2Declare:
368 _DtMan( label, "ttmedia_ptype_declare" );
370 case _DtStringChoosePtype2UnDeclare:
371 _DtMan( label, "tt_ptype_undeclare" );
373 case _DtStringChoosePtype2SetDefault:
374 _DtMan( label, "tt_default_ptype_set" );
376 case _DtStringChoosePtype2Exists:
377 _DtMan( label, "tt_ptype_exists" );
379 case _DtStringChooseSystem:
380 _DtMan( label, "system" );
382 case _DtStringChoosePutenv:
383 _DtMan( label, "putenv" );
388 /*** DTB_USER_CODE_END ^^^ Add C code above ^^^ ***/
393 /**************************************************************************
394 *** DTB_USER_CODE_START
396 *** All automatically-generated data and functions have been defined.
398 *** Add new functions here, or at the top of the file.
401 /*** DTB_USER_CODE_END
403 *** End of user code section
405 **************************************************************************/