From 682f24f529974c433501758a2bf5b6e759c5f2df Mon Sep 17 00:00:00 2001 From: Omar Rizwan Date: Mon, 14 Nov 2022 14:36:33 -0500 Subject: Archive CPS-clock.folk --- virtual-programs/CPS-clock.folk | 17 ----------------- virtual-programs/archive/CPS-clock.folk | 12 ++++++++++++ 2 files changed, 12 insertions(+), 17 deletions(-) delete mode 100644 virtual-programs/CPS-clock.folk create mode 100644 virtual-programs/archive/CPS-clock.folk (limited to 'virtual-programs') diff --git a/virtual-programs/CPS-clock.folk b/virtual-programs/CPS-clock.folk deleted file mode 100644 index ba455a18..00000000 --- a/virtual-programs/CPS-clock.folk +++ /dev/null @@ -1,17 +0,0 @@ -Wish $this is outlined blue -Wish $this has filename "CPS-clock.folk" -#Wish $this is labelled "CPS clock" - -## Hmmmmm, how to do this in Tcl? Use `tcl - -When $::nodename has step count /c/ { - Wish $this is labelled [string trim " -[exec sh -c "TZ=America/New_York date"] -step count: $c -step time: $::stepTime - "] -} - - -# Wish $this is outlined red -# Claim firstname is "something" diff --git a/virtual-programs/archive/CPS-clock.folk b/virtual-programs/archive/CPS-clock.folk new file mode 100644 index 00000000..e7886157 --- /dev/null +++ b/virtual-programs/archive/CPS-clock.folk @@ -0,0 +1,12 @@ +Wish $this is outlined blue +Wish $this has filename "CPS-clock.folk" +#Wish $this is labelled "CPS clock" + +## Hmmmmm, how to do this in Tcl? Use `tcl + +When $::nodename has step count /c/ { +} + + +# Wish $this is outlined red +# Claim firstname is "something" -- cgit v1.2.3