119 lines
4.7 KiB
Plaintext
119 lines
4.7 KiB
Plaintext
From exmh-workers-admin@redhat.com Wed Aug 28 11:51:59 2002
|
|
Return-Path: <exmh-workers-admin@example.com>
|
|
Delivered-To: yyyy@localhost.netnoteinc.com
|
|
Received: from localhost (localhost [127.0.0.1])
|
|
by phobos.labs.netnoteinc.com (Postfix) with ESMTP id 5244143F99
|
|
for <jm@localhost>; Wed, 28 Aug 2002 06:51:59 -0400 (EDT)
|
|
Received: from phobos [127.0.0.1]
|
|
by localhost with IMAP (fetchmail-5.9.0)
|
|
for jm@localhost (single-drop); Wed, 28 Aug 2002 11:51:59 +0100 (IST)
|
|
Received: from listman.example.com (listman.example.com [66.187.233.211]) by
|
|
dogma.slashnull.org (8.11.6/8.11.6) with ESMTP id g7SAjqZ20559 for
|
|
<jm-exmh@jmason.org>; Wed, 28 Aug 2002 11:45:55 +0100
|
|
Received: from listman.example.com (localhost.localdomain [127.0.0.1]) by
|
|
listman.redhat.com (Postfix) with ESMTP id 96FA13EC3A; Wed, 28 Aug 2002
|
|
06:46:01 -0400 (EDT)
|
|
Delivered-To: exmh-workers@listman.example.com
|
|
Received: from int-mx1.corp.example.com (int-mx1.corp.example.com
|
|
[172.16.52.254]) by listman.redhat.com (Postfix) with ESMTP id 9E13B3EC3A
|
|
for <exmh-workers@listman.redhat.com>; Wed, 28 Aug 2002 06:45:18 -0400
|
|
(EDT)
|
|
Received: (from mail@localhost) by int-mx1.corp.example.com (8.11.6/8.11.6)
|
|
id g7SAjFW14386 for exmh-workers@listman.redhat.com; Wed, 28 Aug 2002
|
|
06:45:15 -0400
|
|
Received: from mx1.example.com (mx1.example.com [172.16.48.31]) by
|
|
int-mx1.corp.redhat.com (8.11.6/8.11.6) with SMTP id g7SAjFY14382 for
|
|
<exmh-workers@redhat.com>; Wed, 28 Aug 2002 06:45:15 -0400
|
|
Received: from ratree.psu.ac.th ([202.28.97.6]) by mx1.example.com
|
|
(8.11.6/8.11.6) with SMTP id g7SAU7l27968 for <exmh-workers@redhat.com>;
|
|
Wed, 28 Aug 2002 06:30:08 -0400
|
|
Received: from delta.cs.mu.OZ.AU (dhcp253.cc.psu.ac.th [192.168.2.253]) by
|
|
ratree.psu.ac.th (8.11.6/8.11.6) with ESMTP id g7SAikU28134 for
|
|
<exmh-workers@redhat.com>; Wed, 28 Aug 2002 17:44:46 +0700 (ICT)
|
|
Received: from munnari.OZ.AU (localhost [127.0.0.1]) by delta.cs.mu.OZ.AU
|
|
(8.11.6/8.11.6) with ESMTP id g7SAiSW20156 for <exmh-workers@redhat.com>;
|
|
Wed, 28 Aug 2002 17:44:28 +0700 (ICT)
|
|
From: Robert Elz <kre@munnari.OZ.AU>
|
|
To: exmh-workers@example.com
|
|
Subject: Patch to enable/disable log
|
|
MIME-Version: 1.0
|
|
Content-Type: text/plain; charset=us-ascii
|
|
Message-Id: <20154.1030531468@munnari.OZ.AU>
|
|
X-Loop: exmh-workers@example.com
|
|
Sender: exmh-workers-admin@example.com
|
|
Errors-To: exmh-workers-admin@example.com
|
|
X-Beenthere: exmh-workers@example.com
|
|
X-Mailman-Version: 2.0.1
|
|
Precedence: bulk
|
|
List-Help: <mailto:exmh-workers-request@example.com?subject=help>
|
|
List-Post: <mailto:exmh-workers@example.com>
|
|
List-Subscribe: <https://listman.example.com/mailman/listinfo/exmh-workers>,
|
|
<mailto:exmh-workers-request@redhat.com?subject=subscribe>
|
|
List-Id: Discussion list for EXMH developers <exmh-workers.example.com>
|
|
List-Unsubscribe: <https://listman.example.com/mailman/listinfo/exmh-workers>,
|
|
<mailto:exmh-workers-request@redhat.com?subject=unsubscribe>
|
|
List-Archive: <https://listman.example.com/mailman/private/exmh-workers/>
|
|
Date: Wed, 28 Aug 2002 17:44:28 +0700
|
|
X-Pyzor: Reported 0 times.
|
|
X-Spam-Status: No, hits=-8.7 required=7.0
|
|
tests=KNOWN_MAILING_LIST,PATCH_UNIFIED_DIFF,SPAM_PHRASE_00_01,
|
|
X_LOOP
|
|
version=2.40-cvs
|
|
X-Spam-Level:
|
|
|
|
While I was playing with the past issues, it annoyed me that there was
|
|
no easy way to make the log stop growing (I don't mean to truncate it,
|
|
I mean to just freeze it for a while).
|
|
|
|
The following patch adds a new button to the log window, which allows
|
|
the log to be switched on/off (the button says "Disable" when the
|
|
log is enabled, and the button disables it, and "Enable" when the log
|
|
is frozen, and the button enables it again).
|
|
|
|
kre
|
|
|
|
--- main.tcl Wed Aug 21 15:01:48 2002
|
|
+++ /usr/local/lib/exmh-2.5/main.tcl Wed Aug 28 17:36:59 2002
|
|
@@ -385,6 +385,9 @@
|
|
ExmhLogCreate
|
|
wm withdraw $exmh(logTop)
|
|
}
|
|
+ if {! $exmh(logWrite)} {
|
|
+ return
|
|
+ }
|
|
if [info exists exmh(log)] {
|
|
catch {
|
|
# $exmh(log) insert end " [bw_delta] "
|
|
@@ -407,6 +410,9 @@
|
|
set exmh(logWindow) 1
|
|
Exwin_Toplevel .log "Exmh Log" Log
|
|
set exmh(logTop) .log
|
|
+ set exmh(logDisableBut) \
|
|
+ [Widget_AddBut $exmh(logTop).but swap "Disable" ExmhLogToggle]
|
|
+ set exmh(logWrite) 1
|
|
Widget_AddBut $exmh(logTop).but trunc "Truncate" ExmhLogTrunc
|
|
Widget_AddBut $exmh(logTop).but save "Save To File" ExmhLogSave
|
|
set exmh(logYview) 1
|
|
@@ -457,6 +463,12 @@
|
|
} msg] {
|
|
Exmh_Status "Cannot save log: $msg" error
|
|
}
|
|
+}
|
|
+proc ExmhLogToggle {} {
|
|
+ global exmh
|
|
+
|
|
+ set exmh(logWrite) [expr ! $exmh(logWrite)]
|
|
+ $exmh(logDisableBut) configure -text [lindex {"Enable " Disable} $exmh(logWrite)]
|
|
}
|
|
#### Misc
|
|
|
|
|
|
|
|
|
|
|
|
_______________________________________________
|
|
Exmh-workers mailing list
|
|
Exmh-workers@redhat.com
|
|
https://listman.redhat.com/mailman/listinfo/exmh-workers
|
|
|