Mercurial Mercurial > repos > isabelle / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
clarified edge_color;
authorwenzelm
Mon, 19 Jan 2015 16:38:01 +0100
changeset 59407 d43434c60d3a
parent 59406 283aa6225d98
child 59408 63cb603b5114
clarified edge_color;
src/Tools/Graphview/shapes.scala file | annotate | diff | comparison | revisions
src/Tools/Graphview/visualizer.scala file | annotate | diff | comparison | revisions 
--- a/src/Tools/Graphview/shapes.scala	Mon Jan 19 16:31:04 2015 +0100
+++ b/src/Tools/Graphview/shapes.scala	Mon Jan 19 16:38:01 2015 +0100
@@ -76,7 +76,7 @@
       if (visualizer.show_dummies) ds.foreach(paint_dummy(gfx, visualizer, _))
 
       gfx.setStroke(default_stroke)
-      gfx.setColor(visualizer.edge_color(edge))
+      gfx.setColor(visualizer.edge_color(edge, p.y < q.y))
       gfx.draw(path)
 
       if (visualizer.show_arrow_heads) Arrow_Head.paint(gfx, path, Shapes.shape(q))
@@ -128,7 +128,7 @@
         if (visualizer.show_dummies) ds.foreach(paint_dummy(gfx, visualizer, _))
 
         gfx.setStroke(default_stroke)
-        gfx.setColor(visualizer.edge_color(edge))
+        gfx.setColor(visualizer.edge_color(edge, p.y < q.y))
         gfx.draw(path)
 
         if (visualizer.show_arrow_heads) Arrow_Head.paint(gfx, path, Shapes.shape(q))
--- a/src/Tools/Graphview/visualizer.scala	Mon Jan 19 16:31:04 2015 +0100
+++ b/src/Tools/Graphview/visualizer.scala	Mon Jan 19 16:38:01 2015 +0100
@@ -168,5 +168,7 @@
     else
       Node_Color(foreground_color, model.colors.getOrElse(node, background_color), foreground_color)
 
-  def edge_color(edge: Graph_Display.Edge): Color = foreground_color
+  def edge_color(edge: Graph_Display.Edge, downwards: Boolean): Color =
+    if (downwards || show_arrow_heads) foreground_color
+    else error_color
 }
\ No newline at end of file
isabelle