Announce

PukiWiki contents have been moved into SONOTS Plugin (20070703)

04.tklauncher

なんとも簡単に作れたランチャーです

投稿者s1080134
作成日2000/07 (学部1年前期)
最終更新日2004/03
言語Tcl/Tk
Table of Contents

説明

なんとも簡単に作れたGUIなランチャーです。

後記:簡単なくせにおそろしく便利なコストパフォーマンスの高い作品だった。 学内ソフトウェアを発掘し登録することで、かなりの学内人気のあった模様。 今となっては雛形ぐらいの意味しかないですね。

書式

使い方は以下のようになっています。

./tklauncher

ソースコード

#!/usr/local/bin/wish4.2jp

button .baudiotool -text audiotool -command "exec  /usr/openwin/bin/audiotool &"
pack .baudiotool -fill x

button .bkterm -text kterm -command "exec kterm -sb &"
pack .bkterm -fill x
button .bjmnews -text jmnews -command "exec kterm -sb -e /home/student/s1080134/bin/jmnews &"
pack .bjmnews -fill x

button .bxjdic -text xjdic  -command "exec kterm -sb -e xjdic &"
pack .bxjdic -fill x

button .bnetscape -text netscape -command "exec netscape &"
pack .bnetscape -fill x
#button .bnetscape6 -text netscape6 -command "exec /usr/local/bin/ns6 &"
#pack .bnetscape6 -fill x
button .bmozilla -text mozilla -command "exec  /home/student/s1061099/Solaris8/bin/mozilla &"
pack .bmozilla -fill x
button .bfirebird -text firebird -command "exec /home/circle/nowp/usr/SUN5.8/MozillaFirebird/MozillaFirebird &"
pack .bfirebird -fill x
#button .bw3m -text w3m -command "exec kterm -sb -e /usr/local/bin/w3m http://www.google.co.jp/ &" 
#pack .bw3m -fill x

button .bemacs -text emacs -command "exec emacs &"
pack .bemacs -fill x
button .brmail -text rmail -command "exec emacs -e mh-rmail &"
pack .brmail -fill x
button .bsmail -text smail -command "exec emacs -e mh-smail &"
pack .bsmail -fill x
button .bsylpheed -text sylpheed -command "exec /home/circle/gcc/bin//sylpheed &"
pack .bsylpheed -fill x

button .bamsn -text amsn  -command "exec ~s1090152/tcltk/bin/amsn &"
pack .bamsn -fill x

button .bgftp -text gftp -command "exec gftp &"
pack .bgftp -fill x
button .bxlpr -text xlpr  -command "exec xlpr &"
pack .bxlpr -fill x

button .bxrefresh -text xrefresh  -command "exec xrefresh"
pack .bxrefresh -fill x

button .brealplayer -text "realplayer " -command "exec /home/circle/leps/bin/RealPlayer8/realplay &"
pack .brealplayer -fill x
button .bgimp -text gimp -command "exec /home/circle/nowp/usr/bin/gimp &"
pack .bgimp -fill x

button .bstarsuite -text soffice6.1  -command "exec /usr/local/bin/soffice6.1"
pack .bstarsuite -fill x


button .btkexe2 -text tkexe2 -command "exec /home/student/s1070104/bin/tkexe2 &"
pack .btkexe2 -fill x

button .brafflesia -text rafflesia -command "exec /usr/local/bin/wish4.2jp /home/student/s1090070/pub/raff/rafflesia &"
pack .brafflesia -fill x
button .bgtkmate -text gtkmate -command "exec /home/circle/gcc/bin/gtkmate &"
pack .bgtkmate -fill x

button .bknetmaj1 -text knetmaj1 -command "exec /home/student/s1080134/usr/Solaris/bin/knetmaj1 -H &"
pack .bknetmaj1 -fill x
button .bshogi -text Shogi -command "exec /home/student/s1080134/bin/Shogi &"
pack .bshogi -fill x
button .bothello -text Othello -command "exec /home/student/s1080134/bin/Othello &"
pack .bothello -fill x
button .bchess -text Chess -command "exec /home/student/s1080134/bin/Chess &"
pack .bchess -fill x
button .bpush -text Push -command "exec /home/student/s1080134/bin/push &"
pack .bpush -fill x

button .bxkill -text xkill  -command "exec xkill &"
pack .bxkill -fill x
button .bxlock -text xlock  -command "exec xlock -mode random >& /dev/null"
pack .bxlock -fill x
button .bxnolock -text xnolock  -command "exec xlock -nolock -mode random >& /dev/null"
pack .bxnolock -fill x

#button .b -text  -command "exec "
#pack .b -fill x