{"id":23,"date":"2007-03-03T16:52:03","date_gmt":"2007-03-03T14:52:03","guid":{"rendered":"http:\/\/www.kosmala.pl\/?p=23"},"modified":"2008-03-08T16:58:54","modified_gmt":"2008-03-08T14:58:54","slug":"tapetka","status":"publish","type":"post","link":"http:\/\/www.kosmala.pl\/?p=23","title":{"rendered":"tapeTKa"},"content":{"rendered":"

TapeTKa to mikro-ustawiacz pulpitowych tapet, napisany w j\u0119zyku Tcl\/Tk. Pracowa\u0142em kiedy\u015b na starym komputerze, na kt\u00f3rym przy SlackWare 8.0 jedynie BlackBox pozwala\u0142 uzyskiwa\u0107 namiastk\u0119 pr\u0119dko\u015bci i mierzi\u0142o mnie tasowanie tapetami pulpitu przy pomocy standardowego w Slacku graficznego programiku XV. Pokombinowa\u0142em i chwil\u0119 potem mia\u0142em ju\u017c Tisiel\/Tikejow\u0105 nak\u0142adk\u0119 na XV. <\/p>\n

Uruchomiony program wy\u015bwietla nam list\u0119 plik\u00f3w upchanych w katalogu z tapetami, do kt\u00f3rego \u015bcie\u017ck\u0119 dost\u0119pu musimy poda\u0107 w kodzie skryptu. Podw\u00f3jne klikni\u0119cie na pozycji z listy wy\u015bwietli nam miniaturk\u0119 obrazka. Pojedyncze klikni\u0119cie tylko pod\u015bwietla pozycj\u0119, a klikni\u0119cie na przycisku 'Ustaw jako tapete’… domy\u015bl si\u0119 co robi \ud83d\ude09<\/p>\n

Od strony kuchni ustawienie tapety polega na utworzeniu w katalogu domowym symbolicznego \u0142\u0105cza o nazwie ’.bbtapeta’ do pliku wybranej grafiki. No tak. Ale samo utworzenie ’.bbtapeta’ jeszcze nie za\u0142atwia nam sprawy wy\u015bwietlania wybranej tapety przy ka\u017cdym uruchomieniu X11. Dlatego trzeba na sta\u0142e wpisa\u0107 w swoim plik ’.xinitrc’ komend\u0119 wy\u015bwietlaj\u0105c\u0105 plik tapety np. 'xv -q -root \/home\/M\u00d3J_KATALOG\/.bbtapeta’<\/p>\n

By uruchomi\u0107 programik nale\u017cy skopiowa\u0107 poni\u017cszy kod do pojedynczego pliku i nada\u0107 mu status wykonywalnego. W tre\u015bci kodu nale\u017cy zmieni\u0107 \u015bcie\u017ck\u0119 dost\u0119pu do katalogu z tapetami i \u015bcie\u017ck\u0119 do swojego katalogu domowego (w poni\u017cszym kodzie jest m\u00f3j uwczesny katalog domowy czyli '\/home\/mk23z’ – to trzeba podmieni\u0107 na w\u0142asny folder). Acha – przed pierwszym uruchomieniem trzeba jeszcze utworzy\u0107 pusty plik o nazwie ’.bbtapeta’, mo\u017cna to zrobi\u0107 np. komend\u0105 'touch ~\/.bbtapeta’.<\/p>\n

\"tapeTKa\"<\/p>\n

#!\/usr\/bin\/wish
\n#<\/font><\/p>\n

# \u015acie\u017cka do katalogu z tapetami
\nset path „\/home\/mk23z\/pic\/tapety”<\/font><\/p>\n

#####################################################
\n#
\n# tapeTKa – menad\u017cer tapet dla X11 (skrypt tcl\/tk)
\n#
\n# —————————————
\n# ROGRAM CA\u0141KOWICIE FREEWARE \ud83d\ude09
\n# —————————————
\n#
\n# Autor: Miros\u0142aw Kosmala
\n# Napisany dnia 03.03.2003r. godz.22:15
\n#
\n#####################################################<\/font><\/p>\n

# Czcionka robocza
\nfont create font1 -family Helvetica -size 12<\/font><\/p>\n

# Kolorystyka
\ntk_setPalette #d8d8f6<\/font><\/p>\n

# ————————————————-
\nwm title . „tapeTKa ver 1.0”<\/font><\/p>\n

frame .f
\nscrollbar .f.scroll -command „.f.list yview”
\nlistbox .f.list -yscroll „.f.scroll set” -setgrid 1 -height 24 -font font1<\/font><\/p>\n

pack .f -fill both -expand yes
\npack .f.scroll -side right -fill y
\npack .f.list -side left -fill both -expand yes<\/font><\/p>\n

frame .f2
\nbutton .f2.ok -text ” Ustaw jako tapet\u0119 ” -font font1 \\
\n-command {
\nexec \/usr\/X11\/bin\/xv -q -root $path\/[selection get]
\nexec rm -r \/home\/mk23z\/.bbtapeta
\nexec ln -s $path\/[selection get] \/home\/mk23z\/.bbtapeta
\n}
\nbutton .f2.no -text ” Zamknij ” -font font1 \\
\n-command {exit 0}
\npack .f2 -expand no -fill x
\npack .f2.no -side right -expand no -fill x
\npack .f2.ok -side right -expand no -fill x<\/font><\/p>\n

set list [exec ls $path]<\/font><\/p>\n

foreach in $list {
\n.f.list insert 0 $in
\n}<\/font><\/p>\n

bind .f.list {
\nexec \/usr\/X11\/bin\/xv $path\/[selection get] -geometry 200×140
\n}<\/font><\/p>\n

 <\/p>\n

<\/p>\n","protected":false},"excerpt":{"rendered":"

TapeTKa to mikro-ustawiacz pulpitowych tapet, napisany w j\u0119zyku Tcl\/Tk. Pracowa\u0142em kiedy\u015b na starym komputerze, na kt\u00f3rym przy SlackWare 8.0 jedynie BlackBox pozwala\u0142 uzyskiwa\u0107 namiastk\u0119 pr\u0119dko\u015bci i mierzi\u0142o mnie tasowanie tapetami pulpitu przy pomocy standardowego w Slacku graficznego programiku XV. Pokombinowa\u0142em i chwil\u0119 potem mia\u0142em ju\u017c Tisiel\/Tikejow\u0105 nak\u0142adk\u0119 na XV.<\/p>\n","protected":false},"author":3,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[14,13],"tags":[],"class_list":["post-23","post","type-post","status-publish","format-standard","hentry","category-programy","category-tcltk"],"_links":{"self":[{"href":"http:\/\/www.kosmala.pl\/index.php?rest_route=\/wp\/v2\/posts\/23","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/www.kosmala.pl\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.kosmala.pl\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.kosmala.pl\/index.php?rest_route=\/wp\/v2\/users\/3"}],"replies":[{"embeddable":true,"href":"http:\/\/www.kosmala.pl\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=23"}],"version-history":[{"count":0,"href":"http:\/\/www.kosmala.pl\/index.php?rest_route=\/wp\/v2\/posts\/23\/revisions"}],"wp:attachment":[{"href":"http:\/\/www.kosmala.pl\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=23"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.kosmala.pl\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=23"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.kosmala.pl\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=23"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}