Date: Sun, 23 Sep 2001 22:36:22 -0400 From: The Anarcat <anarcat@anarcat.dyndns.org> To: freebsd-libh@freebsd.org Subject: (fwd) little fix for disk editor Message-ID: <20010923223621.B17003@shall.anarcat.dyndns.org>
next in thread | raw e-mail | index | archive | help
--JgQwtEuHJzHdouWu
Content-Type: multipart/mixed; boundary="xgyAXRrhYN0wYx8y"
Content-Disposition: inline
--xgyAXRrhYN0wYx8y
Content-Type: text/plain; charset=us-ascii
Content-Disposition: inline
I should have sent this here in the first place. ;)
A.
--xgyAXRrhYN0wYx8y
Content-Type: message/rfc822
Content-Disposition: inline
Date: Sun, 23 Sep 2001 22:34:59 -0400
From: The Anarcat <anarcat@anarcat.dyndns.org>
To: Alexander Langer <alex@big.endian.de>
Subject: little fix for disk editor
Message-ID: <20010923223459.A17003@shall.anarcat.dyndns.org>
Mime-Version: 1.0
Content-Type: multipart/signed; micalg=pgp-sha1;
protocol="application/pgp-signature"; boundary="7AUc2qLy4jB3hD7Z"
Content-Disposition: inline
User-Agent: Mutt/1.3.22.1i
--7AUc2qLy4jB3hD7Z
Content-Type: text/plain; charset=us-ascii
Content-Disposition: inline
Content-Transfer-Encoding: quoted-printable
Hi.
I'm starting to hack around in libh, and it's quite fun. :)
Note: I'm running -STABLE, which adds to the fun.
First, the diskeditor wasn't working at all at first:
anarcat@shall [diskedit]$ tclh disk.tcl=20
Unable to Open_Disk md0: No such file or directory
while executing
"Disk $disk_name"
(procedure "list_disks" line 4)
invoked from within
"list_disks $listbox"
(procedure "diskwizard" line 25)
invoked from within
"diskwizard"
(file "disk.tcl" line 30)
I fixed the problem this way:
--- /usr/ports/misc/libh/work/libh-0.2/release/diskedit/diskwizard.tcl Sat =
Jun 2 08:10:56 2001
+++ diskwizard.tcl Sun Sep 23 22:32:11 2001
@@ -7,10 +7,17 @@
=20
proc list_disks {listbox} {
foreach disk_name [Disk::Disk_Names] {
- if {![string match "*cd*" $disk_name]} {
- lappend disks [Disk $disk_name]
- $listbox add 0 [format "%s:\t%s" $disk_name [disk_geometry_text [Disk=
$disk_name]]]
- }
+ if {![string match "*cd*" $disk_name] &&=20
+ ![string match "*md*" $disk_name]
+ } {
+ if { [catch {set d [Disk $disk_name]} fid] } {
+ # XXX: we should put this in a window
+ puts stderr "warning: $fid"
+ } else {
+ lappend disks $d
+ $listbox add 0 [format "%s:\t%s" $disk_name [disk_geometry=
_text [Disk $disk_name]]]
+ }
+ }
}
$listbox select 0
}
Second, TVision seems to be broken, somehow, when I start a hui using
it, when it quits, my terminal is completely messed up. Basically, the
characters I type are not echoed to the terminal.
Example:
###########################################################################=
#####
Alt-X Exit
anarcat@shall [diskedit]$ anarcat@shall [diskedit]$
anarcat@shall [diskedit]$ anarcat@shall [diskedit]$ anarcat@shall
[diskedit]$=20
This is made by typing "enter"s after quitting using Alt-X. Using
control-c doesn't show this behavior.
As I said a long time ago, I don't have much time on my hands, but I can
still do something. :) I will dig around the installer and related
scripts to see what I can do.
Any plans to have a cvs server back up anytime soon? :)
A.
--7AUc2qLy4jB3hD7Z
Content-Type: application/pgp-signature
Content-Disposition: inline
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.0.6 (FreeBSD)
Comment: For info see http://www.gnupg.org
iEYEARECAAYFAjuum9EACgkQttcWHAnWiGdfNQCfUrdVbBxYHIx9bkRrIHGOyc99
HOcAn1y8Rhq4WZokbXiWGyhtTunPkqCU
=9K1Y
-----END PGP SIGNATURE-----
--7AUc2qLy4jB3hD7Z--
--xgyAXRrhYN0wYx8y--
--JgQwtEuHJzHdouWu
Content-Type: application/pgp-signature
Content-Disposition: inline
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.0.6 (FreeBSD)
Comment: For info see http://www.gnupg.org
iEYEARECAAYFAjuunCQACgkQttcWHAnWiGeBlgCfYATmqTHwfYCxsn1AnmX8XuOm
FncAoIGAVAKqsf79j35N8Ri5MIs5+21L
=sR8v
-----END PGP SIGNATURE-----
--JgQwtEuHJzHdouWu--
To Unsubscribe: send mail to majordomo@FreeBSD.org
with "unsubscribe freebsd-libh" in the body of the message
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?20010923223621.B17003>