From e2ba1ab3d7b2152c1fd81e84e542f18703f182b5 Mon Sep 17 00:00:00 2001 From: Adam Dickmeiss Date: Fri, 24 May 1996 11:16:00 +0000 Subject: [PATCH] Added feedback button. --- www/gif/button-user-feedback.gif | Bin 0 -> 377 bytes www/mtargets.egw | 4 +++- www/query.egw | 4 +++- www/targets.egw | 4 +++- www/z39util.tcl | 14 +++++++++++++- 5 files changed, 22 insertions(+), 4 deletions(-) create mode 100644 www/gif/button-user-feedback.gif diff --git a/www/gif/button-user-feedback.gif b/www/gif/button-user-feedback.gif new file mode 100644 index 0000000000000000000000000000000000000000..04a7f08a86cac35413192dd1cf0efe954d1af0ee GIT binary patch literal 377 zcmV-<0fzoZNk%w1VLt#p0KxzOu(YuF-~hmw0O-sB000000000000000A^8LW00000 zEC2ui06zdd000C22)f+}*y*O(fy8mD(j$|ncW~#2HfCfV>&vb3ycs{$G?*Bj> z4;CyMbHk%@8A~#sK__&Id{M7ADRw*1aqg97Ct0)-!wHF1zXWw)sw7 z%kg@EfOdRiae;w(e}jd6hk}rbglLV9J&TZddvl0fUX*Ngn~9uQpM-LEsF|jZZ%<*b zO0lwPuC+(BxIntQKE1wGmwKy3ph|^)OvgvbkA=n2qs*FftD;@coY>r(-i)N-Zfkkn z;oz*)#B<8)ps418lj(}t!f@yzPz?ee3*l{>aCAew*GQdyf8P!l6;dVmGXa%fFh*r_Y~2Z*CY$ Xw5ZXeNRujE%CxD|r% { -# $Id: mtargets.egw,v 1.21 1996/04/25 10:22:20 adam Exp $ +# $Id: mtargets.egw,v 1.22 1996/05/24 11:16:00 adam Exp $ set setNo 1 source ztargets.conf if {![info exists debug]} { @@ -36,6 +36,7 @@ set useIcons 1 button-main + button-feedback button-define-target html "

Choose one or more targets

\n" @@ -83,6 +84,7 @@ html "

\n" set useIcons 0 button-main + button-feedback button-define-target } diff --git a/www/query.egw b/www/query.egw index 74ad296..b421710 100644 --- a/www/query.egw +++ b/www/query.egw @@ -1,6 +1,6 @@ { -# $Id: query.egw,v 1.39 1996/03/14 11:50:47 adam Exp $ +# $Id: query.egw,v 1.40 1996/05/24 11:16:01 adam Exp $ if {[info commands saveState] == ""} { source z39util.tcl @@ -98,6 +98,7 @@ proc ok-response {} { set useIcons 1 button-main + button-feedback button-new-target if {[lsearch [z390 options] scan] >= 0} { button-scan-window $setNo @@ -208,6 +209,7 @@ proc ok-response {} { set useIcons 0 button-main + button-feedback button-new-target if {[lsearch [z390 options] scan] >= 0} { button-scan-window $setNo diff --git a/www/targets.egw b/www/targets.egw index 4ca8c0a..4f1ccb3 100644 --- a/www/targets.egw +++ b/www/targets.egw @@ -1,6 +1,6 @@ { -# $Id: targets.egw,v 1.25 1996/04/25 10:22:21 adam Exp $ +# $Id: targets.egw,v 1.26 1996/05/24 11:16:02 adam Exp $ source ztargets.conf if {![info exists debug]} { if {[lindex $sessionParms 1] == "1"} { @@ -36,6 +36,7 @@ set useIcons 1 button-main + button-feedback if {[info exists nextSetNo]} { button-view-history } @@ -79,6 +80,7 @@ html "
\n" set useIcons 0 button-main + button-feedback if {[info exists nextSetNo]} { button-view-history } diff --git a/www/z39util.tcl b/www/z39util.tcl index 7ee6cf2..bd6a7b5 100644 --- a/www/z39util.tcl +++ b/www/z39util.tcl @@ -1,5 +1,5 @@ # -# $Id: z39util.tcl,v 1.44 1996/05/15 18:43:38 adam Exp $ +# $Id: z39util.tcl,v 1.45 1996/05/24 11:16:02 adam Exp $ # proc saveState {} { uplevel #0 { @@ -1689,6 +1689,18 @@ proc button-main {} { } } +proc button-feedback {} { + global useIcons + + html {} + if {$useIcons} { + html {User Feedback} + } else { + html {User Feedback} + } +} + proc button-define-target {} { global useIcons global env -- 1.7.10.4