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>