TapeTKa to mikro-ustawiacz pulpitowych tapet, napisany w języku Tcl/Tk. Pracowałem kiedyś na starym komputerze, na którym przy SlackWare 8.0 jedynie BlackBox pozwalał uzyskiwać namiastkę prędkości i mierziło mnie tasowanie tapetami pulpitu przy pomocy standardowego w Slacku graficznego programiku XV. Pokombinowałem i chwilę potem miałem już Tisiel/Tikejową nakładkę na XV.

Uruchomiony program wyświetla nam listę plików upchanych w katalogu z tapetami, do którego ścieżkę dostępu musimy podać w kodzie skryptu. Podwójne kliknięcie na pozycji z listy wyświetli nam miniaturkę obrazka. Pojedyncze kliknięcie tylko podświetla pozycję, a kliknięcie na przycisku ‚Ustaw jako tapete’… domyśl się co robi 😉

Od strony kuchni ustawienie tapety polega na utworzeniu w katalogu domowym symbolicznego łącza o nazwie ‚.bbtapeta’ do pliku wybranej grafiki. No tak. Ale samo utworzenie ‚.bbtapeta’ jeszcze nie załatwia nam sprawy wyświetlania wybranej tapety przy każdym uruchomieniu X11. Dlatego trzeba na stałe wpisać w swoim plik ‚.xinitrc’ komendę wyświetlającą plik tapety np. ‚xv -q -root /home/MÓJ_KATALOG/.bbtapeta’

By uruchomić programik należy skopiować poniższy kod do pojedynczego pliku i nadać mu status wykonywalnego. W treści kodu należy zmienić ścieżkę dostępu do katalogu z tapetami i ścieżkę do swojego katalogu domowego (w poniższym kodzie jest mój uwczesny katalog domowy czyli ‚/home/mk23z’ – to trzeba podmienić na własny folder). Acha – przed pierwszym uruchomieniem trzeba jeszcze utworzyć pusty plik o nazwie ‚.bbtapeta’, można to zrobić np. komendą ‚touch ~/.bbtapeta’.

#!/usr/bin/wish
#

# Ścieżka do katalogu z tapetami
set path „/home/mk23z/pic/tapety”

#####################################################
#
# tapeTKa – menadżer tapet dla X11 (skrypt tcl/tk)
#
# —————————————
# ROGRAM CAŁKOWICIE FREEWARE 😉
# —————————————
#
# Autor: Mirosław Kosmala
# Napisany dnia 03.03.2003r. godz.22:15
#
#####################################################

# Czcionka robocza
font create font1 -family Helvetica -size 12

# Kolorystyka
tk_setPalette #d8d8f6

# ————————————————-
wm title . „tapeTKa ver 1.0”

frame .f
scrollbar .f.scroll -command „.f.list yview”
listbox .f.list -yscroll „.f.scroll set” -setgrid 1 -height 24 -font font1

pack .f -fill both -expand yes
pack .f.scroll -side right -fill y
pack .f.list -side left -fill both -expand yes

frame .f2
button .f2.ok -text ” Ustaw jako tapetę ” -font font1 \
-command {
exec /usr/X11/bin/xv -q -root $path/[selection get]
exec rm -r /home/mk23z/.bbtapeta
exec ln -s $path/[selection get] /home/mk23z/.bbtapeta
}
button .f2.no -text ” Zamknij ” -font font1 \
-command {exit 0}
pack .f2 -expand no -fill x
pack .f2.no -side right -expand no -fill x
pack .f2.ok -side right -expand no -fill x

set list [exec ls $path]

foreach in $list {
.f.list insert 0 $in
}

bind .f.list {
exec /usr/X11/bin/xv $path/[selection get] -geometry 200×140
}