+static void
+reset_type_label_dialog (struct compute_dialog *cd)
+{
+ const gchar *target_name;
+ struct variable *target_var;
+
+ GtkWidget *width_entry =
+ get_widget_assert (cd->xml, "type-and-label-width");
+
+ GtkWidget *label_entry =
+ get_widget_assert (cd->xml, "type-and-label-label-entry");
+
+ GtkWidget *numeric_target =
+ get_widget_assert (cd->xml, "radio-button-numeric");
+
+ GtkWidget *string_target =
+ get_widget_assert (cd->xml, "radio-button-string");
+
+
+ target_name = gtk_entry_get_text
+ (GTK_ENTRY (get_widget_assert (cd->xml, "compute-entry1")));
+
+
+ if ( (target_var = psppire_dict_lookup_var (cd->dict, target_name)) )
+ {
+ /* Existing Variable */
+ const gchar *label ;
+ GtkWidget *user_label =
+ get_widget_assert (cd->xml, "radio-button-user-label");
+
+ gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (user_label), TRUE);
+
+ label = var_get_label (target_var);
+
+ if ( label )
+ {
+ gtk_entry_set_text (GTK_ENTRY (label_entry), label);
+ }
+
+ gtk_widget_set_sensitive (width_entry, FALSE);
+
+ if ( var_is_numeric (target_var))
+ gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (numeric_target),
+ TRUE);
+ else
+ gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (string_target),
+ TRUE);
+
+ gtk_widget_set_sensitive (numeric_target, FALSE);
+ gtk_widget_set_sensitive (string_target, FALSE);
+ }
+ else
+ {
+ GtkWidget *expression =
+ get_widget_assert (cd->xml, "radio-button-expression-label");
+
+ gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (expression), TRUE);
+
+ gtk_widget_set_sensitive (width_entry, TRUE);
+ gtk_widget_set_sensitive (numeric_target, TRUE);
+ gtk_widget_set_sensitive (string_target, TRUE);
+
+ gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (numeric_target),
+ TRUE);
+ }
+
+}
+
+static void
+run_type_label_dialog (GtkButton *b, gpointer data)
+{
+ struct compute_dialog *cd = data;
+ gint response;
+
+ GtkWidget *subdialog = get_widget_assert (cd->xml, "type-and-label-dialog");
+ GtkWidget *dialog = get_widget_assert (cd->xml, "compute-variable-dialog");
+
+ gtk_window_set_transient_for (GTK_WINDOW (subdialog), GTK_WINDOW (dialog));
+
+ reset_type_label_dialog (cd);
+ response = psppire_dialog_run (PSPPIRE_DIALOG (subdialog));
+ if ( response == PSPPIRE_RESPONSE_CONTINUE)
+ cd->use_type = TRUE;
+}
+
+
+static void
+on_expression_toggle (GtkToggleButton *button, gpointer data)
+{
+ struct compute_dialog *cd = data;
+
+ GtkWidget *entry =
+ get_widget_assert (cd->xml, "type-and-label-label-entry");
+
+ if ( gtk_toggle_button_get_active (button))
+ {
+ gtk_entry_set_text (GTK_ENTRY (entry), "");
+ gtk_widget_set_sensitive (entry, FALSE);
+ }
+ else
+ {
+ const char *label;
+ struct variable *target_var;
+ const gchar *target_name = gtk_entry_get_text
+ (GTK_ENTRY (get_widget_assert (cd->xml, "compute-entry1")));
+
+ target_var = psppire_dict_lookup_var (cd->dict, target_name);
+ if ( target_var )
+ {
+ label = var_get_label (target_var);
+
+ if ( label )
+ gtk_entry_set_text (GTK_ENTRY (entry), label);
+ }
+ else
+ gtk_entry_set_text (GTK_ENTRY (entry), "");
+
+ gtk_widget_set_sensitive (entry, TRUE);
+ }
+}
+
+
+/* Return TRUE if the dialog box's widgets' state are such that clicking OK
+ might not result in erroneous syntax being generated */
+static gboolean
+contents_plausible (gpointer data)
+{
+ struct compute_dialog *cd = data;
+
+ GtkWidget *target = get_widget_assert (cd->xml, "compute-entry1");
+ GtkWidget *syntax_area = get_widget_assert (cd->xml, "compute-textview1");
+ GtkTextBuffer *buffer =
+ gtk_text_view_get_buffer (GTK_TEXT_VIEW (syntax_area));
+
+ if ( 0 == strcmp ("", gtk_entry_get_text (GTK_ENTRY (target))))
+ return FALSE;
+
+ if ( gtk_text_buffer_get_char_count (buffer) == 0 )
+ return FALSE;
+
+ return TRUE;
+}