From owner-freebsd-libh Tue Oct 2 20:49:17 2001 Delivered-To: freebsd-libh@freebsd.org Received: from tomts12-srv.bellnexxia.net (tomts12.bellnexxia.net [209.226.175.56]) by hub.freebsd.org (Postfix) with ESMTP id CBE3D37B403 for ; Tue, 2 Oct 2001 20:49:13 -0700 (PDT) Received: from khan.anarcat.dyndns.org ([65.92.161.107]) by tomts12-srv.bellnexxia.net (InterMail vM.4.01.03.16 201-229-121-116-20010115) with ESMTP id <20011003034908.CQBR10446.tomts12-srv.bellnexxia.net@khan.anarcat.dyndns.org> for ; Tue, 2 Oct 2001 23:49:08 -0400 Received: from shall.anarcat.dyndns.org (shall.anarcat.dyndns.org [192.168.0.1]) by khan.anarcat.dyndns.org (Postfix) with ESMTP id 1F7391A91 for ; Tue, 2 Oct 2001 23:49:03 -0400 (EDT) Received: by shall.anarcat.dyndns.org (Postfix, from userid 1000) id C46A620BE1; Tue, 2 Oct 2001 23:49:05 -0400 (EDT) Date: Tue, 2 Oct 2001 23:49:05 -0400 From: The Anarcat To: Libh Subject: and fdiskops.tcl... (was: Re: corrupted diskwizard.tcl?) Message-ID: <20011002234905.C31522@shall.anarcat.dyndns.org> Mail-Followup-To: The Anarcat , Libh References: <20011002233942.B31522@shall.anarcat.dyndns.org> Mime-Version: 1.0 Content-Type: application/pgp; x-action=sign; format=text Content-Disposition: inline; filename="msg.pgp" In-Reply-To: <20011002233942.B31522@shall.anarcat.dyndns.org> User-Agent: Mutt/1.3.22.1i Sender: owner-freebsd-libh@FreeBSD.ORG Precedence: bulk List-ID: List-Archive: (Web Archive) List-Help: (List Instructions) List-Subscribe: List-Unsubscribe: X-Loop: FreeBSD.ORG -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 Here too... Index: fdiskops.tcl =================================================================== RCS file: /home/libh/cvs/libh/release/diskedit/fdiskops.tcl,v retrieving revision 1.5 diff -u -r1.5 fdiskops.tcl - --- fdiskops.tcl 2001/09/25 22:59:43 1.5 +++ fdiskops.tcl 2001/10/03 03:38:37 @@ -116,7 +116,7 @@ global activedisk set disk $activedisk - - =20 + if {![$disk modified]} { ok_dialog $hui $dialog "Nothing to write" "Cannot write changes because t here wasn't any." "45 2" } else { @@ -125,11 +125,11 @@ if {[$disk Write_Disk]} { ok_dialog $hui $dialog "Write failed" "Cannot write changes to disk." "45 2" } - - =20 + [$dialog byName "diskgeometrylabel"] text\ [format "Disk Geometry: %s" \ [disk_geometry_text $disk]] - - =20 + update_slices } } A. -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.0.6 (FreeBSD) Comment: For info see http://www.gnupg.org iEYEARECAAYFAju6irAACgkQttcWHAnWiGcNSwCglDo6khraBlID8QzHm+IEEw/4 LxMAn2T7o4lDAqF5xQw3Kq0SmTH2h3PG =sArn -----END PGP SIGNATURE----- To Unsubscribe: send mail to majordomo@FreeBSD.org with "unsubscribe freebsd-libh" in the body of the message