From 4429a74a0d939048f8f2379db92a66102d8181ef Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Adri=C3=A1n=20Medra=C3=B1o=20Calvo?=
 <adrian@medranocalvo.com>
Date: Mon, 8 Oct 2018 12:00:00 +0000
Subject: Correct element show command

The querying functionality was not implemented.
---
 generic/tkbltGrElemOp.C | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/generic/tkbltGrElemOp.C b/generic/tkbltGrElemOp.C
index 7235a8e..1102c30 100644
--- a/generic/tkbltGrElemOp.C
+++ b/generic/tkbltGrElemOp.C
@@ -514,11 +514,16 @@ static int ShowOp(ClientData clientData, Tcl_Interp* interp,
 		  int objc, Tcl_Obj* const objv[])
 {
   Graph* graphPtr = (Graph*)clientData;
-  if (objc!=4) {
+  if (objc!=3 || objc!=4) {
     Tcl_WrongNumArgs(interp, 3, objv, "?nameList?");
     return TCL_ERROR;
   }
 
+  if (objc == 3) {
+    Tcl_SetObjResult(interp, DisplayListObj(graphPtr));
+    return TCL_OK;
+  }
+
   int elemObjc;
   Tcl_Obj** elemObjv;
   if (Tcl_ListObjGetElements(interp, objv[3], &elemObjc, &elemObjv) != TCL_OK)
-- 
cgit v0.12