Anonymous avatar Anonymous committed 55725a0

[project @]
Fixed bug in trace creation

Comments (0)

Files changed (1)

-(**  Color Operations  **********************************)
+(***  Color Operations  *********************************)
 let intensity r g b  = sqrt ((float_of_int r)**2.0 +.
 class dtrace () = 
-  let tag = Canvas.create_line ~xys:[] (canvas ()) in
+  let tag = 
+    try Canvas.create_line ~xys:[(0,0);(0,0)] (canvas ()) 
+    with e -> failwith (sprintf "line drawing failed: %s" (Printexc.to_string e))
+  in
   let _ = Canvas.configure_line ~smooth:false (canvas ()) tag in
 object (self)
   inherit [trace] display_item tag
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.