{
GtkWidget *menu = gtk_menu_new ();
+ /* gtk_menu_shell_append does not sink/ref this object,
+ so we must do it ourselves (and remember to unref it). */
+ g_object_ref_sink (menu);
+
GtkWidget *item =
gtk_menu_item_new_with_mnemonic (_("_Insert Case"));
gtk_menu_popup_at_pointer (GTK_MENU (sheet->data_sheet_cases_column_popup), NULL);
}
+/* Insert a new variable before the variable at POSN. */
void
-psppire_data_sheet_insert_new_variable_at_posn (PsppireDataSheet *sheet, gint posn)
+psppire_data_sheet_insert_new_variable_at_posn (PsppireDataSheet *sheet,
+ gint posn)
{
PsppireDataStore *data_store = NULL;
g_object_get (sheet, "data-model", &data_store, NULL);
PsppireDataStore *data_store = NULL;
g_object_get (sheet, "data-model", &data_store, NULL);
+ if (range->start_x > range->end_x)
+ {
+ gint temp = range->start_x;
+ range->start_x = range->end_x;
+ range->end_x = temp;
+ }
+
psppire_dict_delete_variables (data_store->dict, range->start_x,
(range->end_x - range->start_x + 1));
gtk_widget_queue_draw (GTK_WIDGET (sheet));
}
-
-
static GtkWidget *
create_data_column_header_popup_menu (PsppireDataSheet *sheet)
{
GtkWidget *menu = gtk_menu_new ();
+ /* gtk_menu_shell_append does not sink/ref this object,
+ so we must do it ourselves (and remember to unref it). */
+ g_object_ref_sink (menu);
+
GtkWidget *item =
gtk_menu_item_new_with_mnemonic (_("_Insert Variable"));
g_signal_connect_swapped (item, "activate", G_CALLBACK (insert_new_variable),
static GObjectClass * parent_class = NULL;
static gboolean dispose_has_run = FALSE;
+static void
+psppire_data_sheet_finalize (GObject *obj)
+{
+ /* Chain up to the parent class */
+ G_OBJECT_CLASS (parent_class)->finalize (obj);
+}
+
static void
psppire_data_sheet_dispose (GObject *obj)
{
- // PsppireDataSheet *sheet = PSPPIRE_DATA_SHEET (obj);
+ PsppireDataSheet *sheet = PSPPIRE_DATA_SHEET (obj);
if (dispose_has_run)
return;
dispose_has_run = TRUE;
+ g_object_unref (sheet->data_sheet_cases_column_popup);
+ g_object_unref (sheet->data_sheet_cases_row_popup);
+
/* Chain up to the parent class */
G_OBJECT_CLASS (parent_class)->dispose (obj);
}
{
GObjectClass *object_class = G_OBJECT_CLASS (class);
object_class->dispose = psppire_data_sheet_dispose;
+ object_class->finalize = psppire_data_sheet_finalize;
parent_class = g_type_class_peek_parent (class);
}
PangoContext *context = gtk_widget_create_pango_context (GTK_WIDGET (sheet));
PangoLayout *layout = pango_layout_new (context);
PangoRectangle rect;
-
+
pango_layout_set_text (layout, "M", 1);
pango_layout_get_extents (layout, NULL, &rect);
-
+
gdouble width_of_M = rect.width / (gdouble) PANGO_SCALE;
-
+
g_object_unref (G_OBJECT (layout));
g_object_unref (G_OBJECT (context));
-
+
gint Ms = round ((size / width_of_M) - 0.25);
struct variable *var = psppire_dict_get_variable (dict, pos);
g_return_val_if_fail (var, TRUE);