Merge branch 'master' of github.com:retief/racket_tracer

wzimrin · Sep 3, 2011 · ead3f42 · ead3f42
2 parents 2a7ea7f + 3dce7ef
commit ead3f42
Show file tree

Hide file tree

Showing 5 changed files with 36 additions and 3 deletions.
diff --git a/demos/image-demo.rkt b/demos/image-demo.rkt
@@ -1,5 +1,5 @@
 #lang planet tracer/tracer
-
+(trace-all)
 (require 2htdp/image)
 
 (check-expect (sq 2) 4)

diff --git a/tests/require-test-2.rkt b/tests/require-test-2.rkt
@@ -0,0 +1,7 @@
+#lang planet tracer/tracer
+
+(trace-all)
+
+(require "require-test.rkt")
+
+(f 3)
diff --git a/tests/require-test.rkt b/tests/require-test.rkt
@@ -0,0 +1,8 @@
+#lang planet tracer/tracer
+
+(trace-all)
+
+(define (f x)
+  x)
+(provide f)
+(f 4)
diff --git a/tracer/tracer.css b/tracer/tracer.css
@@ -173,6 +173,15 @@ div.error > table > tbody > tr > td.result {
     font-size: 14px;
 }
 
+.imageCell {
+    padding:4px;
+}
+
+.imageCell:hover {
+    padding: 2px;
+    border: 2px solid black;
+}
+
 .arg > div {
     text-align:left;
     padding: 3px;
@@ -368,11 +377,19 @@ span.symbol {
 /* -------------------------------------------------------------------*/
 
 .lastHighlighted {
-    background: #ffff61; 
-    border-color: #ffff61;
+    background: #ffff61 !important; 
+    border-color: #ffff61 !important;
     color: fireBrick !important;
 }
 
+.lastHighlighted.imageCell {
+    border: 2px solid #ffff61;
+    padding: 2px;    
+}
+
+.lastHighlighted.imageCell:hover {
+    border: 2px solid black !important;
+}
 
 .to-src-button.lastHighlighted:hover {
     border-color: #ffffdb !important;

diff --git a/tracer/tracer.js b/tracer/tracer.js
@@ -244,6 +244,7 @@ function makeCell(formShort, formFull, cssClass) {
         var el = element("img")
         el.attr("src",formFull.src)
         div.append(el)
+        cell.newAddClass("imageCell")
     }
     else if (formFull.type == "error") 
         div.text(formFull.message)