Example: CD-Floppy-Mount, 4

bind $work.cd.but \ "mount $work.cd.image cdrom" bind $work.fl.but \ "mount $work.fl.image floppy" proc mount {label flag} \ { global cdromMImage cdromUImage global cdromMText cdromUText cdromText global floppyMImage floppyUImage global floppyMText floppyUText floppyText set result [lsearch -regexp [exec cat /proc/mounts] $flag] ...........

Previous slide

Next slide

Back to the index

View Graphic Version

No notes for slide 43