fix program window

jcupitt · jcupitt · commit 8419c46b6cac · 2013-02-15T16:06:02.000Z
diff --git a/TODO b/TODO
@@ -6,12 +6,6 @@
 
 - test Mono / Monospace thing
 
-- program window, new tool, enter
-
-	fred = 12
-
-  process ... does nothing!
-
 - didn't we have band_and or equivalent somewhere?
 
 	  band x = foldr1 bitwise_and (bandsplit x)
@@ -20,8 +14,6 @@
 
 - breadcrumb trail for prog window, so you can get back to where you were?
 
-- click away from a half-edited def should save somewhere?
-
 - im_invertlut() as a menu item
 
   handy for inverting the results of cum/norm/etc.
diff --git a/src/program.c b/src/program.c
@@ -893,6 +893,15 @@ program_text_cursor_position( GtkTextBuffer *buffer, GParamSpec *pspec,
 	}
 }
 
+static void
+program_text_changed( GtkTextBuffer *buffer, Program *program )
+{
+	if( !program->dirty ) {
+		program->dirty = TRUE;
+		program_refresh( program );
+	}
+}
+
 static void
 program_set_text( Program *program, const char *text, gboolean editable )
 {
@@ -1090,7 +1099,8 @@ program_parse( Program *program )
 	}
 
 	program->dirty = FALSE;
-	filemodel_set_modified( FILEMODEL( program->kit ), TRUE );
+	if( program->kit )
+		filemodel_set_modified( FILEMODEL( program->kit ), TRUE );
 
 	/* Reselect last_sym, the last thing the parser saw. 
 	 */
@@ -1107,7 +1117,8 @@ program_tool_new_action_cb( GtkAction *action, Program *program )
 {
 	/* Existing text changed? Parse it.
 	 */
-	if( program->dirty && !program_parse( program ) ) {
+	if( program->dirty && 
+		!program_parse( program ) ) {
 		iwindow_alert( GTK_WIDGET( program ), GTK_MESSAGE_ERROR );
 		return;
 	}
@@ -2358,6 +2369,11 @@ program_build( Program *program, GtkWidget *vbox )
 		gtk_text_view_get_buffer( GTK_TEXT_VIEW( program->text ) ),
 		"notify::cursor-position",
                 G_CALLBACK( program_text_cursor_position ), program );
+	g_signal_connect(
+		gtk_text_view_get_buffer( GTK_TEXT_VIEW( program->text ) ),
+		"changed",
+                G_CALLBACK( program_text_changed ), program );
+
 	gtk_container_add( GTK_CONTAINER( swin ), program->text );
 	gtk_widget_show( program->text );
 
