From 0e9d62e8f74a4cb6bbfa8fcb69dd51452da98a92 Mon Sep 17 00:00:00 2001 From: Xavier Delaruelle Date: Mon, 26 Sep 2022 18:08:12 +0200 Subject: [PATCH] Core code for cmdModuleStashshow Implement 'stashshow' sub-command. Parse stash argument to get corresponding collection, then call saveshow over this collection name. --- tcl/subcmd.tcl.in | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/tcl/subcmd.tcl.in b/tcl/subcmd.tcl.in index 3e0c1937..f3716c8e 100644 --- a/tcl/subcmd.tcl.in +++ b/tcl/subcmd.tcl.in @@ -2812,6 +2812,11 @@ proc cmdModuleStashrm {{stash 0}} { } proc cmdModuleStashshow {{stash 0}} { + # determine stash collection name from argument + set coll [getCollectionFromStash $stash] + + # display stash collection file + cmdModuleSaveshow $coll } # ;;; Local Variables: ***