Commits

Anonymous committed 7f09265

Fixed name-value of inspectable popup

Comments (0)

Files changed (3)

src/org/lispdev/swank/LispImplementation.java

 
    */
   public LispVariable inspectReplResult(final LispDebugTarget target,
-      final IPartitionData data)
+      final String name, final IPartitionData data)
   {
     if( data == null || data.getContext() == null
         || !data.getContext().equals("inspectable") )
         return getInspectInfo(target, parent, r);
       }
     };
-    LispVariable res = new LispVariable(target, null, "name",
-        "value", cmd);
+    LispVariable res = new LispVariable(target, null, name, cmd);
     return res;
   }
 

src/org/lispdev/swank/debug/LispValue.java

     this.inspect = inspect;
   }
 
+  public LispValue(LispDebugTarget target, LispVariable parent,
+      IInspectCmd inspect)
+  {
+    super(target);
+    this.parent = parent;
+    this.inspect = inspect;
+    runInspect();
+    this.value = info.title;
+  }
+
   private void runInspect()
   {
     if( inspect != null )

src/org/lispdev/swank/debug/LispVariable.java

     this.value = new LispValue(target,this,value,inspect);
   }
 
+  public LispVariable(LispDebugTarget target, LispValue parent,
+      String name, IInspectCmd inspect)
+  {
+    super(target);
+    this.name = name;
+    this.parent = parent;
+    this.value = new LispValue(target,this,inspect);
+  }
+
   @Override
   public void setValue(String expression) throws DebugException
   {