TkBurn-0.2.3st/ 40700 764 144 0 6711617464 12061 5ustar stefanusersTkBurn-0.2.3st/burnit100755 764 144 2377 6711617251 13424 0ustar stefanusers#!/bin/sh #------------------------------------------------- echo echo "Willkommen zu TkBurn! V 0.2.3" echo "----------------------------" echo echo "TkBurn! wird standardmig in das Verzeichnis /usr/lib/tkburn installiert." echo "Drcken die oder geben Sie einen anderen Installationspfad an." echo "Hinweis: Ein anderer Installationspfad macht manuelle nderungen im TkBurn!-Executable ntig." echo -n "Ziel [/usr/] ? " read "EINGABE" if [ "$EINGABE" ] ; then ZIEL=$EINGABE else ZIEL=/usr fi # Verzeichnisse anlegen und kopieren if [ ! -d "$ZIEL/lib/tkburn" ] ; then echo "Zielverzeichnis wird angelegt..." mkdir $ZIEL/lib/tkburn else echo "Zielverzeichnis existiert bereits." fi mkdir $ZIEL/lib/tkburn/manual # Dateien kopieren cp ./tkburn $ZIEL/bin cp ./ignition $ZIEL/bin cp ./README $ZIEL/lib/tkburn cp ./manual/* $ZIEL/lib/tkburn/manual cp ./src/* $ZIEL cp ./README $ZIEL echo "Konfigurationsverzeichnis existiert bereits." cp ./manual/* $ZIEL/lib/tkburn/manual cp ./src/* $ZIEL/lib/tkburn cp ./README $ZIEL/lib/tkburn/ echo "Installation beendet!" echo "Rufen sie als der Benutzer, der TkBurn benutzen mchte, vor dem ersten start \"ingnition\" auf." echo "Viel Spa beim Brennen ;-)" TkBurn-0.2.3st/README100644 764 144 2400 6533637067 13047 0ustar stefanusersTkBurn! 0.1.0 (c) 1998 Kay Molkenthin EMail: Kay_Molkenthin@Bigfoot.de molkiheg@sp.zrz.tu-berlin.de TkBurn! ist ein grafisches Tcl/Tk-Frontend zu den Programmen cdrecord und mkisofs. Die folgenden Versionen werden bentigt: - cdrecord 1.6 ftp://ftp.fokus.gmd.de/pub/unix/cdrecord/ - mkisofs 1.11 ftp://ftp.fokus.gmd.de/pub/unix/cdrecord/ - Tcl 8.0 http://www.scriptics.com/download/8.0.html - Tk 8.0 http://www.scriptics.com/download/8.0.html Installation: ============= Durch den Aufruf von ./burnit im TkBurn!-Sourceverzeichnis wird TkBurn! installiert. Dabei wird ein Konfigurationsverzeichnis /.tkburn im Home-Verzeichnis angelegt und das Programm unter /usr/local/tkburn installiert. Dieser Pfad kann durch nderung der Umgebungsvariablen "Ziel" im ./burnit-Skript gendert werden. Gestartet wird das Programm durch "tkburn". ------------------------------------------- Fr Kritik jeder Art habe ich immer ein offenes Ohr. Verbesserungen und eigene Routinen knnen natrlich in das Programm integriert werden. Sollen diese in die offizielle Version bernommen werden, so schickt mir bitte den Ursprungscode, wobei: 1. Eigene Routinen durch Kommentare beschrieben werden 2. Alter Code NICHT gelscht, sondern auskommentiert ist --- Kay Molkenthin 05.98 TkBurn-0.2.3st/tkburn100755 764 144 123545 6711617464 13475 0ustar stefanusers#!/usr/X11/bin/wish #-*- tcl -*- \ ############################ # TkBurn! # #--------------------------# # (c) Kay Molkenthin 1998 # # & # # Stefan Tomanek 1999 # # *grins* # #--------------------------# # Version 0.2.3st # ############################ global BRID global READID global IMAGEPART global CDRW global DEVCDR global DEVCD global SOURCEDIR global MS global VOLID global APPID global PUPID global PREPID global ALLFILES global DEEPDIR global FLINKS global LONGNAME global ROCKEXT global CDMODED global CDMODE global EJECT global DUMMY global FIXDISC global SPEED global TRANS global CDTYP global DOTS global CDCALCSIZE ####################################### wm title . "TkBurn! (c) 1999 by Kay Molkenthin & Stefan Tomanek" wm geometry . 510x420 frame .m -relief raised -bd 1 frame .h pack .m -side top -fill x pack .h -side top -fill both -expand 1 #Hauptframes frame .h.m -relief raised -bd 1 frame .h.b -relief raised -bd 1 pack .h.m -side left -expand 1 -fill both pack .h.b -side left -fill y #-Logo set logo [image create photo -file /usr/lib/tkburn/logo.gif] frame .h.m.i pack .h.m.i -fill both -expand 1 label .h.m.i.logo -image $logo -bg white pack .h.m.i.logo -expand 1 -fill both #-------------------------------Men------------------------------------ menubutton .m.file -text "System" -underline 0 -menu .m.file.menu menubutton .m.extra -text "Extras" -underline 0 -menu .m.extra.menu -state disabled menubutton .m.hilfe -text "Hilfe" -underline 0 -menu .m.hilfe.menu pack .m.file .m.extra -side left pack .m.hilfe -side right #---Datei-Men menu .m.file.menu .m.file.menu add command -label "Setup" -underline 0 -command SETUP .m.file.menu add separator .m.file.menu add command -label "Quit" -underline 0 -accelerator Ctrl+Q -command exit #--- Extras-Men menu .m.extra.menu .m.extra.menu add command -label "README-Editor" -underline 0 -command READMEEDIT -state normal .m.extra.menu add separator .m.extra.menu add command -label "CD-Cover" -underline 0 -command {system Test} -state normal #---Hilfe-Men menu .m.hilfe.menu .m.hilfe.menu add command -label "Info" -underline 0 -command {HILFE README} .m.hilfe.menu add command -label "Einfhrung" -underline 0 -command {HILFE INFO1} .m.hilfe.menu add command -label "Voraussetzung" -underline 0 -command {HILFE INFO2} .m.hilfe.menu add command -label "Funktionsumfang" -underline 0 -command {HILFE INFO3} .m.hilfe.menu add separator .m.hilfe.menu add cascade -label "Daten-CD" -underline 0 -command {HILFE README} -menu .m.hilfe.menu.daten .m.hilfe.menu add command -label "Audio-CD" -underline 0 -command {HILFE README} -state disabled .m.hilfe.menu add command -label "CD-Copy" -underline 0 -command {HILFE CDCOPY} -state normal .m.hilfe.menu add command -label "Konverter" -underline 0 -command {HILFE README} -state disabled .m.hilfe.menu add command -label "Tools" -underline 0 -command {HILFE README} -state disabled .m.hilfe.menu add separator .m.hilfe.menu add command -label "WICHTIG!!! LESEN" -underline 0 -command {HILFE BUGS} #----------------Daten-Men menu .m.hilfe.menu.daten .m.hilfe.menu.daten add command -label "Single-Session" -command {HILFE SINGLE} .m.hilfe.menu.daten add command -label "Multisession neu" -command {HILFE MSNEU} .m.hilfe.menu.daten add command -label "Multisession fortsetzen" -command {HILFE MSCON} #---Button-Leiste button .h.b.info -width 10 -text "CD-Info" -command INFO1 -state normal button .h.b.datcd -text "Daten-CD" -command DATCD button .h.b.aucd -text "Audio-CD" -command AUCD -state normal button .h.b.cdcopy -text "CD-Copy" -command CDCOPY -state disabled button .h.b.conv -text "Konverter" -command CONV -state normal button .h.b.tool -text "Tools" -command TOOLS -state disabled pack .h.b.info .h.b.datcd .h.b.aucd .h.b.cdcopy .h.b.conv .h.b.tool -side top -fill x -pady 3m -padx 2m #--START-FENSTER proc START {} { global logo destroy .h.m.i destroy .h.b.tool destroy .h.b.read destroy .h.b.2 destroy .h.b.otf destroy .h.b.qcp destroy .h.b.datcd destroy .h.b.aucd destroy .h.b.cdcopy destroy .h.b.conv destroy .h.b.info frame .h.m.i pack .h.m.i -fill both -expand 1 label .h.m.i.logo -image $logo -bg white pack .h.m.i.logo -expand 1 -fill both button .h.b.info -width 10 -text "CD-Info" -command INFO1 -state normal button .h.b.datcd -text "Daten-CD" -command DATCD button .h.b.aucd -text "Audio-CD" -command AUCD -state normal button .h.b.cdcopy -text "CD-Copy" -command CDCOPY -state disabled button .h.b.conv -text "Konverter" -command CONV -state normal button .h.b.tool -text "Tools" -command TOOLS -state disabled pack .h.b.info .h.b.datcd .h.b.aucd .h.b.cdcopy .h.b.conv .h.b.tool -side top -fill x -pady 3m -padx 2m } #--SETUP-FENSTER proc SETUP {} { #--Buttons ndern destroy .h.b.info destroy .h.b.2 destroy .h.b.otf destroy .h.b.qcp destroy .h.b.datcd destroy .h.b.cdcopy destroy .h.b.aucd destroy .h.b.conv destroy .h.b.tool destroy .h.b.read destroy .h.m.i frame .h.m.i pack .h.m.i -fill both -expand 1 label .h.m.i.l1 -text "Einstellungen" -relief raised -bd 1 -fg blue pack .h.m.i.l1 -side top -fill x -ipady 2m label .h.m.i.l2 -text "SCSI-Scan" place .h.m.i.l2 -in .h.m.i -x 2 -y 30 listbox .h.m.i.lb1 -height 5 -width 53 place .h.m.i.lb1 -in .h.m.i -x 2 -y 50 label .h.m.i.l3 -text "Brenner-ID" place .h.m.i.l3 -in .h.m.i -x 2 -y 150 entry .h.m.i.e3 -width 3 -textvariable BRID place .h.m.i.e3 -in .h.m.i -x 80 -y 150 label .h.m.i.l4 -text "Reader-ID" place .h.m.i.l4 -in .h.m.i -x 200 -y 150 entry .h.m.i.e4 -width 3 -textvariable READID place .h.m.i.e4 -in .h.m.i -x 272 -y 150 label .h.m.i.l6 -text "Device" entry .h.m.i.e6 -width 15 -textvariable DEVCDR place .h.m.i.l6 -in .h.m.i -x 2 -y 180 place .h.m.i.e6 -in .h.m.i -x 80 -y 180 label .h.m.i.l7 -text "Device" entry .h.m.i.e7 -width 15 -textvariable DEVCD place .h.m.i.l7 -in .h.m.i -x 200 -y 180 place .h.m.i.e7 -in .h.m.i -x 272 -y 180 label .h.m.i.l5 -text "Image Partition" place .h.m.i.l5 -in .h.m.i -x 2 -y 260 entry .h.m.i.e5 -width 35 -textvariable IMAGEPART place .h.m.i.e5 -in .h.m.i -x 120 -y 260 label .h.m.i.l9 -text "Audio Lese-Modus" place .h.m.i.l9 -in .h.m.i -x 2 -y 300 entry .h.m.i.e9 -width 35 -textvariable AUMODE place .h.m.i.e9 -in .h.m.i -x 120 -y 300 checkbutton .h.m.i.c1 -text "CD-Rewritable?" -variable CDRW place .h.m.i.c1 -in .h.m.i -x 2 -y 210 button .h.m.i.ok -width 10 -text "OK" -command {SAVESETUP $BRID $READID $IMAGEPART $CDRW $DEVCDR $DEVCD $AUMODE} button .h.m.i.cancel -width 10 -text "Abbrechen" -command START pack .h.m.i.ok -side left -anchor s -pady 3m -padx 2m pack .h.m.i.cancel -side right -anchor s -pady 3m -padx 2m SCSIINFO READSETUP } proc SAVESETUP {BRID READID IMAGEPART CDRW DEVCDR DEVCD AUMODE} { set Datei [open ~/.tkburn/setup.info w] puts $Datei $BRID puts $Datei $READID puts $Datei $IMAGEPART puts $Datei $CDRW puts $Datei $DEVCDR puts $Datei $DEVCD puts $Datei $AUMODE close $Datei START } proc READSETUP {} { global BRID global READID global IMAGEPART global CDRW global DEVCDR global DEVCD global AUMODE set Datei [open ~/.tkburn/setup.info] gets $Datei DUMMY set BRID $DUMMY gets $Datei DUMMY set READID $DUMMY gets $Datei DUMMY set IMAGEPART $DUMMY gets $Datei DUMMY set CDRW $DUMMY gets $Datei DUMMY set DEVCDR $DUMMY gets $Datei DUMMY set DEVCD $DUMMY gets $Datei DUMMY set AUMODE $DUMMY close $Datei } proc TOOLS {} { global CDRW global DEVCDR global MS #READIMAGECONF destroy .h.m.i frame .h.m.i pack .h.m.i -fill both -expand 1 destroy .h.b.info destroy .h.b.2 destroy .h.b.otf destroy .h.b.qcp destroy .h.b.datcd destroy .h.b.aucd destroy .h.b.conv destroy .h.b.tool destroy .h.b.read destroy .h.b.cdcopy button .h.b.conv -width 10 -text "Zurck" -command START pack .h.b.conv -side top -fill x -pady 3m -padx 2m label .h.m.i.l1 -text "Tools" -relief raised -bd 1 -fg blue pack .h.m.i.l1 -side top -fill x -ipady 2m READSETUP ##### CD finalisieren button .h.m.i.b2 -text "CD finalisieren" -width 15 place .h.m.i.b2 -in .h.m.i -x 2 -y 50 button .h.m.i.b3 -text "CDRW lschen" -width 15 place .h.m.i.b3 -in .h.m.i -x 2 -y 90 button .h.m.i.b4 -text "Image berprfen" -width 15 -command {CHECKIMAGE $DEVCDR $MS} place .h.m.i.b4 -in .h.m.i -x 2 -y 150 if {$CDRW == 0} { .h.m.i.b3 configure -state disabled } } proc CHECKIMAGE {DEVCDR MS} { #set MULTIIMAGE 0 global MULTIIMAGE #READIMAGECONF if {$MS != "MSNO"} { set MULTIIMAGE 1 } else { set MULTIIMAGE 0 } puts $MS toplevel .icheck wm title .icheck "Image berprfen" wm geometry .icheck 300x300 label .icheck.l1 -text "Hier kann berprft werden, ob das erstellte" place .icheck.l1 -in .icheck -x 2 -y 10 label .icheck.l2 -text "Image die gewnschten Informationen enthlt." place .icheck.l2 -in .icheck -x 2 -y 30 label .icheck.l3 -text "Das Image wird unter /mnt eingehngt." -fg blue place .icheck.l3 -in .icheck -x 2 -y 60 checkbutton .icheck.c1 -text "Multisession-Image ?" -variable MULTIIMAGE place .icheck.c1 -in .icheck -x 2 -y 80 } proc INFO1 {} { global CDCALCSIZE global DEVCDR READSETUP set CDCALCSIZE 0 # du can take some time, kepp the user informed! # This code doesn't work: It s executed too late, don't know why :-( # toplevel .waitmsg # wm geometry .waitmsg 300x300 # wm title .waitmsg "Bitte Geduld..." # label .waitmsg.l1 -text "Die Informationen werden gesammelt..." # pack .waitmsg.l1 -side top # OK, the user is informed ;) eval exec mount $DEVCDR -r -t iso9660 /mnt eval exec du -c /mnt > /tmp/infosize.dat eval exec umount /mnt set CDCALCSIZE [lindex [eval exec tail -1 /tmp/infosize.dat] 0] #puts $CDCALCSIZE set CDCALCSIZE [expr $CDCALCSIZE/1024] eval exec rm /tmp/infosize.dat # We will kill the message noe # destroy .waitmsg # OK, let's display the diagram INFO $CDCALCSIZE } proc INFO {CDCALCSIZE} { destroy .h.m.i frame .h.m.i pack .h.m.i -fill both -expand 1 destroy .h.b.info destroy .h.b.2 destroy .h.b.cdcopy destroy .h.b.datcd destroy .h.b.aucd destroy .h.b.conv destroy .h.b.tool destroy .h.b.read label .h.m.i.l1 -text "CD-Info" -relief raised -bd 1 -fg blue pack .h.m.i.l1 -side top -fill x -ipady 2m button .h.b.conv -width 10 -text "Zurck" -command START pack .h.b.conv -side top -fill x -pady 3m -padx 2m canvas .h.m.i.ca -width 7.5c -height 2c place .h.m.i.ca -in .h.m.i -x 0 -y 30 ### Benutzt-Balken zeichnen set x [expr $CDCALCSIZE/100.0 + 0.5] .h.m.i.ca create rectangle 0.5c 1.25c ${x}c 2c -outline blue -fill yellow ### .h.m.i.ca create line 0.5c 1c 0.5c 2c .h.m.i.ca create line 7c 1c 7c 2c .h.m.i.ca create line 0.5c 2c 7c 2c .h.m.i.ca create text 0.5c 0.5c -text 0 -anchor s .h.m.i.ca create text 7c 0.5c -text 650 -anchor s for {set i 1} {$i < 7} {incr i} { set x $i .h.m.i.ca create line ${x}c 1.75c ${x}c 2c .h.m.i.ca create line $x.5c 1.5c $x.5c 2c .h.m.i.ca create text $x.5c 1c -text [expr $i*100] } label .h.m.i.l3 -text "Benutzt" label .h.m.i.l4 -text "$CDCALCSIZE MB" -width 8 -relief sunken place .h.m.i.l3 -in .h.m.i -x 250 -y 50 place .h.m.i.l4 -in .h.m.i -x 310 -y 50 } proc DATCD {} { destroy .h.m.i frame .h.m.i pack .h.m.i -fill both -expand 1 #READIMAGECONF #READSETUP #--Buttons ndern destroy .h.b.info destroy .h.b.2 destroy .h.b.otf destroy .h.b.qcp destroy .h.b.datcd destroy .h.b.cdcopy destroy .h.b.aucd destroy .h.b.conv destroy .h.b.tool destroy .h.b.read button .h.b.tool -width 10 -text "Image" -command {IMAGE 1} button .h.b.otf -text "On the fly" -command {IMAGE 0} -state normal # A Quickcopy-On the fly Option button .h.b.qcp -text "QuickDISC" -command QUICKCD button .h.b.2 -text "CheckImage" -state disabled button .h.b.datcd -text "Save" -command {SAVEIMAGECONF $SOURCEDIR $MS $VOLID $APPID $PUPID $PREPID $ALLFILES $DEEPDIR $FLINKS $LONGNAME $ROCKEXT $CDMODED $CDMODE $EJECT $DUMMY $FIXDISC $SPEED $TRANS $CDTYP $DOTS} button .h.b.aucd -text "Brennen" -command BURNIT button .h.b.conv -text "Zurck" -command START pack .h.b.tool .h.b.otf .h.b.qcp .h.b.2 .h.b.datcd .h.b.aucd .h.b.conv -side top -fill x -pady 3m -padx 2m label .h.m.i.l1 -text "Daten-CD" -relief raised -bd 1 -fg blue pack .h.m.i.l1 -side top -fill x -ipady 2m label .h.m.i.l2 -text "Source-Verzeichnis" place .h.m.i.l2 -in .h.m.i -x 2 -y 40 entry .h.m.i.e2 -width 33 -textvariable SOURCEDIR place .h.m.i.e2 -in .h.m.i -x 140 -y 40 radiobutton .h.m.i.r1 -text "Kein MS" -variable MS -value MSNO -command {set CDMODE "-xa1"; set FIXDISC 1} place .h.m.i.r1 -in .h.m.i -x 2 -y 70 radiobutton .h.m.i.r2 -text "Multisession Neu" -variable MS -value MSNEU -command {set CDMODE "-xa2"; set FIXDISC 0} place .h.m.i.r2 -in .h.m.i -x 80 -y 70 radiobutton .h.m.i.r3 -text "Multisession Fortsetzen" -variable MS -value MSCON -command {set CDMODE "-xa2"; set FIXDISC 0} place .h.m.i.r3 -in .h.m.i -x 210 -y 70 label .h.m.i.l6 -text "Volume-ID" place .h.m.i.l6 -in .h.m.i -x 2 -y 100 entry .h.m.i.e6 -width 33 -textvariable VOLID place .h.m.i.e6 -in .h.m.i -x 140 -y 100 label .h.m.i.l3 -text "Application-ID" place .h.m.i.l3 -in .h.m.i -x 2 -y 120 entry .h.m.i.e3 -width 33 -textvariable APPID place .h.m.i.e3 -in .h.m.i -x 140 -y 120 label .h.m.i.l4 -text "Publisher-ID" place .h.m.i.l4 -in .h.m.i -x 2 -y 140 entry .h.m.i.e4 -width 33 -textvariable PUPID place .h.m.i.e4 -in .h.m.i -x 140 -y 140 label .h.m.i.l5 -text "Preparer-ID" place .h.m.i.l5 -in .h.m.i -x 2 -y 160 entry .h.m.i.e5 -width 33 -textvariable PREPID place .h.m.i.e5 -in .h.m.i -x 140 -y 160 checkbutton .h.m.i.c1 -text "Inkl. All Files" -variable ALLFILES place .h.m.i.c1 -in .h.m.i -x 2 -y 190 checkbutton .h.m.i.c2 -text "Deep Directory" -variable DEEPDIR place .h.m.i.c2 -in .h.m.i -x 2 -y 215 checkbutton .h.m.i.c3 -text "Symb. Links folgen" -variable FLINKS place .h.m.i.c3 -in .h.m.i -x 2 -y 240 checkbutton .h.m.i.c4 -text "Lange Filenamen (32)" -variable LONGNAME place .h.m.i.c4 -in .h.m.i -x 2 -y 265 checkbutton .h.m.i.c5 -text "Rock-Ridge-Extension" -variable ROCKEXT place .h.m.i.c5 -in .h.m.i -x 2 -y 290 radiobutton .h.m.i.r4 -text "DATA-Mode 1-CD" -variable CDMODED -value "-data" place .h.m.i.r4 -in .h.m.i -x 180 -y 190 radiobutton .h.m.i.r5 -text "DATA-Mode 2-CD" -variable CDMODED -value "-mode2" place .h.m.i.r5 -in .h.m.i -x 180 -y 215 radiobutton .h.m.i.r6 -text "XA-Mode 1-CD" -variable CDMODE -value "-xa1" place .h.m.i.r6 -in .h.m.i -x 180 -y 240 radiobutton .h.m.i.r7 -text "XA-Mode 2-CD" -variable CDMODE -value "-xa2" place .h.m.i.r7 -in .h.m.i -x 180 -y 265 checkbutton .h.m.i.c6 -text "Eject after writing" -variable EJECT place .h.m.i.c6 -in .h.m.i -x 180 -y 290 checkbutton .h.m.i.c7 -text "Dummy Mode" -variable DUMMY place .h.m.i.c7 -in .h.m.i -x 2 -y 315 checkbutton .h.m.i.c8 -text "CD fixieren" -variable FIXDISC place .h.m.i.c8 -in .h.m.i -x 2 -y 340 label .h.m.i.l7 -text "SPEED" tk_optionMenu .h.m.i.o1 SPEED 1 2 4 place .h.m.i.l7 -in .h.m.i -x 180 -y 340 place .h.m.i.o1 -in .h.m.i -x 240 -y 337 label .h.m.i.l10 -text "CD-Typ" tk_optionMenu .h.m.i.o10 CDTYP UNIX-Rock-Ridge UNIX-Win95/NT Win95/NT MSDOS CUSTOM place .h.m.i.l10 -in .h.m.i -x 180 -y 365 place .h.m.i.o10 -in .h.m.i -x 240 -y 362 checkbutton .h.m.i.c10 -text "TRANS.TBL erzeugen" -variable TRANS place .h.m.i.c10 -in .h.m.i -x 2 -y 365 checkbutton .h.m.i.c11 -text "Include .-Files" -variable DOTS place .h.m.i.c11 -in .h.m.i -x 180 -y 315 } proc SETOPTIONS {VarName ElemName Operation} { global CDTYP global ALLFILES global LONGNAME global ROCKEXT global DOTS global DEEPDIR global FLINKS global TRANS if {$VarName == ""} { set $ElemName UNIX-Rock-Ridge } else { upvar $VarName v } if {$v == "UNIX-Rock-Ridge"} { set ALLFILES 1 set LONGNAME 1 set ROCKEXT 1 set DOTS 1 set FLINKS 1 set DEEPDIR 1 set TRANS 0 } elseif {$v == "UNIX-Win95/NT"} { set ALLFILES 1 set LONGNAME 1 set ROCKEXT 1 set DOTS 1 set DEEPDIR 0 set FLINKS 0 set TRANS 1 } elseif {$v == "Win95/NT"} { set ALLFILES 1 set LONGNAME 1 set ROCKEXT 0 set DOTS 1 set DEEPDIR 0 set FLINKS 0 set TRANS 1 } elseif {$v == "MSDOS"} { set ALLFILES 1 set LONGNAME 0 set ROCKEXT 0 set DOTS 0 set DEEPDIR 0 set FLINKS 0 set TRANS 0 } elseif {$v == "CUSTOM"} { READIMAGECONF } } proc AUCD {} { global BRID # READSETUP destroy .h.m.i frame .h.m.i pack .h.m.i -fill both -expand 1 #--Buttons ndern destroy .h.b.tool destroy .h.b.read destroy .h.b.datcd destroy .h.b.aucd destroy .h.b.conv destroy .h.b.info destroy .h.b.cdcopy destroy .h.b.2 button .h.b.tool -width 10 -text "Tracks anzeigen" -command AUREAD button .h.b.read -width 10 -text "Track lesen" -command AUREAD button .h.b.aucd -text "CD schreiben" -command AUBRENNEN button .h.b.conv -text "Zurck" -command START pack .h.b.read .h.b.aucd .h.b.conv -side top -fill x -pady 3m -padx 2m label .h.m.i.l1 -text "Audio-CD" -relief raised -bd 1 -fg blue pack .h.m.i.l1 -side top -fill x -ipady 2m } proc AUSLESEN {} { # Create the dialog prompting for Trackname toplevel .readau wm title .readau "CD-Track auslesen" label .readau.l1 -text "Bitte legen Sie die Audio-CD in das Laufwerk ein." label .readau.l2 -text "Bitte geben sie den zu lesenden Track an:" entry .readau.e1 -width 2 -textvariable TRACKID button .readau.b1 -text "Auslesen" -command {GETTRACK $TRACKID GET} pack .readau.l1 .readau.l2 -side top pack .readau.e1 .readau.b1 -side top } proc GETTRACK {TRACKID MODE} { # Now we'll get the track from disc. I'm using readcdda here. # Maybve I'll will try cdparanoia later # READSETUP global READID global DEVCD global IMAGEPART global AUMODE if {$MODE == "PLAY"} { cdplayer "readcdda -B $DEVCD -D /dev/sg$READID -t $TRACKID -m $AUMODE $IMAGEPART/audio_$TRACKID.cdr -e /dev/dsp -q -n -T" } else { system "readcdda -B $DEVCD -D /dev/sg$READID -t $TRACKID -m $AUMODE $IMAGEPART/audio_$TRACKID.cdr" } } proc ANZEIGEN {} { global READID set ARG "TEST" # READSETUP # set cmd {cdrecord dev=$BRID,0 -toc > /tmp/autoc.at} toplevel .aumsg wm title .aumsg "Tracks anzeigen" # grab set .aumsg # set ARG {cdrecord dev=$BRID,0 -toc} label .aumsg.l1 -text "Bitte legen Sie die Audio-CD in das Laufwerk." button .aumsg.ok -text "OK" -command {DISPLAYTRACKS .aumsg} pack .aumsg.l1 .aumsg.ok -side top } proc DISPLAYTRACKS {win} { global READID puts "OK, bin da!" set cmd "cdrecord dev=$READID,0 -toc" system $cmd #system $cmd # eval [exec $cmd] #exec cdrecord dev=5,0 -toc >> /tmp/autoc.dat destroy $win set Datei [open /tmp/autoc.dat r] while {[gets $Datei Zeile] >=0} { set DUMMY1 [lindex $Zeile 0] set DUMMY2 [lindex $Zeile 3] puts $DUMMY1$DUMMY2 if {$DUMMY2 != "" && $DUMMY1 !="Cdrecord"} { puts $DUMMY1$DUMMY2[lindex $Zeile 4]} } } proc AUBRENNEN {} { global IMAGEPART global CDMODED global BRID global SPEED destroy .h.m.i frame .h.m.i pack .h.m.i -fill both -expand 1 label .h.m.i.l1 -text "Audiotrack brennen" -relief raised -bd 1 -fg blue pack .h.m.i.l1 -side top -fill x -ipady 2m label .h.m.i.l2 -text "Audiotracks" listbox .h.m.i.tracklist pack .h.m.i.tracklist -side top -fill x frame .h.m.i.func -relief sunken -borderwidth 3 pack .h.m.i.func button .h.m.i.upbtn -text {^} -command { .h.m.i.tracklist insert [expr [.h.m.i.tracklist curselection] - 1] [.h.m.i.tracklist get [.h.m.i.tracklist curselection]] .h.m.i.tracklist delete [.h.m.i.tracklist curselection] } button .h.m.i.addbtn -text Hinzufgen -command { .h.m.i.tracklist insert 1 [tk_getOpenFile -initialdir $IMAGEPART] } button .h.m.i.playbtn -text ABSPIELEN -command { cdplayer "playcdda -q -T -t -d /dev/dsp [.h.m.i.tracklist get [.h.m.i.tracklist curselection]]" } button .h.m.i.delbtn -text Entfernen -command { .h.m.i.tracklist delete [.h.m.i.tracklist curselection] } button .h.m.i.downbtn -text {v} -command { .h.m.i.tracklist insert [expr [.h.m.i.tracklist curselection] + 2] [.h.m.i.tracklist get [.h.m.i.tracklist curselection]] .h.m.i.tracklist delete [.h.m.i.tracklist curselection] } pack .h.m.i.upbtn .h.m.i.addbtn .h.m.i.playbtn .h.m.i.delbtn .h.m.i.downbtn -in .h.m.i.func -side left frame .h.m.i.options -relief raised -borderwidth 3 checkbutton .h.m.i.c1 -text "Multisession: Nur fr CD-ROM Laufwerke!" -variable MS checkbutton .h.m.i.c2 -text "Byte-Swap: Little/Big endian" -variable BS checkbutton .h.m.i.c3 -text "Pad Audio-Tracks" -variable PAD pack .h.m.i.options -side top pack .h.m.i.c1 .h.m.i.c2 .h.m.i.c3 -in .h.m.i.options -side top button .h.m.i.b2 -text "Tracks brennen" -command { if {$MS == "0"} { set MULTI "" } else { set MULTI "-multi" } if {$PAD == "0"} { set PADT "-nopad" } else { set PADT "-pad" } if {$BS == "0"} { set BSD "" } else { set BSD "-swab" } set ACTION "cdrecord -v dev=$BRID,0 speed=$SPEED $MULTI $PADT $BSD -audio [.h.m.i.tracklist get 0 [expr [.h.m.i.tracklist size] -1 ]]" system $ACTION } pack .h.m.i.b2 -in .h.m.i.options -side bottom } proc AUREAD {} { global IMAGEPART global CDMODED global BRID global SPEED destroy .h.m.i frame .h.m.i pack .h.m.i -fill both -expand 1 label .h.m.i.l1 -text "Audiotrack lesen" -relief raised -bd 1 -fg blue pack .h.m.i.l1 -side top -fill x -ipady 2m label .h.m.i.l2 -text "Audiotracks" listbox .h.m.i.tracklist -height 18 pack .h.m.i.tracklist -side top -fill both frame .h.m.i.func -relief raised -borderwidth 3 pack .h.m.i.func -side top button .h.m.i.read -width 13 -text "Track lesen" -command { GETTRACK [lindex [.h.m.i.tracklist get [.h.m.i.tracklist curselection]] 1] "GET" } button .h.m.i.play -width 13 -text "Track abspielen" -command { GETTRACK [lindex [.h.m.i.tracklist get [.h.m.i.tracklist curselection]] 1] "PLAY" } button .h.m.i.refresh -width 13 -text "Liste erneuern" -command { LISTTRACKS .h.m.i.tracklist } pack .h.m.i.play .h.m.i.read .h.m.i.refresh -in .h.m.i.func -side left } proc CONV {} { destroy .h.m.i frame .h.m.i pack .h.m.i -fill both -expand 1 label .h.m.i.l1 -text "Konverter" -relief raised -bd 1 -fg blue pack .h.m.i.l1 -side top -fill x -ipady 2m # Here I added the capability to convert WAV and other sound files to the cd-raw format using sox # Hey, i'm using TCL/TK since 2 weeks, I'm sure it's awful code...But it works ;-) label .h.m.i.l2 -text "WAV-Audio in CD Audio-Track wandeln:" pack .h.m.i.l2 -fill x -ipady 3m entry .h.m.i.e1 -width 53 -textvariable WAVFILE button .h.m.i.b1 -text "WAV auswhlen" -state normal -command { set WAVFILE [tk_getOpenFile -initialdir $IMAGEPART] } button .h.m.i.b2 -text "WAV konvertieren" -state normal -command { SOXCONV $WAVFILE $WAVFILE.cdr toplevel .soxconv wm title .soxconv "Konvertierung abgeschlossen" wm geometry .soxconv 300x100 frame .soxconv.o -relief raised -bd 1 frame .soxconv.u -relief raised -bd 1 pack .soxconv.o -side top -expand 1 -fill both pack .soxconv.u -side top -fill x grab set .soxconv label .soxconv.o.l2 -text "Die konvertierte Datei finden sie unter:" label .soxconv.o.l3 -text "$WAVFILE.cdr" place .soxconv.o.l2 -in .soxconv.o -x 2 -y 20 place .soxconv.o.l3 -in .soxconv.o -x 2 -y 40 button .soxconv.u.b1 -text "OK" -command {destroy .soxconv} pack .soxconv.u.b1 -side bottom } pack .h.m.i.e1 .h.m.i.b1 .h.m.i.b2 -side top -fill x -ipady 2m button .h.m.i.b3 -text "Zurck" -state normal -command { destroy .h.m.i START } pack .h.m.i.b3 -side bottom } proc SOXCONV {INFILE OUTFILE} { # Sox will convert the files. Wow, my first TCL/TK Steps exec sox $INFILE $OUTFILE } proc SCSIINFO {} { exec cdrecord -scanbus > ~/.tkburn/scsi.info 2> /dev/null set Datei [open ~/.tkburn/scsi.info] while {[gets $Datei Zeile] >=0} { set DUMMY1 [lindex $Zeile 0] set DUMMY2 [lindex $Zeile 3] if {$DUMMY2 != "" && $DUMMY1 !="Cdrecord"} { .h.m.i.lb1 insert end $DUMMY1$DUMMY2[lindex $Zeile 4] } } close $Datei } proc AUDIOINFO {} { global DRIVE exec cdrecord dev=$DRIVE,0 -toc > /tmp/audio.info } proc LISTTRACKS {TRACKLIST} { global DRIVE exec cdrecord dev=0,0 -toc > /tmp/trackinfo 2> /dev/null set Datei [open /tmp/trackinfo] while {[gets $Datei Zeile] >=0} { set CHECK1 [lindex $Zeile 0] set CHECK2 [lindex $Zeile 2] set DUMMY1 [lindex $Zeile 1] set DUMMY2 [lindex $Zeile 6] if {$CHECK1 == "track:" && $CHECK2 != "lout" } { $TRACKLIST insert [expr $DUMMY1 -1] "Track $DUMMY1 $DUMMY2" } } } #-CD-Image erstellen proc IMAGE {ITYPE} { global MS global FTITEL if {$MS == "MSNO"} { set FTITEL "Single Session CD beginnen" IMAGE0 $FTITEL } elseif {$MS == "MSNEU"} { set FTITEL "Neue Multisession CD beginnen" IMAGE0 $FTITEL } elseif {$MS == "MSCON"} { set FTITEL "Multisession CD fortsetzen" IMAGEMSCON $FTITEL } elseif {$MS == ""} { tk_dialog .d {Hinweis} {Keine CD-Art ausgewhlt!} {} -1 {OK} set FTITEL "Scheisse" BURNIT $FTITEL } } proc IMAGE0 {FTITEL} { toplevel .image wm title .image $FTITEL wm geometry .image 300x100 grab set .image frame .image.o -relief raised -bd 1 frame .image.u -relief raised -bd 1 pack .image.o -side top -expand 1 -fill both pack .image.u -side top -fill x button .image.u.ok -text "OK" -command {MKIMAGE0} button .image.u.cancel -text "Abbruch" -command {destroy .image} pack .image.u.ok -side left pack .image.u.cancel -side right label .image.l1 -text "Image-Datei erstellen" place .image.l1 -in .image -x 2 -y 10 label .image.l2 -text "Name" place .image.l2 -in .image -x 2 -y 40 entry .image.e2 -width 20 -textvariable IMAGENAME .image.e2 insert 0 "Track.raw" place .image.e2 -in .image -x 45 -y 40 } proc MKIMAGE0 {} { global SOURCEDIR global MS global VOLID global APPID global PUPID global PREPID global ALLFILES global DEEPDIR global FLINKS global LONGNAME global ROCKEXT global CDMODED global CDMODE global EJECT global DUMMY global FIXDISC global SPEED global IMAGEPART global IMAGENAME global TRANS global DOTS set EXECOMMAND "" if {$VOLID != ""} { set ARG " -V " set EXECOMMAND $EXECOMMAND$ARG$VOLID } if {$APPID != ""} { set ARG " -A " set EXECOMMAND $EXECOMMAND$ARG$APPID } if {$PUPID != ""} { set ARG " -P " set EXECOMMAND $EXECOMMAND$ARG$PUPID } if {$PREPID != ""} { set ARG " -p " set EXECOMMAND $EXECOMMAND$ARG$PREPID } if {$ALLFILES == 1} { set ARG " -a" set EXECOMMAND $EXECOMMAND$ARG } if {$DEEPDIR == 0} { set ARG " -D" set EXECOMMAND $EXECOMMAND$ARG } if {$FLINKS == 1} { set ARG " -f" set EXECOMMAND $EXECOMMAND$ARG } if {$TRANS == 1} { set ARG " -T" set EXECOMMAND $EXECOMMAND$ARG } if {$DOTS == 1} { set ARG " -L" set EXECOMMAND $EXECOMMAND$ARG } if {$LONGNAME == 1} { set ARG " -l" set EXECOMMAND $EXECOMMAND$ARG } if {$ROCKEXT == 1} { set ARG " -R" set EXECOMMAND $EXECOMMAND$ARG } set ARG " " set EXECOMMAND $ARG-o$ARG$IMAGEPART/$IMAGENAME$EXECOMMAND$ARG$SOURCEDIR puts mkisofs$EXECOMMAND .image.u.ok configure -state disabled update update idletasks set Value "mkisofs$EXECOMMAND" system $Value .image.u.ok configure -state normal ################################################### ## Hier mu noch eine interne Fortschritts, oder ## ## zumindest eine Bearbeitungsanzeige eingefgt ## ## werden, damit der Benutzer wei, da der ## ## Proze (noch) im Gange ist. ## ## --------------------------------------------- ## ## Vorschlge dazu sind gerne willkommen !!! ## ################################################### .image.u.ok configure -state normal destroy .image } proc IMAGEMS {FTITEL} { toplevel .image wm title .image $FTITEL wm geometry .image 300x100 grab set .image frame .image.o -relief raised -bd 1 frame .image.u -relief raised -bd 1 pack .image.o -side top -expand 1 -fill both pack .image.u -side top -fill x button .image.u.ok -text "OK" -command {.h.b.aucd configure destroy .image} button .image.u.cancel -text "Abbruch" -command {destroy .image} pack .image.u.ok -side left pack .image.u.cancel -side right label .image.l1 -text "Bitte legen Sie eine neue," label .image.l2 -text "leere CD in den Brenner ein." place .image.l1 -in .image -x 2 -y 10 place .image.l2 -in .image -x 2 -y 30 } proc IMAGEMSCON {FTITEL} { global BRID toplevel .image wm title .image $FTITEL wm geometry .image 300x160 grab set .image frame .image.o -relief raised -bd 1 frame .image.u -relief raised -bd 1 pack .image.o -side top -expand 1 -fill both pack .image.u -side top -fill x button .image.u.ok -text "OK" -command { if {$IMAGENAME != ""} { .image.u.cancel configure -state normal set TRACKDAT [eval exec cdrecord dev=$BRID,0 -msinfo] .image.l4 configure -text $TRACKDAT IMAGEMSCON_A $TRACKDAT} if {$IMAGENAME == ""} { tk_dialog .d {Hinweis} {Sie haben keinen Namen fr das Image vergeben!} {} -1 {OK} } } button .image.u.cancel -text "Abbruch" -command {destroy .image} pack .image.u.ok -side left pack .image.u.cancel -side right label .image.l1 -text "Bitte legen Sie die angefangene" label .image.l2 -text "Multisession-CD in den Brenner ein." place .image.l1 -in .image -x 2 -y 10 place .image.l2 -in .image -x 2 -y 30 label .image.l5 -text "Imagename" entry .image.e5 -width 20 -textvariable IMAGENAME .image.e5 insert 0 "Track.raw" place .image.l5 -in .image -x 2 -y 65 place .image.e5 -in .image -x 100 -y 65 label .image.l3 -text "Track-Daten" label .image.l4 -width 15 -text "----------" -relief sunken place .image.l3 -in .image -x 2 -y 90 place .image.l4 -in .image -x 100 -y 90 } proc IMAGEMSCON_A {TRACKDAT} { global SOURCEDIR global MS global VOLID global APPID global PUPID global PREPID global ALLFILES global DEEPDIR global FLINKS global LONGNAME global ROCKEXT global CDMODED global CDMODE global EJECT global DUMMY global FIXDISC global SPEED global IMAGEPART global IMAGENAME global TRANS global DOTS global DEVCDR set EXECOMMAND "" if {$VOLID != ""} { set ARG " -V " set EXECOMMAND $EXECOMMAND$ARG"$VOLID" } if {$APPID != ""} { set ARG " -A " set EXECOMMAND $EXECOMMAND$ARG"$APPID" } if {$PUPID != ""} { set ARG " -P " set EXECOMMAND $EXECOMMAND$ARG"$PUPID" } if {$PREPID != ""} { set ARG " -p " set EXECOMMAND $EXECOMMAND$ARG"$PREPID" } if {$ALLFILES == 1} { set ARG " -a" set EXECOMMAND $EXECOMMAND$ARG } if {$DEEPDIR == 0} { set ARG " -D" set EXECOMMAND $EXECOMMAND$ARG } if {$FLINKS == 1} { set ARG " -f" set EXECOMMAND $EXECOMMAND$ARG } if {$TRANS == 1} { set ARG " -T" set EXECOMMAND $EXECOMMAND$ARG } if {$DOTS == 1} { set ARG " -L" set EXECOMMAND $EXECOMMAND$ARG } if {$LONGNAME == 1} { set ARG " -l" set EXECOMMAND $EXECOMMAND$ARG } if {$ROCKEXT == 1} { set ARG " -R" set EXECOMMAND $EXECOMMAND$ARG } set ARG " " set EXECOMMAND $ARG-o$ARG$IMAGEPART/$IMAGENAME$EXECOMMAND$ARG-C$ARG$TRACKDAT$ARG-M$ARG$DEVCDR$ARG$SOURCEDIR puts mkisofs$EXECOMMAND set Value [eval exec mkisofs$EXECOMMAND &] } proc BURNIT {} { global MS global SPEED global IMAGEPART global DUMMY global EJECT #READSETUP destroy .h.m.i frame .h.m.i pack .h.m.i -fill both -expand 1 #--Buttons ndern destroy .h.b.tool destroy .h.b.read destroy .h.b.2 destroy .h.b.cdcopy destroy .h.b.datcd destroy .h.b.aucd destroy .h.b.conv destroy .h.b.otf destroy .h.b.qcp button .h.b.tool -width 10 -text "Start" -command {BRENNEN $MS $DUMMY $EJECT $SPEED $BURNIMAGE} button .h.b.conv -text "Zurck" -command START pack .h.b.tool .h.b.conv -side top -fill x -pady 3m -padx 2m label .h.m.i.l1 -text "CD-Image brennen" -relief raised -bd 1 -fg blue pack .h.m.i.l1 -side top -fill x -ipady 2m ############################################## if {$MS == "MSNO"} { label .h.m.i.l2 -text "Single-Session CD erstellen" place .h.m.i.l2 -in .h.m.i -x 2 -y 40 } elseif {$MS == "MSNEU"} { label .h.m.i.l2 -text "Neue Multisession CD erstellen" place .h.m.i.l2 -in .h.m.i -x 2 -y 40 } elseif {$MS == "MSCON"} { label .h.m.i.l2 -text "Multisession CD fortsetzen" place .h.m.i.l2 -in .h.m.i -x 2 -y 40 } label .h.m.i.l3 -text "Image-Datei" place .h.m.i.l3 -in .h.m.i -x 2 -y 80 entry .h.m.i.e3 -width 53 -textvariable BURNIMAGE place .h.m.i.e3 -in .h.m.i -x 2 -y 100 button .h.m.i.b3 -text "ffnen" -command { set BURNIMAGE [tk_getOpenFile -initialdir $IMAGEPART] } place .h.m.i.b3 -in .h.m.i -x 2 -y 125 label .h.m.i.l4 -text "Brenngeschwindigkeit $SPEED-fach" place .h.m.i.l4 -in .h.m.i -x 2 -y 160 } proc BRENNEN {MS DUMMY EJECT SPEED BURNIMAGE} { global BRID global CDMODED global CDMODE global FIXDISC #READSETUP # toplevel .info # wm title .info "Status" # wm geometry .info 200x60 # label .info.l1 -text "CD wird gebrannt..." # place .info.l1 -in .info -x 2 -y 2 # button .info.ok -text "OK" -state disabled -command {destroy .info} # pack .info.ok -side bottom # grab set .info # tkwait visibility .info if {$MS == "MSNO"} { set MULTI "" } else { set MULTI "-multi" } if {$EJECT == 1} { set BEJECT "-eject" } else { set BEJECT "" } if {$DUMMY == 1} { set BDUMMY "-dummy" } else { set BDUMMY "" } if {$CDMODED == "-data"} { set BCDMODED "" } else { set BCDMODED "-mode2" } if {$CDMODE == "-xa1"} { set BCDMODE "-xa1" } else { set BCDMODE "-xa2" } if {$FIXDISC == 1} { set BFIXDISC "-fix" } else { set BFIXDISC "" } # puts Multi:$MULTI # puts Speed:$SPEED # puts Dummy:$DUMMY:$BDUMMY # puts Eject:$EJECT:$BEJECT # puts DataMODE:$CDMODED:$BCDMODED # puts XA-MODE:$CDMODE:$BCDMODE #puts FIXDISC:$FIXDISC:$BFIXDISC ############################## # cdrecord aufrufen ############################## set ACTION "cdrecord -v speed=$SPEED $BCDMODED $BDUMMY $BFIXDISC $BEJECT $MULTI dev=$BRID,0 $BURNIMAGE" system $ACTION puts $ACTION ############################## } proc SAVEIMAGECONF {SOURCEDIR MS VOLID APPID PUPID PREPID ALLFILES DEEPDIR FLINKS LONGNAME ROCKEXT CDMODED CDMODE EJECT DUMMY FIXDISC SPEED TRANS CDTYP DOTS} { set Datei [open ~/.tkburn/image.info w] puts $Datei $SOURCEDIR puts $Datei $MS puts $Datei $VOLID puts $Datei $APPID puts $Datei $PUPID puts $Datei $PREPID puts $Datei $ALLFILES puts $Datei $DEEPDIR puts $Datei $FLINKS puts $Datei $LONGNAME puts $Datei $ROCKEXT puts $Datei $CDMODED puts $Datei $CDMODE puts $Datei $EJECT puts $Datei $DUMMY puts $Datei $FIXDISC puts $Datei $SPEED puts $Datei $TRANS puts $Datei $CDTYP puts $Datei $DOTS close $Datei } proc READIMAGECONF {} { global SOURCEDIR global MS global VOLID global APPID global PUPID global PREPID global ALLFILES global DEEPDIR global FLINKS global LONGNAME global ROCKEXT global CDMODED global CDMODE global EJECT global DUMMY global FIXDISC global SPEED global TRANS global CDTYP global DOTS set Datei [open ~/.tkburn/image.info] gets $Datei DUMMYc set SOURCEDIR $DUMMYc gets $Datei DUMMYc set MS $DUMMYc gets $Datei DUMMYc set VOLID $DUMMYc gets $Datei DUMMYc set APPID $DUMMYc gets $Datei DUMMYc set PUPID $DUMMYc gets $Datei DUMMYc set PREPID $DUMMYc gets $Datei DUMMYc set ALLFILES $DUMMYc gets $Datei DUMMYc set DEEPDIR $DUMMYc gets $Datei DUMMYc set FLINKS $DUMMYc gets $Datei DUMMYc set LONGNAME $DUMMYc gets $Datei DUMMYc set ROCKEXT $DUMMYc gets $Datei DUMMYc set CDMODED $DUMMYc gets $Datei DUMMYc set CDMODE $DUMMYc gets $Datei DUMMYc set EJECT $DUMMYc gets $Datei DUMMYc set DUMMY $DUMMYc gets $Datei DUMMYc set FIXDISC $DUMMYc gets $Datei DUMMYc set SPEED $DUMMYc gets $Datei DUMMYc set TRANS $DUMMYc gets $Datei DUMMYc set CDTYP $DUMMYc gets $Datei DUMMYc set DOTS $DUMMYc close $Datei } proc HILFE {HTEXT} { toplevel .info wm title .info "TkBurn!-Hilfe / $HTEXT" wm geometry .info 550x400 text .info.text -relief raised -bd 1 -yscrollcommand ".info.scroll set" scrollbar .info.scroll -command ".info.text yview" pack .info.scroll -side right -fill y pack .info.text -side left -fill both -expand 1 .info.text delete 1.0 end set d [open /usr/lib/tkburn/manual/$HTEXT] while {![eof $d]} { .info.text insert end [read $d 1000] } close $d } proc READMEEDIT {} { toplevel .edit wm title .edit "Editor" wm geometry .edit 500x300 text .edit.text -yscrollcommand ".edit.scroll set" scrollbar .edit.scroll -command ".edit.text yview" pack .edit.scroll -side right -fill y pack .edit.text -side left -expand 1 -fill both #---Statusanzeige set f [open "| cdrecord dev=5,0 speed=4 -multi -dummy /dos/h/test.raw" r] fileevent $f readable { set l [gets $f] if {[eof $f]} { close $f puts "FIN" } else { .edit.text insert end "$l\n" update idletasks } } #------------------------------------------------------------------------- } proc CDCOPY {} { toplevel .cdcopy wm title .cdcopy "CD-Copy (nur fr Daten-CDs)" wm geometry .cdcopy 300x100 frame .cdcopy.o -relief raised -bd 1 frame .cdcopy.u -relief raised -bd 1 pack .cdcopy.o -side top -expand 1 -fill both pack .cdcopy.u -side top -fill x grab set .cdcopy label .cdcopy.o.l1 -text "Legen Sie die zu kopierende CD in den" label .cdcopy.o.l2 -text "CD-Brenner und besttigen Sie 'OK'." place .cdcopy.o.l1 -in .cdcopy.o -x 2 -y 10 place .cdcopy.o.l2 -in .cdcopy.o -x 2 -y 30 button .cdcopy.u.b1 -text "OK" -command {.cdcopy.o.l1 configure -text "CD-Image wird erstellt..."; .cdcopy.o.l2 configure -text ""; .cdcopy.u.b2 configure -state disabled; .cdcopy.u.b1 configure -state disabled} button .cdcopy.u.b2 -text "Abbruch" -command {destroy .cdcopy} pack .cdcopy.u.b1 -side left pack .cdcopy.u.b2 -side right } proc QUICKCD {} { # Computers fast enough to copy directly from cdrom to writer doesn't need to create an image # But be careful: To high system load can end in wasted cdrs # Here we do a quick CD-2-CD-Copy toplevel .cdcopy wm title .cdcopy "QUICKDisc" wm geometry .cdcopy 300x100 frame .cdcopy.o -relief raised -bd 1 frame .cdcopy.u -relief raised -bd 1 pack .cdcopy.o -side top -expand 1 -fill both pack .cdcopy.u -side top -fill x grab set .cdcopy label .cdcopy.o.l1 -text "Legen Sie die zu kopierende CD in das" label .cdcopy.o.l2 -text "CD-ROM Laufwerk und besttigen Sie 'OK'." place .cdcopy.o.l1 -in .cdcopy.o -x 2 -y 10 place .cdcopy.o.l2 -in .cdcopy.o -x 2 -y 30 button .cdcopy.u.b1 -text "OK" -command {.cdcopy.o.l1 configure -text "CD-ROM wird erstellt..."; .cdcopy.o.l2 configure -text ""; .cdcopy.u.b2 configure -state disabled; .cdcopy.u.b1 configure -state disabled; BRENNEN "MSNO" 0 $EJECT $SPEED $DEVCD } button .cdcopy.u.b2 -text "Abbruch" -command {destroy .cdcopy} pack .cdcopy.u.b1 -side left pack .cdcopy.u.b2 -side right } ##################################################### #### STATUSANZEIGE proc processline {f t cmd} { set l [gets $f] if {[eof $f]} { catch {close $f} err $t insert end $err err .pbar.u.b configure -state normal } else { $t insert end "$l\n" update idletasks } } proc system {cmd} { toplevel .pbar wm title .pbar $cmd wm geometry .pbar 600x350 frame .pbar.o frame .pbar.u pack .pbar.o .pbar.u -side top text .pbar.o.t -background white -yscrollcommand ".pbar.o.s set" scrollbar .pbar.o.s -command ".pbar.o.t yview" button .pbar.u.b -text "OK" -state disabled -command {destroy .pbar} .pbar.o.t tag configure err -foreground blue pack .pbar.o.s -side right -fill y pack .pbar.o.t -side left pack .pbar.u.b -side top grab set .pbar set f [open "|$cmd" r] fileevent $f readable [list processline $f .pbar.o.t $cmd] } proc cdplayer {cmd} { toplevel .cdplay wm title .cdplay "CD-Player" set f [open "|$cmd" r+] button .cdplay.b -text "Stop" -command "puts $f quit; flush $f; close $f;destroy .cdplay" button .cdplay.c -text "Play" -command "puts $f play; flush $f" button .cdplay.d -text "Pause" -command "puts $f pause; flush $f" pack .cdplay.c .cdplay.b .cdplay.d -side left } ################################################################################ READSETUP READIMAGECONF trace variable CDTYP {rw} SETOPTIONS TkBurn-0.2.3st/src/ 40700 764 144 0 6533645046 12647 5ustar stefanusersTkBurn-0.2.3st/src/logo.gif100644 764 144 102305 6704434723 14444 0ustar stefanusersGIF89az|ŽVZЫF*KVǩ訢ȯɉꆏǚZXiX踗ZdKؕ+<蘨eHHsOvyķǗꀗ}i_鏜RNLc__濘Ɂ}x~??<ڐ֙]PN׹ؠ׺r* ib z|괮ppn^20'տ*,BDĜ#[lvx|t{ktsR\ǧ|j~Wfۅ' Z`XbZ]Tz $ɬ5`ԢON9`e[w#"0La'(xVٰ%$[v\ea&$fB2$ LƜ\CAh4`ʜ)(Oڤ&c&&x!yDF Y`L#j>eZLsU֌ 묲kzꫯ 2z5K-d`Pgl2Ȓe*˶v뭷lx*T[f9ZF 3*f+"k¼&ɘd(QP :X^ԢB eуf2 j4Cl3,3 .2[ 5͉-Sm1$aogDN!> \6ܵF@ѵqs\r&19J[Tpl n(jAaa|@}h 4ZT91P4νIB9H+}(j+@VWbh1? :~ x@Bgce{V '=rf/ &B qAÓ\^ 2~@b+3tKZR*+,bl0A(^PCaPAI :܉8@FEfQČhdQ8>-e (BFZr֣yMĽP{#0nd0H; aRtd+pqPCz{o*@"F+) w^.N.cn`;DY(S@ E l8EJ)"A3qz&F!o`3Hz8dRSjTWyss0aOWD@j"eQկ. WdX` .(h`r S\D>2ZHWդո#4nq54+X@)A bzqG)!I-! +G%P鳟9nk ֕h6SM uЫGWuނm蕯j /06#枎y3jY8"=T`:ߍ-7ݡW>8;L lF P {  z[]ث16 `]R)2Z+ 8`%"􏉕 uY_T+&<2B1F@gD_gP9|a }{u AiRdx`w'cgorWYw$c2 @ Q|W|dۥ=@gs<\tWPvw@6\8HdZp 0 nP 5i **.hIydPeTYBbzPkI kD_NÁ$2{,0L{U'WD<dȢm~&b |b|;36us!OxWW&{& 0' 0')-wES pOhWxq D7((` XG @#d(tr!9i0pbQ'jH7iPR` OyAyp u rf PThJPA@l!N$Fv_2*CL5f {&ÄD7^4W%UP]~gQWEc}7 ,#%,D7Ad- W~K闌WГPI S, f~=W i SDs" E4W ^6S= p<5riyb".ps>w-ȩzYTuׁ7L@ an`neKmȫ5fGori IgpkwPz,\2Hx;"87 lP#59RK < %!ys#\?s>$""YɢI@sKs s \e {ū{;Ѓi]G^}CYe|}uR %wZh|\5#TI>Z$ $F~hioi( ;3"|fEa ,+l x3(U=W2֢pĂY y#i2fe# #;/ m J,)* 1|: 7 =K.P4Ɂ=$04cV3phW x\771W~2K9AA .Hy4klBFpZiSh$"1k,淂=p7o^d¾ e,9R9H~6 `pA%8@QmٲD^AL6n!Oǫ׽'=1+ĒQ%Qrk[ɜQU <}a; mǃ*:Lwu+}OeY~L}B2BdP pm$ưs~NLE躁_! W~y> @xK|R~ΧUgP!< ,VDmϦSq`pchK„kP ^1yGiUkj-@3.V50 ~9dgY> `P p{s\>\N}J`ط' 0*tH|;h΀sDps.[gu @z@c_}yS*wrſНdih,TMP90ư Nn`k,77𗎈 ާ 883eƴ| U6iI&`&P|@pꐗSK xW+”)p/ 3"\~kӹ1Ö"P 9P+p>+ipi=L5h=T u2/c$Ŭ߇ـkgV[~u~v [#haC2AP|"8L& RNɕUYgrE⋠i%Mo(]j_[;]G ðhF ٟJH  ֌e=P RJ"-@cM`/ #Y̩QjSA쮌T Yt r8,Ek q1,mΞ$h V;.aj  lCSraY=P5 k&H^Ai :8JXN|iI&SIhCtܸ^<2jwU mVBl'^ 0iZ L@eKc Nn&%vlhު Tm(m-.U"ov*>`t0Ebn2־-A 5FD`4`9m챧t5#*ppFH%ҔFXxm,bNVgTB(bzAzg4k\ H s<w(5 CY9 A!l(f Fm,Aia,B@Y*`[hmk')6 o4N nF57f8;D#V4 ƪ$cWw$`;O#ǻm,HV63nAb$:,-QXPlJO;/k h&Ad Ï(A"Y@Q C #Q|D%$#ExI'H&sR-4bp0A 6Qrp6a6­a0AnIۂ! 9nl!#-9!6~XU+)MXWĢYp,('Gd*ȢF '#z"ͤ[޺EFϸ~;E2  #1 x~4ƛ0 BF ̐ s(JAAT&TE:FWe|%xcm`D9Q ,Gi,:9Gτ;!Y>բFt! ȁ tDR~RDUepՉm#,vr Q79+Eb UAZ9k q 55D"-  )(Tz HKOT%1Z|61 zy*hGzKAUa"<\R2h=mȁj J7-]StAPrOLPl,SݠгrZkEa  * N\(Mn9CjgZŁ 0sTNv8Qmp#׃F&3jLكK?0X) Y)$F~xבZ:>`, lViݘeTU!KQY"\4F SlڡaZfQQ-1G0(NVlJ-`^9Xަ ʑ ळrr[papgY0oTK*I8bU*'WDXh405صv4|tD,{ɿHB8 + | aI_*I!͊ TD}hD5d|* Si0GsR7CגPf(R#NF}wl& h4_Ӵ! ۘ|bɇufaY<)7>04*a(@LgS3VJbrP!‡ { gb bZ-R\VGa )9RI&6u"\C! HP|x+zG TCMR]qT`p y-1-ըjЇk8i(38 g@0&Ѓ؆"MjrX1&>#3>J=p#'x=g[R- 2z798-E0-{H"1j"P~Z(؆44"B?2X2. .gR(ᝣ'bx*1myBD XEHHlxDBBJ\EP9h K ` ɘ2 KR=@,rh칖gD%_: wpu a eث'XPi:0`ŇC6rZ`&`[hf`<ټ6z% &<xP8)([ID(DXh7/)ZH-?`"Q ? ; Ѓ*@ 08 ;&(ֈ6pj>Ph h8>HJ]녖+5aP  OkH:q೑qCSZJz@s1DoY*8"6>+/tLG[g`(,p聭,=`gPGm@M99PzT|J~z\IWWh?觅2z 0Ė3<ˏ U">R$}5!C3dXZт69_fO1(Sx_т2؊L#*hc2|&DPx C  `II  j͐4za+C ļlXf@hQuj ts  agXѹΪ2((Pּ)=)+LWA=30(\ѭPh38B L#kCC:D" ;Ȉ 0)DFz$)8Ï o*DY)FYL$4h)?w`z60ΠH]Q&eV rg 9iѐ&!`Ȳq4%:蛢傂`9@,M&dL8=*(lTh,S /I1)7 :#ɠ;[!e@;ށi b4rŐ3nY,6L f h20X-I $ +  SSڸ#ڿbB?`:c_Le?6L@l=:!2f{ t<(z$8|WD(L=+lb8S؅-NI26#RXAX8Q1:L]|е(DI%Yj 6KQ}+ ڙ!=p]+A3 ( PO|+"K'1 ٟH ҠRj\=`($ H,˫ '`AKhTp(HK)Ȁ,3$\Q8pB쭆Jӄ]I5䒈Ym0q:A=E OdZLCIa@1kA1I%eeu*0(hpG= [hR 2QUU` %hI Hfd9 &`Ѓ6ȝahFlcd,NnU, pLegP0 &d%eA~4p H{_f+쭅Գ.%aޔЃ[)"5ݰJ8+Ѓ'%)bFm VO.=Ђr%A皬Iw< @ YxKp`Zt3/Yj ?ߗ\ =xԒ1d;A;j0q Zlه Lѳ ߞx08ǚ>˫[z\)֔X2 ap„Df7Cэ Y*qo-`N>@8<4?]AXEDu 3̇`N5 0,6 l`菅bFjb  P**?"  րc %?j ˽ĻHJփCku]J|R$  .-#輪eH^!'߼XfN7bxh+4'329Q9 kdhX[Pȼ`@)sW`xLV#08`qo}5ȫn^8f0 cNx=( ՘4r"`pslYkyQf&fl0<Dhc2B͇탡8>! xKSLf!U.zkȜ6i(x L0rxmr `j+,jĂ |'NSyyc{_`YV`t%aد~t~UPu-T8ys]ٍ(?D޷[OHM\"$M$|h @bPEZ)\H;JwrjA}p/PE-'qj8_u$(  ᆌ4$%MЃ`ȃF /8jqpt_L3 .<",pʉ*>O)? WO<qaT *`",ά}x˲s ΚiFAHɐ)TⅩX j"0>xH Q͓D%֨u)kG2IU:E!{hEX/j%؍"\j^(4EZ*kM"Oʍ}]mKЉ5MQkAY{>Xkɐ) _` `I[-.\Wf_$(c-Nz N"+R+Y ?am[&KTIej_Rj*T`! r=^|sHWPx[*Ӓ\|faȵQzWEX G ppPV34,On>$@lS99=.\C c'c(G϶!4-0CD^7](+y=% {-3Li] ;umMk\F$) 1©d3\ ICedaCI%` 95xX(h*5 k8+{&GmEBb=! =Bcѡژ D AP <ҭ (bFk 5RqxR. ׉hoAl$G8Q& ]TR| PL1bf ?ODd@*Yӈe?s6౵˛)*.| kꠡӘX=p2D6La JPWgC5G"%oWۄchuNH&xh19=I>Vvaqn_b'ĬݢOSHdJ!s Z2r0. HKQ50ICjrq"ԇ=x(6Pђ?I E#o#M=b%˯'IL;bA2\! i$= TKZlQ$z6HZ^`"rmkqoAU*#94!ᐂ@ĕE4^ P58fՊW>T`k)Dw0{ԷխɳYbOwř hPZ0Fi)J/DPmR= B0 3 cfaPjոՔ` csA`OQdALB9LJ+n8 ߖTG\zt)+;Ce d4:-},VA_dܓEZ%a!fA5y`MZGF}g3J]\eN(Ӿմ;;ڴ6% }Zyu0 1&2y LO'HV- ۛWq߈C 1 fsݚ~).L"uM!)xQ2lKD"fg4O.q9ǻ-Q, &Lb֛ 9@||FuDsZIȀ0HHՋ:gEkksH"rH $B%(( ([Ŋ띏'؄TK1EDԀJEe $A4N$xd|Ԍ:X\D$>`5x"ŦFC Q@ lC5 ~]08Gˤ]KaHGh,ń<1DdZҀ>ZW}A!a%ǬChEJ$7h3TyR%B҆",O5]tQ0pAK-\C$L>LF3pØP|xc)M^A `7tM{lE Hi@0xf(Ch \ h ? 0PDžCG!pBġ1K "x= $Kڮ\hI>AA8)LDE]6tMU4A߬=чDK XL J4HLHdZGC9A VĢxU,X,֢O(񑏜Q/q[`@U̅ PDF `eИ $9dO W(S^@1C5IQ;PF$@0$$B`&\CoQdjީle Wh nbğY]E"`|d[1A͉,TGxT9PWU Ӏ Tȏh}A]}$ OX׳4Nq\h/W /TbX%VmDߢ,gLE\ P3 @!L`Pd7[3hxcM7D$ P;&iA}*PFepCB\ cTuǀhxPZGΑZ9LeY$5B$Og x04I̡$B]PO6PThؖ(S*A ,8 V `]"IHD׉✸D*ٽ#zb6pgMYUCyq0ot d9H r4cр(Ʀ#Vā>h(œ^i[(ЦC__!M"bA/ qn͍T`bC``W`q%TyL%a6d B e%ڭL-Rb$]pl0v0(+mYF,47E0p,blu@Ղ0H^ C 62yՉD8T _pmMV;oĀB0( P5@hA8GpF+0{PxP  "GIqQJVʭNVSF9I$b,e,[]C?AdG=I+ GjYnX $t*\c<,')pwD < i  ZtG7n_U 0CJI9Ah٭ @#]MD+$Mڸ@.RFiAΊDZ) @ENyЊr ]kQT]{Djtd4C>𑱙:(V]+r+A"4$B^A6<0ɡѹ߆ 苕=9M  @,bZuR$PtT=v3 %mV]? (X AAB T\<PC-H(DLMu|Ұq^zHZE|@>n(n" ѵdR+@I Z @(? `k MpG@>$ePp⤲<u7YlǃT%uHLrjĄD d}tHBT1@H Gez~(c, 50G JZ̄E'3р=03R-$W%ASjtLXV5MEԳRҦ(^ @6-E#d-99ovuQEUa()@ O>4@ UAv[ s>91KŲfC5Apمј<95 8/%Ol ,eWA<:@Lh)@Qvvx*Ȫ)^yLVPāA {uD/uT@xLF @z@"]LcUTi 0Ar;$fJy64CB003(C u V>OW#q7j:0[hK9ʕ@5T@N1ŕ0.G8p)|$KGX99ˡ 3Vi30C,0*bUywwrex[|33I𠇇6 -8CH_d,AJ3 \A0++At(T=k7RJ25B'JF)JuǹPCe|c8WzPQח+u[ <{Ss`σT;,bP6gX <2.'<[e; CxCfj-VrPj1o~_9m;k@ rc9 0$@@l$xCL)yFW9@0cǏZ\FC!Fln!U$p3 jHT)Q:|UQGʹCJ:p(fǎliR C. j|Uխ_!kG{p|x9_HbJ@ 0/i<ƂxF!,>m‡qMmF &1;LN`y̻ BT KQF %JL1z<4p@fzУ凖6Rv5cg}bf30 [ʋ [`"8CG{Ny(# ˇ`\8;HPi((b'Ij`$I,0Ujp5lʑs(ͧf4$Y5DҤgꩥgppkM*Qݶ1Zd4> 2P_}5c0Ez [WuauYz2!U M cAF _fk0P+X>Թ8>8ڈ 6yT}D@e%<Ǜ6\BFUbHC `!yLL=Cʄq뉢΍]N0 μ\`Ŧ2̔:NϦn㍔qta.]ۡ?d,M[rrcaHgt\3s1IMpgwxg~bp~l W0cc Th< q/ =V-ه!'Y5[ HV9 Xr6VDވsA b$\(tϐ[!+sn8aSRҭ ~PۀՌW=Ј:J|=)1_$h$0@lD /!Iz=RA3~%D@OǖpDH"k$H,NJ.P0&<2(KxBd o)IIX $JRxy.f@@ LO@d&AS"&Dp 1*A \-z(N= ANOyΓ=85S5,G<2* THG)J;>@M`B&Pq /0{\DTN9C OΔ5Mq* xG@3 5JTB͈>**MXD/06Ł聬o4w\ -@ >8x攮u]ZWm!\/~ THjP 9(`&4 lb50hj$gO*O;ih=" uka[ mЂ 0lRJH"Kʊ7<HC3ȚE.َ5=_p\/ 5l*RWir%+YZ E#G5aZnv_]p:mH@Λa oz{oA jPf! (RH@ɥ,*>nw Wz  8(:e)Oٮp{׾ MoY\cpoql0ZyAHp8๻iC#\``S*/эb"@ ZTءuRDBߌlA@< h=a}:`Cha:lā}GSloC80# آF f mڀntj@9pzq PBo}[Yz[Lw¾v(7iUU{d@֦0)9r@Qr)N8vC4A7aBԁpq!.H`3 |xF:6=A*[e1k?X2 w" 1N.xLߦftJ}i޽rȁ.vO>b@]iKSA(*/ a; 6{I8c 0XWִ>q{ B:;%h)Mb8X;}ZXq.@qpdfY|cr(}0#ij?ou N/5"ϵa 0kL @Qʏ|`8+ց@֠͞D O@R 0~h3쫷rn+Ʀ @|`Vi` ` v!mJs1/H @ i-MdN:O{뷂K! @ ȈXr @dƠ<b@`hPa``P@!b1ivqhd@%0"Q@d`` a"vq1Qv "A1uQq ! ` $֫$i.-|KP/ tAg8` :@`@`taaР_"ll@!XbbQ$|L+y$)p!b qp 0A5`,m mQ $Աƒ1*p1P*r!22!-N!~@P@  %1ځ/X:%. K:z  D@Xᦖxp x#u!h?!Bh P%,@i) !l B!1C=) q"h?a?DM?z0"!p=SD?A)#% Ā `8L8ʠ6aJZ%Klx 0i/DA.ޑ630Cwp!@#0aA/ !GiPI &ڴqM0+?Cb/}LiZ!` tG|S$$A 6!H̯ xJn&Ij @! @AC DEӔC"1O0ZG CuPO3"\qlGh` ؕP%G@ z$d2 >  `Fϰ01JAX 8.)"B !*`!Q`!R'b Qv"aj1R/2/\/hgtG+`EihhוhM"vPQti.$E xƀ Fp+a>y  da8n i!b r!l]SO "C}DTW!2v 9T]t^#N @uIu=!`p/!f7`!\"t]Zn$ypOUao aз|r@`8I!` 7P 5{"PFlVw0TPl, Q]! j?*b `[ >|հ`,<76toEֱHNAw2%qQ>uՠ!=TRC5j?j<@!x@P|X,A[39D4"`*֑;҅"|U.]nxHۋ X Dr3Ӏs 9^cUTt O}B Jl  .U:ZU"AUDiǕ#bK *> z SUCl8JXR  @ҀsY@ p F̯xCx!>`<xt ~:9 :k R枠A J `8'p 0!IwzH1;)$ ~$u>"N[~.iϝ+  'Z;bKt`8 aaab{JʚAA6tI;} A HA~ !jn, [!ܨ `!r!> L J82РnarC6 ;m #~ FaU P.0 ́W Ԁ ށa>aG @\ M`<i%[N$@F`Α| AΑ|ll !Pd=`̡oC'׏:$ H @L[ّ]lXpAp}}ܡ$ErAAٗ]ݝE]A63aۋ% ʨP$`׽)s ^]nv7(U^86~\ΟE[a  X;I ca/{^شfȡ= ăĨH> DĠ|85o =@yݛ?]ޡ A$%ڷf(a d$B^" `O)M=!_ߜ `G!M]@H] ^h.`A@~BA " ?Gw"ʲO@oظ @a^}Ρ}bap+!~ 3S ̜=k ;z2ȑC .$v pA 3SjcrxPS֭\z 6رcXq$UZ)V|socFѹ N8yW Ļ6s̘\Q *$Uz큶FܹCD$&ȠQ pFx 899ԫ[Ŋv^& RS+?tݽW`ФIuoűկb#20OaXfqfGHnF||Mn8l S}@čȑF`.#uaC;\O)s>B4SY@=|K1|lSD<؂6 ؑK :|JQF<I.d/ z73NVH+2 =QnD0Nhni6cVH % s=! #W|-,Q/p@O|ϖ}`Y9{0:ezj # SIGX4KЇFL@3# L|GF WMTP (1:1X}ڠ%0bFpяn TѐF46rI4^gF6(l<%(1\`  !-h6(L"98 7+圑 ~'Hڛ6Ҍ` -,ƸD:,!4!Q"tHI A@ 2,x #q\n@ ' q <=| s @z6@~ը-GK_r ` .? ]#f(TSZC?P8+{$J ըZ5ʧ S 357B)8js0̀h~R]*u퐆Rh:xW:&u#0TtЋ~Ц.lTCڀ`T$Iy T+Y;I`CEEˉ>.T@f<= > Y+fp3N.W)11'!EK/=pաy<5Ё<v "S35v#0Y'P֜оwmaцB6NW g~g˅v-(w{a0T|_ ^`mZVi~=S.Pd6Ҁ  bfϥC0+,0HԀM0}`L7Por&U7S߷M;LC@NI# {s}+n;q Tq8„q8F$qP#=wPhqat8vm$g<LaO0Ynq"jqW[ &K&w;* ȷFC`|B K 20?gxv|}@ }xGyt6P%a@ ^S=([;pezUcD\pP ]uaf(&g " lF  6(A1 0gCnP'` k N X}1hWzo`7ϡbYVu=ec98wf A1c0lńGvV aNMV^hNFG0Ā(R40'!Æ|A|xQ0`F{xW ߧv6| V]X~gc΄Kj7pcv(`HhJ)˷8w h:0' C HW"!w0ڂU ClP#D"Ua&mmCd U8!uV0TTn9jq;qH49wЋ| Ґ|+ G" X,gk` 6Fg(3ဏPtF i<8][eQ Qugz_qV,^ q_ N-Q6@ȑ` c|O:d{ `oX C x R0y<si, K>cxuFp Ѣ-pU8iVPbPi9B P8p$TiRo)_)f_adեcBDp8}V "ekPU Zg=H4 j۸o4QCPʤGX̰W-~-ddU^v2+kIMڜ9+m_L;cUãU_p{`cL4Vy6̵9 WKp}0  jƭ=0 z0Hh˾,ۛڌ_  :~ >iq0Z+[7{##. />]= 7Nۓii6x:k; :d =0 0S. Xp.h*{5-$ Z<p1; im Dqcpoebq B`  #L p πG~ uV2~ a0]PR%&~tM< M !a_.rz-K {jf6 ,~38 Y ]t. ^.DQ%#!~]p[ N~o)Q>{ 䠹e#wef~0+g @(0`0`j$XA.N iVP^1೦AUΥT% 0J?|K (L[zFn[Y2Ǘsn޼hPF̓J ΘE܄Lк0 J"D.Zd8T%E6uA=p:P_9]ك.O(u45e鸒2»9򻏥7D*OsN8 2#a ˟QkP`pFzlGdQuxdFk &A5USp`62K$Pb<*Li͚c?F :Y-8##OlP(`]Zs2H"8 1lee ge1jSǙgpxd fZ)P׬xvMQb1e7|nޅ5S7)u:Sk">E=6>rS9'-C2Sd.z i0l-/t3'fA=fC5#e2W+-G-/T3 lLT_f1 aK&Ϻ3; IsOctGT;B^jAa)'Yݥ VY0;h 1zק? $;JQEL_c8 &F3T4fC 1f2EZ5Kmg4=B C9́g4o"1@CP+C:DG;?K N yj.pDZ' c[Vba36C$`,Pi/-a<sU"lfLfakp Nyim!aڸlC]^Y+"a80x2|a=~IkC2y k< sZG(N1 {rAWRQ,^{16 J;/t2KŎa VJ醋V4+-RT23"=fHW#Z0.C/Nh.D@\իB5TP3.7`G5d r4~t.2s~ HA<?4F9.g=rxs _` O ,% nND -n,5 LG 0"ŖxJ,=a``7ax9HazT=I&#CYpIdbs!h gow7pĦt/q"c*0O)ulY5pW HϘ<3r-~"m v^eC/tQzխNb3%/s Ĥ(d3)Cm&ռ#kC}E7Z ~|"E;Oa`3ZŚC?C񓧼{0hֻ =n/"b 0dqGLeZT@uW&U_jLP@q=_ӟ.$"a t&zinFѪ":8#>dEU?q+8- Y88KhT@LpX46;瑶 d2a"Z 䲳?");!z7+3gp{@"TӘЁ(hAq< 1<@sA9ŚJ~c?(dk!["Z"齭yۃ%tH( )>䎚q8ĺ@cү6 =Ci>0Np$))Կ¿:rp( [F ʻ_13 ;f;&"A3{si둒 2? D4sư 5B\F 5g4#92C0iJ@ A332yx3ӞAbpT̬UBJC9dZ)CGu7p]DžtG,"?D`?A!{ dL 5&@5\f(P ќJelȂG0Aˋxtx$;xį0v,*pYG1lq0oѶ4[I6A3쳯5; I5Њ$&p4``RA.`JeJ KJ'?˨!O4Pi.0讂fXBsqEJA;sX댐`w0s4GYEJW:l9[X51hPy ETȏ` {4׹۴'͹] q,?d$/KK.a$ɲ’;+ѻhyN=ʴ."5XԈ)NBN<)0Q1#0115(wb5Pԁ eKIYġ é  e˂8ݫ 5~c@CH(KPFuj!h mpDeS^\ ghK~.ǶDF2E ~DG k '5";~C[ % JITP+/G9G;q Q7DU][:8I\-\^&톶:X#a1x>" 5ٓa붥 >[{!+3*9 h5C#A- !rk8 VE;U,7?N$:J1a#-11(x0UUeTgy6Pi0scxs9yp_^f|`"d5Z0s]~!=c棶9xrjR笎۸R6U\Rf`5q2dہ/R&V1Er@ٿ>n~-[p 38fjx7( P N\0VO v^n /pfo.rprqN%O&l`P5'gRm9qGqnn1?R)d7118gEsf!Dߒ1Q׾5:j='Woxh'`>#SsU_ubu._8_ht'sIJ_;uNVqqHǛ=T{$6[v]`s݁j~m5nR-GwfuxwAcg=0xi7j8p58OIņx .m _渖NDPv5( xî_HgQax_ 5x[awa_qGo-!I% wwi~l0Hp7hrXgO/~~h?'V.hiru&4nR^wOp>0w C._0>Nƅ/Zivo|Ǘ pg]$=P_'(8FOk.FvWN0؃7ru7r(]0%XvVstn08w|k180<=s ep(ji.pX~r0g&xg. 35OK%3f_OXL:uȨq#ǎ? )r$ɒ&OLr%˖-/P׬"6u8s0|ʹ 5C!FS1cFsB nDql,,Ydu3ba Чψ1pLĉ"nZQ#Nx1Ǝ9lAf6謆p+3!цHU08uKI,:`CstnaV*֯cϮ)#ag>DH)  }w¶ 8YXTsnWAZ|xT`,쑟Waicd3Cy7l nQNUOU (6CX+ a &;TkBurn-0.2.3st/src/image.info100644 764 144 137 6533634255 14676 0ustar stefanusersda, wo das Quellverzeichnis ist MSNO ----- ----- ----- ----- 1 1 1 1 1 -data -xa1 1 1 0 4 0 1 TkBurn-0.2.3st/src/setup.info100644 764 144 100 6533634266 14744 0ustar stefanusers? ? da, wo das Image abgelegt werden soll 0 /dev/scd? /dev/scd? TkBurn-0.2.3st/.directory100644 764 144 65 6537001565 14131 0ustar stefanusers# KDE Config File [KDE Desktop Entry] BgImage= Icon= TkBurn-0.2.3st/manual/ 40700 764 144 0 6533644414 13333 5ustar stefanusersTkBurn-0.2.3st/manual/INFO1100644 764 144 417 6533644376 14172 0ustar stefanusers1. Einfhrung ============= TkBurn! ist ein grafisches Frontend zu den Programmen "cdrecord" und "mkisofs". Diese Programme werden fr die Ausfhrung von TkBurn! vorausgesetzt. Weitere Funktionen/Tools knnen in das Programm integriert werden (s. X. Erweiterungen).TkBurn-0.2.3st/manual/INFO2100644 764 144 405 6533644404 14160 0ustar stefanusers2. Voraussetzungen ================== - cdrecord 1.6 ftp://ftp.fokus.gmd.de/pub/unix/cdrecord/ - mkisofs 1.11 ftp://ftp.fokus.gmd.de/pub/unix/cdrecord/ - Tcl 8.0 http://www.scriptics.com/download/8.0.html - Tk 8.0 http://www.scriptics.com/download/8.0.htmlTkBurn-0.2.3st/manual/INFO3100644 764 144 645 6533644411 14165 0ustar stefanusers3. Funktionsumfang ================== - Erstellung von Daten-CDs - Erstellung von Audio-CDs (noch nicht verfgbar) - Direktes kopieren ohne Image (noch nicht verfgbar) - Multisessionfhigkeit - Untersttzung von CDRWs (noch nicht verfgbar) - Audio-Tools zum auslesen und Konvertieren von Audio-Tracks (noch nicht verfgbar) - CD-Info: - Anzeige des benutzten Speicherplatzes der CD - Anzeige der Audio-TracksTkBurn-0.2.3st/manual/MSNEU100644 764 144 563 6533644422 14237 0ustar stefanusersNeue Multisession CD erstellen ============================== Voraussetzung ist eine leere CD. Unter [Daten-CD] ist "Multisession Neu" auszuwhlen. Fr dieses Image gelten die Einstellungen im Optionsfenster. Folgetracks mssen mit den gleichen Einstellungen gebrannt werden (s. Multisession-CD fortsetzen). Mit [Image] wird das Image auf der Imagepartition erstellt.TkBurn-0.2.3st/manual/README100644 764 144 1344 6533644426 14327 0ustar stefanusersTkBurn! V0.0.5 Grafisches Tcl/Tk-Frontend zur Erstellung von Daten- und Audio-CDs. =================================================================== (c) 1998 Kay Molkenthin EMail: Kay_Molkenthin@Bigfoot.de molkiheg@sp.zrz.tu-berlin.de Entstanden ist dieses Tool eigentlich nur aus dem Grund, da: 1. XCDROAST keine Multisessionfhigkeit bietet 2. Dem Author die Tipparbeit am Prompt zu viel war ;-) ------------------------------------------------------------------- Fr Kritik und Anregungen ist der Author natrlich jederzeit dankbar. Da durch die Verwendung von Tcl/Tk das Programm von jedem vernderbar ist, werden Erweiterungen von Anderen unter Hinzufgung eines Verweises gerne in diese (offizielle) Version integriert. TkBurn-0.2.3st/manual/SINGLE100644 764 144 1103 6533644432 14341 0ustar stefanusersSingle-Session CD erstellen =========================== Voraussetzung ist eine leere CD. Im Optionsfenster ist unter "Source-Verzeichnis" das VERZEICHNIS einzutragen, in dem die zu brennenden Daten liegen. Die Option "Kein MS" ist auszuwhlen. Unter "CD-Typ" knnen Voreinstellungen fr verschiedene CD-Typen ausgewhlt werden (Empfohlen). Diese knnen natrlich abgendert und gespeichert [Save] werden und stehen dann unter "CD-Typ" als 'CUSTOM' zur Verfgung. Mit [Image] wird das Image auf der Imagepartition erstellt. Mit [Brennen] wird das Image auf die CD gebrannt.TkBurn-0.2.3st/manual/BUGS100644 764 144 3152 6533644372 14131 0ustar stefanusersVOR DEM BRENNEN =============== Unter SYSTEM/SETUP sind die Einstellungen fr den Brenner und das CD-ROM vorzunehmen. TkBurn! scannt den SCSI-Bus und zeigt die Informationen im oberen Fenster an. Unter BRENNER-und READER-ID ist jeweils die entsprechende erste Zahl aus dem Informationsfenster einzutragen. Unter "Device" die entsprechenden Device-Namen: z.B. CD-ROM /dev/scd0 fr das 1. SCSI-CDROM Brenner /dev/scd1 fr das 2. SCSI-CDROM Handelt es sich bei dem Brenner um einen "Rewritable", ist das entsprechende Kstchen zu markieren. Unter "Image-Partition" ist die Festplattenpartition einzutragen, auf der die Images erstellt werden. Mit [OK] werden die Einstellungen gespeichert. KERNELEINSTELLUNGEN =================== Fr die noch nicht implementierte Funktion [Image berprfen] ist im Kernel die Option "Loop-Device" zu aktivieren (nicht Loopback!) zu finden unter den 'Filesystemen'. Im Augenblick aber noch nicht notwendig. BUGLISTE ======== Soweit ich es testen konnte, hat das Programm in diesem Sinne keine Bugs - allerdings sind folgende Punkte zu beachten: - Das Programm sollte aus einem Terminalfenster unter X gestartet werden, da der Output von "mkisofs" noch nicht in das Programm umgeleitet werden konnte (dient nur dazu, damit man sieht, was mkisofs gerade macht, bzw. ob es mit dem Erstellen des Images fertig ist). - Die CD im Brenner darf nicht gemountet sein - Der Mountpoint /mnt mu existieren. Falls dieser nicht existiert, mu dieser im Root-Verzeichnis mit: mkdir mnt erzeugt werden. - Am Mountpoint /mnt darf vor dem Start von TkBurn! kein Filesystem gemountet sein.TkBurn-0.2.3st/manual/MSCON100644 764 144 1167 6533644414 14251 0ustar stefanusersMultisession-CD fortsetzen ========================== Voraussetzung ist eine angefangene und nicht finalisierte CD. Unter [Daten-CD] ist "Multisession fortsetzen" auszuwhlen. Beim Erstellen des Images ist zu beachten: 1. Die angefangene CD mu im Brenner liegen 2. Die CD mu im gleichen Format weitergebrannt werden Durch [Image] wird dann ein Imagename gefordert und die neue Startadresse des Tracks angezeigt. Durch [OK] wird das Image auf der Imagepartition erstellt. Beim Brennen des Images mit [Brennen] ist darauf zu achten, da "Multisession fortsetzen" ausgewhlt ist (falls TkBurn! inzwischen neu gestartet wurde). TkBurn-0.2.3st/logo.gif100644 0 0 102305 6704434710 13044 0ustar rootrootGIF89az|ŽVZЫF*KVǩ訢ȯɉꆏǚZXiX踗ZdKؕ+<蘨eHHsOvyķǗꀗ}i_鏜RNLc__濘Ɂ}x~??<ڐ֙]PN׹ؠ׺r* ib z|괮ppn^20'տ*,BDĜ#[lvx|t{ktsR\ǧ|j~Wfۅ' Z`XbZ]Tz $ɬ5`ԢON9`e[w#"0La'(xVٰ%$[v\ea&$fB2$ LƜ\CAh4`ʜ)(Oڤ&c&&x!yDF Y`L#j>eZLsU֌ 묲kzꫯ 2z5K-d`Pgl2Ȓe*˶v뭷lx*T[f9ZF 3*f+"k¼&ɘd(QP :X^ԢB eуf2 j4Cl3,3 .2[ 5͉-Sm1$aogDN!> \6ܵF@ѵqs\r&19J[Tpl n(jAaa|@}h 4ZT91P4νIB9H+}(j+@VWbh1? :~ x@Bgce{V '=rf/ &B qAÓ\^ 2~@b+3tKZR*+,bl0A(^PCaPAI :܉8@FEfQČhdQ8>-e (BFZr֣yMĽP{#0nd0H; aRtd+pqPCz{o*@"F+) w^.N.cn`;DY(S@ E l8EJ)"A3qz&F!o`3Hz8dRSjTWyss0aOWD@j"eQկ. WdX` .(h`r S\D>2ZHWդո#4nq54+X@)A bzqG)!I-! +G%P鳟9nk ֕h6SM uЫGWuނm蕯j /06#枎y3jY8"=T`:ߍ-7ݡW>8;L lF P {  z[]ث16 `]R)2Z+ 8`%"􏉕 uY_T+&<2B1F@gD_gP9|a }{u AiRdx`w'cgorWYw$c2 @ Q|W|dۥ=@gs<\tWPvw@6\8HdZp 0 nP 5i **.hIydPeTYBbzPkI kD_NÁ$2{,0L{U'WD<dȢm~&b |b|;36us!OxWW&{& 0' 0')-wES pOhWxq D7((` XG @#d(tr!9i0pbQ'jH7iPR` OyAyp u rf PThJPA@l!N$Fv_2*CL5f {&ÄD7^4W%UP]~gQWEc}7 ,#%,D7Ad- W~K闌WГPI S, f~=W i SDs" E4W ^6S= p<5riyb".ps>w-ȩzYTuׁ7L@ an`neKmȫ5fGori IgpkwPz,\2Hx;"87 lP#59RK < %!ys#\?s>$""YɢI@sKs s \e {ū{;Ѓi]G^}CYe|}uR %wZh|\5#TI>Z$ $F~hioi( ;3"|fEa ,+l x3(U=W2֢pĂY y#i2fe# #;/ m J,)* 1|: 7 =K.P4Ɂ=$04cV3phW x\771W~2K9AA .Hy4klBFpZiSh$"1k,淂=p7o^d¾ e,9R9H~6 `pA%8@QmٲD^AL6n!Oǫ׽'=1+ĒQ%Qrk[ɜQU <}a; mǃ*:Lwu+}OeY~L}B2BdP pm$ưs~NLE躁_! W~y> @xK|R~ΧUgP!< ,VDmϦSq`pchK„kP ^1yGiUkj-@3.V50 ~9dgY> `P p{s\>\N}J`ط' 0*tH|;h΀sDps.[gu @z@c_}yS*wrſНdih,TMP90ư Nn`k,77𗎈 ާ 883eƴ| U6iI&`&P|@pꐗSK xW+”)p/ 3"\~kӹ1Ö"P 9P+p>+ipi=L5h=T u2/c$Ŭ߇ـkgV[~u~v [#haC2AP|"8L& RNɕUYgrE⋠i%Mo(]j_[;]G ðhF ٟJH  ֌e=P RJ"-@cM`/ #Y̩QjSA쮌T Yt r8,Ek q1,mΞ$h V;.aj  lCSraY=P5 k&H^Ai :8JXN|iI&SIhCtܸ^<2jwU mVBl'^ 0iZ L@eKc Nn&%vlhު Tm(m-.U"ov*>`t0Ebn2־-A 5FD`4`9m챧t5#*ppFH%ҔFXxm,bNVgTB(bzAzg4k\ H s<w(5 CY9 A!l(f Fm,Aia,B@Y*`[hmk')6 o4N nF57f8;D#V4 ƪ$cWw$`;O#ǻm,HV63nAb$:,-QXPlJO;/k h&Ad Ï(A"Y@Q C #Q|D%$#ExI'H&sR-4bp0A 6Qrp6a6­a0AnIۂ! 9nl!#-9!6~XU+)MXWĢYp,('Gd*ȢF '#z"ͤ[޺EFϸ~;E2  #1 x~4ƛ0 BF ̐ s(JAAT&TE:FWe|%xcm`D9Q ,Gi,:9Gτ;!Y>բFt! ȁ tDR~RDUepՉm#,vr Q79+Eb UAZ9k q 55D"-  )(Tz HKOT%1Z|61 zy*hGzKAUa"<\R2h=mȁj J7-]StAPrOLPl,SݠгrZkEa  * N\(Mn9CjgZŁ 0sTNv8Qmp#׃F&3jLكK?0X) Y)$F~xבZ:>`, lViݘeTU!KQY"\4F SlڡaZfQQ-1G0(NVlJ-`^9Xަ ʑ ळrr[papgY0oTK*I8bU*'WDXh405صv4|tD,{ɿHB8 + | aI_*I!͊ TD}hD5d|* Si0GsR7CגPf(R#NF}wl& h4_Ӵ! ۘ|bɇufaY<)7>04*a(@LgS3VJbrP!‡ { gb bZ-R\VGa )9RI&6u"\C! HP|x+zG TCMR]qT`p y-1-ըjЇk8i(38 g@0&Ѓ؆"MjrX1&>#3>J=p#'x=g[R- 2z798-E0-{H"1j"P~Z(؆44"B?2X2. .gR(ᝣ'bx*1myBD XEHHlxDBBJ\EP9h K ` ɘ2 KR=@,rh칖gD%_: wpu a eث'XPi:0`ŇC6rZ`&`[hf`<ټ6z% &<xP8)([ID(DXh7/)ZH-?`"Q ? ; Ѓ*@ 08 ;&(ֈ6pj>Ph h8>HJ]녖+5aP  OkH:q೑qCSZJz@s1DoY*8"6>+/tLG[g`(,p聭,=`gPGm@M99PzT|J~z\IWWh?觅2z 0Ė3<ˏ U">R$}5!C3dXZт69_fO1(Sx_т2؊L#*hc2|&DPx C  `II  j͐4za+C ļlXf@hQuj ts  agXѹΪ2((Pּ)=)+LWA=30(\ѭPh38B L#kCC:D" ;Ȉ 0)DFz$)8Ï o*DY)FYL$4h)?w`z60ΠH]Q&eV rg 9iѐ&!`Ȳq4%:蛢傂`9@,M&dL8=*(lTh,S /I1)7 :#ɠ;[!e@;ށi b4rŐ3nY,6L f h20X-I $ +  SSڸ#ڿbB?`:c_Le?6L@l=:!2f{ t<(z$8|WD(L=+lb8S؅-NI26#RXAX8Q1:L]|е(DI%Yj 6KQ}+ ڙ!=p]+A3 ( PO|+"K'1 ٟH ҠRj\=`($ H,˫ '`AKhTp(HK)Ȁ,3$\Q8pB쭆Jӄ]I5䒈Ym0q:A=E OdZLCIa@1kA1I%eeu*0(hpG= [hR 2QUU` %hI Hfd9 &`Ѓ6ȝahFlcd,NnU, pLegP0 &d%eA~4p H{_f+쭅Գ.%aޔЃ[)"5ݰJ8+Ѓ'%)bFm VO.=Ђr%A皬Iw< @ YxKp`Zt3/Yj ?ߗ\ =xԒ1d;A;j0q Zlه Lѳ ߞx08ǚ>˫[z\)֔X2 ap„Df7Cэ Y*qo-`N>@8<4?]AXEDu 3̇`N5 0,6 l`菅bFjb  P**?"  րc %?j ˽ĻHJփCku]J|R$  .-#輪eH^!'߼XfN7bxh+4'329Q9 kdhX[Pȼ`@)sW`xLV#08`qo}5ȫn^8f0 cNx=( ՘4r"`pslYkyQf&fl0<Dhc2B͇탡8>! xKSLf!U.zkȜ6i(x L0rxmr `j+,jĂ |'NSyyc{_`YV`t%aد~t~UPu-T8ys]ٍ(?D޷[OHM\"$M$|h @bPEZ)\H;JwrjA}p/PE-'qj8_u$(  ᆌ4$%MЃ`ȃF /8jqpt_L3 .<",pʉ*>O)? WO<qaT *`",ά}x˲s ΚiFAHɐ)TⅩX j"0>xH Q͓D%֨u)kG2IU:E!{hEX/j%؍"\j^(4EZ*kM"Oʍ}]mKЉ5MQkAY{>Xkɐ) _` `I[-.\Wf_$(c-Nz N"+R+Y ?am[&KTIej_Rj*T`! r=^|sHWPx[*Ӓ\|faȵQzWEX G ppPV34,On>$@lS99=.\C c'c(G϶!4-0CD^7](+y=% {-3Li] ;umMk\F$) 1©d3\ ICedaCI%` 95xX(h*5 k8+{&GmEBb=! =Bcѡژ D AP <ҭ (bFk 5RqxR. ׉hoAl$G8Q& ]TR| PL1bf ?ODd@*Yӈe?s6౵˛)*.| kꠡӘX=p2D6La JPWgC5G"%oWۄchuNH&xh19=I>Vvaqn_b'ĬݢOSHdJ!s Z2r0. HKQ50ICjrq"ԇ=x(6Pђ?I E#o#M=b%˯'IL;bA2\! i$= TKZlQ$z6HZ^`"rmkqoAU*#94!ᐂ@ĕE4^ P58fՊW>T`k)Dw0{ԷխɳYbOwř hPZ0Fi)J/DPmR= B0 3 cfaPjոՔ` csA`OQdALB9LJ+n8 ߖTG\zt)+;Ce d4:-},VA_dܓEZ%a!fA5y`MZGF}g3J]\eN(Ӿմ;;ڴ6% }Zyu0 1&2y LO'HV- ۛWq߈C 1 fsݚ~).L"uM!)xQ2lKD"fg4O.q9ǻ-Q, &Lb֛ 9@||FuDsZIȀ0HHՋ:gEkksH"rH $B%(( ([Ŋ띏'؄TK1EDԀJEe $A4N$xd|Ԍ:X\D$>`5x"ŦFC Q@ lC5 ~]08Gˤ]KaHGh,ń<1DdZҀ>ZW}A!a%ǬChEJ$7h3TyR%B҆",O5]tQ0pAK-\C$L>LF3pØP|xc)M^A `7tM{lE Hi@0xf(Ch \ h ? 0PDžCG!pBġ1K "x= $Kڮ\hI>AA8)LDE]6tMU4A߬=чDK XL J4HLHdZGC9A VĢxU,X,֢O(񑏜Q/q[`@U̅ PDF `eИ $9dO W(S^@1C5IQ;PF$@0$$B`&\CoQdjީle Wh nbğY]E"`|d[1A͉,TGxT9PWU Ӏ Tȏh}A]}$ OX׳4Nq\h/W /TbX%VmDߢ,gLE\ P3 @!L`Pd7[3hxcM7D$ P;&iA}*PFepCB\ cTuǀhxPZGΑZ9LeY$5B$Og x04I̡$B]PO6PThؖ(S*A ,8 V `]"IHD׉✸D*ٽ#zb6pgMYUCyq0ot d9H r4cр(Ʀ#Vā>h(œ^i[(ЦC__!M"bA/ qn͍T`bC``W`q%TyL%a6d B e%ڭL-Rb$]pl0v0(+mYF,47E0p,blu@Ղ0H^ C 62yՉD8T _pmMV;oĀB0( P5@hA8GpF+0{PxP  "GIqQJVʭNVSF9I$b,e,[]C?AdG=I+ GjYnX $t*\c<,')pwD < i  ZtG7n_U 0CJI9Ah٭ @#]MD+$Mڸ@.RFiAΊDZ) @ENyЊr ]kQT]{Djtd4C>𑱙:(V]+r+A"4$B^A6<0ɡѹ߆ 苕=9M  @,bZuR$PtT=v3 %mV]? (X AAB T\<PC-H(DLMu|Ұq^zHZE|@>n(n" ѵdR+@I Z @(? `k MpG@>$ePp⤲<u7YlǃT%uHLrjĄD d}tHBT1@H Gez~(c, 50G JZ̄E'3р=03R-$W%ASjtLXV5MEԳRҦ(^ @6-E#d-99ovuQEUa()@ O>4@ UAv[ s>91KŲfC5Apمј<95 8/%Ol ,eWA<:@Lh)@Qvvx*Ȫ)^yLVPāA {uD/uT@xLF @z@"]LcUTi 0Ar;$fJy64CB003(C u V>OW#q7j:0[hK9ʕ@5T@N1ŕ0.G8p)|$KGX99ˡ 3Vi30C,0*bUywwrex[|33I𠇇6 -8CH_d,AJ3 \A0++At(T=k7RJ25B'JF)JuǹPCe|c8WzPQח+u[ <{Ss`σT;,bP6gX <2.'<[e; CxCfj-VrPj1o~_9m;k@ rc9 0$@@l$xCL)yFW9@0cǏZ\FC!Fln!U$p3 jHT)Q:|UQGʹCJ:p(fǎliR C. j|Uխ_!kG{p|x9_HbJ@ 0/i<ƂxF!,>m‡qMmF &1;LN`y̻ BT KQF %JL1z<4p@fzУ凖6Rv5cg}bf30 [ʋ [`"8CG{Ny(# ˇ`\8;HPi((b'Ij`$I,0Ujp5lʑs(ͧf4$Y5DҤgꩥgppkM*Qݶ1Zd4> 2P_}5c0Ez [WuauYz2!U M cAF _fk0P+X>Թ8>8ڈ 6yT}D@e%<Ǜ6\BFUbHC `!yLL=Cʄq뉢΍]N0 μ\`Ŧ2̔:NϦn㍔qta.]ۡ?d,M[rrcaHgt\3s1IMpgwxg~bp~l W0cc Th< q/ =V-ه!'Y5[ HV9 Xr6VDވsA b$\(tϐ[!+sn8aSRҭ ~PۀՌW=Ј:J|=)1_$h$0@lD /!Iz=RA3~%D@OǖpDH"k$H,NJ.P0&<2(KxBd o)IIX $JRxy.f@@ LO@d&AS"&Dp 1*A \-z(N= ANOyΓ=85S5,G<2* THG)J;>@M`B&Pq /0{\DTN9C OΔ5Mq* xG@3 5JTB͈>**MXD/06Ł聬o4w\ -@ >8x攮u]ZWm!\/~ THjP 9(`&4 lb50hj$gO*O;ih=" uka[ mЂ 0lRJH"Kʊ7<HC3ȚE.َ5=_p\/ 5l*RWir%+YZ E#G5aZnv_]p:mH@Λa oz{oA jPf! (RH@ɥ,*>nw Wz  8(:e)Oٮp{׾ MoY\cpoql0ZyAHp8๻iC#\``S*/эb"@ ZTءuRDBߌlA@< h=a}:`Cha:lā}GSloC80# آF f mڀntj@9pzq PBo}[Yz[Lw¾v(7iUU{d@֦0)9r@Qr)N8vC4A7aBԁpq!.H`3 |xF:6=A*[e1k?X2 w" 1N.xLߦftJ}i޽rȁ.vO>b@]iKSA(*/ a; 6{I8c 0XWִ>q{ B:;%h)Mb8X;}ZXq.@qpdfY|cr(}0#ij?ou N/5"ϵa 0kL @Qʏ|`8+ց@֠͞D O@R 0~h3쫷rn+Ʀ @|`Vi` ` v!mJs1/H @ i-MdN:O{뷂K! @ ȈXr @dƠ<b@`hPa``P@!b1ivqhd@%0"Q@d`` a"vq1Qv "A1uQq ! ` $֫$i.-|KP/ tAg8` :@`@`taaР_"ll@!XbbQ$|L+y$)p!b qp 0A5`,m mQ $Աƒ1*p1P*r!22!-N!~@P@  %1ځ/X:%. K:z  D@Xᦖxp x#u!h?!Bh P%,@i) !l B!1C=) q"h?a?DM?z0"!p=SD?A)#% Ā `8L8ʠ6aJZ%Klx 0i/DA.ޑ630Cwp!@#0aA/ !GiPI &ڴqM0+?Cb/}LiZ!` tG|S$$A 6!H̯ xJn&Ij @! @AC DEӔC"1O0ZG CuPO3"\qlGh` ؕP%G@ z$d2 >  `Fϰ01JAX 8.)"B !*`!Q`!R'b Qv"aj1R/2/\/hgtG+`EihhוhM"vPQti.$E xƀ Fp+a>y  da8n i!b r!l]SO "C}DTW!2v 9T]t^#N @uIu=!`p/!f7`!\"t]Zn$ypOUao aз|r@`8I!` 7P 5{"PFlVw0TPl, Q]! j?*b `[ >|հ`,<76toEֱHNAw2%qQ>uՠ!=TRC5j?j<@!x@P|X,A[39D4"`*֑;҅"|U.]nxHۋ X Dr3Ӏs 9^cUTt O}B Jl  .U:ZU"AUDiǕ#bK *> z SUCl8JXR  @ҀsY@ p F̯xCx!>`<xt ~:9 :k R枠A J `8'p 0!IwzH1;)$ ~$u>"N[~.iϝ+  'Z;bKt`8 aaab{JʚAA6tI;} A HA~ !jn, [!ܨ `!r!> L J82РnarC6 ;m #~ FaU P.0 ́W Ԁ ށa>aG @\ M`<i%[N$@F`Α| AΑ|ll !Pd=`̡oC'׏:$ H @L[ّ]lXpAp}}ܡ$ErAAٗ]ݝE]A63aۋ% ʨP$`׽)s ^]nv7(U^86~\ΟE[a  X;I ca/{^شfȡ= ăĨH> DĠ|85o =@yݛ?]ޡ A$%ڷf(a d$B^" `O)M=!_ߜ `G!M]@H] ^h.`A@~BA " ?Gw"ʲO@oظ @a^}Ρ}bap+!~ 3S ̜=k ;z2ȑC .$v pA 3SjcrxPS֭\z 6رcXq$UZ)V|socFѹ N8yW Ļ6s̘\Q *$Uz큶FܹCD$&ȠQ pFx 899ԫ[Ŋv^& RS+?tݽW`ФIuoűկb#20OaXfqfGHnF||Mn8l S}@čȑF`.#uaC;\O)s>B4SY@=|K1|lSD<؂6 ؑK :|JQF<I.d/ z73NVH+2 =QnD0Nhni6cVH % s=! #W|-,Q/p@O|ϖ}`Y9{0:ezj # SIGX4KЇFL@3# L|GF WMTP (1:1X}ڠ%0bFpяn TѐF46rI4^gF6(l<%(1\`  !-h6(L"98 7+圑 ~'Hڛ6Ҍ` -,ƸD:,!4!Q"tHI A@ 2,x #q\n@ ' q <=| s @z6@~ը-GK_r ` .? ]#f(TSZC?P8+{$J ըZ5ʧ S 357B)8js0̀h~R]*u퐆Rh:xW:&u#0TtЋ~Ц.lTCڀ`T$Iy T+Y;I`CEEˉ>.T@f<= > Y+fp3N.W)11'!EK/=pաy<5Ё<v "S35v#0Y'P֜оwmaцB6NW g~g˅v-(w{a0T|_ ^`mZVi~=S.Pd6Ҁ  bfϥC0+,0HԀM0}`L7Por&U7S߷M;LC@NI# {s}+n;q Tq8„q8F$qP#=wPhqat8vm$g<LaO0Ynq"jqW[ &K&w;* ȷFC`|B K 20?gxv|}@ }xGyt6P%a@ ^S=([;pezUcD\pP ]uaf(&g " lF  6(A1 0gCnP'` k N X}1hWzo`7ϡbYVu=ec98wf A1c0lńGvV aNMV^hNFG0Ā(R40'!Æ|A|xQ0`F{xW ߧv6| V]X~gc΄Kj7pcv(`HhJ)˷8w h:0' C HW"!w0ڂU ClP#D"Ua&mmCd U8!uV0TTn9jq;qH49wЋ| Ґ|+ G" X,gk` 6Fg(3ဏPtF i<8][eQ Qugz_qV,^ q_ N-Q6@ȑ` c|O:d{ `oX C x R0y<si, K>cxuFp Ѣ-pU8iVPbPi9B P8p$TiRo)_)f_adեcBDp8}V "ekPU Zg=H4 j۸o4QCPʤGX̰W-~-ddU^v2+kIMڜ9+m_L;cUãU_p{`cL4Vy6̵9 WKp}0  jƭ=0 z0Hh˾,ۛڌ_  :~ >iq0Z+[7{##. />]= 7Nۓii6x:k; :d =0 0S. Xp.h*{5-$ Z<p1; im Dqcpoebq B`  #L p πG~ uV2~ a0]PR%&~tM< M !a_.rz-K {jf6 ,~38 Y ]t. ^.DQ%#!~]p[ N~o)Q>{ 䠹e#wef~0+g @(0`0`j$XA.N iVP^1೦AUΥT% 0J?|K (L[zFn[Y2Ǘsn޼hPF̓J ΘE܄Lк0 J"D.Zd8T%E6uA=p:P_9]ك.O(u45e鸒2»9򻏥7D*OsN8 2#a ˟QkP`pFzlGdQuxdFk &A5USp`62K$Pb<*Li͚c?F :Y-8##OlP(`]Zs2H"8 1lee ge1jSǙgpxd fZ)P׬xvMQb1e7|nޅ5S7)u:Sk">E=6>rS9'-C2Sd.z i0l-/t3'fA=fC5#e2W+-G-/T3 lLT_f1 aK&Ϻ3; IsOctGT;B^jAa)'Yݥ VY0;h 1zק? $;JQEL_c8 &F3T4fC 1f2EZ5Kmg4=B C9́g4o"1@CP+C:DG;?K N yj.pDZ' c[Vba36C$`,Pi/-a<sU"lfLfakp Nyim!aڸlC]^Y+"a80x2|a=~IkC2y k< sZG(N1 {rAWRQ,^{16 J;/t2KŎa VJ醋V4+-RT23"=fHW#Z0.C/Nh.D@\իB5TP3.7`G5d r4~t.2s~ HA<?4F9.g=rxs _` O ,% nND -n,5 LG 0"ŖxJ,=a``7ax9HazT=I&#CYpIdbs!h gow7pĦt/q"c*0O)ulY5pW HϘ<3r-~"m v^eC/tQzխNb3%/s Ĥ(d3)Cm&ռ#kC}E7Z ~|"E;Oa`3ZŚC?C񓧼{0hֻ =n/"b 0dqGLeZT@uW&U_jLP@q=_ӟ.$"a t&zinFѪ":8#>dEU?q+8- Y88KhT@LpX46;瑶 d2a"Z 䲳?");!z7+3gp{@"TӘЁ(hAq< 1<@sA9ŚJ~c?(dk!["Z"齭yۃ%tH( )>䎚q8ĺ@cү6 =Ci>0Np$))Կ¿:rp( [F ʻ_13 ;f;&"A3{si둒 2? D4sư 5B\F 5g4#92C0iJ@ A332yx3ӞAbpT̬UBJC9dZ)CGu7p]DžtG,"?D`?A!{ dL 5&@5\f(P ќJelȂG0Aˋxtx$;xį0v,*pYG1lq0oѶ4[I6A3쳯5; I5Њ$&p4``RA.`JeJ KJ'?˨!O4Pi.0讂fXBsqEJA;sX댐`w0s4GYEJW:l9[X51hPy ETȏ` {4׹۴'͹] q,?d$/KK.a$ɲ’;+ѻhyN=ʴ."5XԈ)NBN<)0Q1#0115(wb5Pԁ eKIYġ é  e˂8ݫ 5~c@CH(KPFuj!h mpDeS^\ ghK~.ǶDF2E ~DG k '5";~C[ % JITP+/G9G;q Q7DU][:8I\-\^&톶:X#a1x>" 5ٓa붥 >[{!+3*9 h5C#A- !rk8 VE;U,7?N$:J1a#-11(x0UUeTgy6Pi0scxs9yp_^f|`"d5Z0s]~!=c棶9xrjR笎۸R6U\Rf`5q2dہ/R&V1Er@ٿ>n~-[p 38fjx7( P N\0VO v^n /pfo.rprqN%O&l`P5'gRm9qGqnn1?R)d7118gEsf!Dߒ1Q׾5:j='Woxh'`>#SsU_ubu._8_ht'sIJ_;uNVqqHǛ=T{$6[v]`s݁j~m5nR-GwfuxwAcg=0xi7j8p58OIņx .m _渖NDPv5( xî_HgQax_ 5x[awa_qGo-!I% wwi~l0Hp7hrXgO/~~h?'V.hiru&4nR^wOp>0w C._0>Nƅ/Zivo|Ǘ pg]$=P_'(8FOk.FvWN0؃7ru7r(]0%XvVstn08w|k180<=s ep(ji.pX~r0g&xg. 35OK%3f_OXL:uȨq#ǎ? )r$ɒ&OLr%˖-/P׬"6u8s0|ʹ 5C!FS1cFsB nDql,,Ydu3ba Чψ1pLĉ"nZQ#Nx1Ǝ9lAf6謆p+3!цHU08uKI,:`CstnaV*֯cϮ)#ag>DH)  }w¶ 8YXTsnWAZ|xT`,쑟Waicd3Cy7l nQNUOU (6CX+ a &;TkBurn-0.2.3st/ignition100755 764 144 122 6711616737 13713 0ustar stefanusers#! /bin/sh mkdir ~/.tkburn touch ~/.tkburn/setup.info touch ~/.tkburn/image.info