tvkaista-0.961/Makefile tvkaista-0.962/Makefile
55
6all: tvkaista_gtkui6all: tvkaista_gtkui
77
8tvkaista_gtkui: tvkaista_gtkui.c8tvkaista_gtkui: tvkaista_gtkui.c tvkaista.desktop
9 perl -c tvkaista-helper.pl
10 sh tvkaista_gtkui.c9 sh tvkaista_gtkui.c
1110
12logo.png: logo.pov11logo.png: logo.pov
14 @echo tvkaista.png is clipped and scaled from this with GIMP13 @echo tvkaista.png is clipped and scaled from this with GIMP
1514
16install: tvkaista_gtkui15install: tvkaista_gtkui
16 sh -n tvkaista.sh && perl -c tvkaista-helper.pl
17 test -d "$$HOME"/.tvkaista || mkdir "$$HOME/".tvkaista17 test -d "$$HOME"/.tvkaista || mkdir "$$HOME/".tvkaista
18 test -d "$$HOME"/.tvkaista/2 || mkdir "$$HOME/".tvkaista/2
18 cp tvkaista.sh "$$HOME"/.tvkaista19 cp tvkaista.sh "$$HOME"/.tvkaista
19 cp tvkaista_gtkui "$$HOME"/.tvkaista20 cp tvkaista_gtkui "$$HOME"/.tvkaista
20 cp tvkaista-helper.pl "$$HOME"/.tvkaista21 cp tvkaista-helper.pl "$$HOME"/.tvkaista
32 || ln -sf ../.tvkaista/tvkaista.desktop "$$HOME"/Työpöytä33 || ln -sf ../.tvkaista/tvkaista.desktop "$$HOME"/Työpöytä
33 test -d "$$HOME"/.menu || mkdir "$$HOME"/.menu34 test -d "$$HOME"/.menu || mkdir "$$HOME"/.menu
34 ln -sf ../.tvkaista/tvkaista.menu "$$HOME"/.menu/tvkaista35 ln -sf ../.tvkaista/tvkaista.menu "$$HOME"/.menu/tvkaista
36 case `env which update-menus >/dev/null 2>&1` in /*) update-menus;;esac
3537
36gitlog: $(VERSION_CONTROLLED)38gitlog: $(VERSION_CONTROLLED)
37 git log --name-status > $@39 git log --name-status > $@

tvkaista-0.961/gitlog tvkaista-0.962/gitlog
1commit d25ab2b5cd40b78c71111fce700ad6e22f45e9f9
2Author: Tomi Ollila <too@iki.fi>
3Date: Tue Apr 28 22:18:04 2009 +0300
4
5 säätöjä 0.962:ksi
6
7M Makefile
8M tvkaista-helper.pl
9M tvkaista.desktop
10M tvkaista.menu
11M tvkaista_gtkui.c
12
13commit 02c7831853644f552b8fb3d16f948b35ca9d7f32
14Author: Tomi Ollila <too@iki.fi>
15Date: Tue Apr 28 21:26:55 2009 +0300
16
17 tvkaista gtkwindow icon (oneline change in .c code)
18
19M tvkaista_gtkui.c
20
1commit f1dc003e7f99226541007a7824307a54fca9b53d21commit f1dc003e7f99226541007a7824307a54fca9b53d
2Author: Tomi Ollila <too@iki.fi>22Author: Tomi Ollila <too@iki.fi>
3Date: Tue Apr 28 21:00:38 2009 +030023Date: Tue Apr 28 21:00:38 2009 +0300

tvkaista-0.961/tvkaista-helper.pl tvkaista-0.962/tvkaista-helper.pl
4# Author: Tomi Ollila -- too ät iki piste fi4# Author: Tomi Ollila -- too ät iki piste fi
5#5#
6# Created: Sat Feb 07 21:29:53 EET 2009 too6# Created: Sat Feb 07 21:29:53 EET 2009 too
7# Last modified: Tue 28 Apr 2009 20:40:41 EEST too7# Last modified: Tue 28 Apr 2009 21:55:13 EEST too
88
9#PERL_UNICODE=SD perl tvkaista-helper.pl 1 update9#PERL_UNICODE=SD perl tvkaista-helper.pl 1 update
10#or perl -CSD perl tvkaista-helper.pl 1 list10#or perl -CSD perl tvkaista-helper.pl 1 list
2121
22die "Unicode settings not OK\n" unless (${^UNICODE} & 0x1f) == 0x1f;22die "Unicode settings not OK\n" unless (${^UNICODE} & 0x1f) == 0x1f;
2323
24my $home = $ENV{'HOME'};24die "Cache directory missing. probably incomplete installation\n"
25 unless -d 2;
2526
26sub usage()27sub usage()
27{28{
41 die "'$recdir': not a directory.\n" unless -d $recdir;42 die "'$recdir': not a directory.\n" unless -d $recdir;
42}43}
43else { mkdir $recdir or die "Can not create '$recdir': $!\n"; }44else { mkdir $recdir or die "Can not create '$recdir': $!\n"; }
44
45mkdir 2, 0755;
4645
47my ($date, $time);46my ($date, $time);
48sub getdatetime()47sub getdatetime()

tvkaista-0.961/tvkaista.desktop tvkaista-0.962/tvkaista.desktop
1[Desktop Entry]1[Desktop Entry]
2Encoding=UTF-82Encoding=UTF-8
3Version=0.9613Version=0.962
4Name=tvkaista4Name=tv kaista
5Comment=gui-kilentti tvkaistalle5Comment=gui-kilentti tvkaistalle
6GenericName=tvkaista-kilentti6GenericName=tvkaista-kilentti
7Exec=$dest/tvkaista_gtkui7Exec=$dest/tvkaista.sh gui
8Icon=$dest/tvkaista.png8Icon=$dest/tvkaista.png
9Terminal=false9Terminal=false
10Type=Application10Type=Application

tvkaista-0.961/tvkaista_gtkui.c tvkaista-0.962/tvkaista_gtkui.c
4WARN="-Wall -Wno-long-long -Wstrict-prototypes -pedantic"4WARN="-Wall -Wno-long-long -Wstrict-prototypes -pedantic"
5WARN="$WARN -Wcast-align -Wpointer-arith " # -Wfloat-equal #-Werror5WARN="$WARN -Wcast-align -Wpointer-arith " # -Wfloat-equal #-Werror
6WARN="$WARN -W -Wwrite-strings -Wcast-qual -Wshadow" # -Wconversion6WARN="$WARN -W -Wwrite-strings -Wcast-qual -Wshadow" # -Wconversion
7X=`pkg-config --cflags --libs gtk+-2.0`7FLAGS=`pkg-config --cflags --libs gtk+-2.0`
8ver=`sed -n 's/Version=//p' tvkaista.desktop`
9OPTS="$WARN $FLAGS -DVERSION=$ver"
8case $1 in '') set x -O2 ### set x -ggdb;10case $1 in '') set x -O2 ### set x -ggdb
9 shift ;; esac;11 shift ;; esac;
10set -x; ${CC:-gcc} -std=gnu99 $WARN "$@" -o "$TRG" "$0" -DCDATE="\"`date`\"" $X12set -x; ${CC:-gcc} -std=gnu99 $OPTS "$@" -o "$TRG" "$0" -DCDATE="\"`date`\""
11exit $?13exit $?
1214
13 */15 */
720 d0(("noppeus %s\n", speeds[speed]));722 d0(("noppeus %s\n", speeds[speed]));
721723
722 if (G.previndx < 0) {724 if (G.previndx < 0) {
723 ModalMessageDialog("Tv-ohjelmaa ei valittu");725 ModalMessageDialog("TV-ohjelmaa ei valittu");
724 return;726 return;
725 }727 }
726728
737 gint indx = gtk_combo_box_get_active(GTK_COMBO_BOX(W.pcb));739 gint indx = gtk_combo_box_get_active(GTK_COMBO_BOX(W.pcb));
738740
739 if (indx < 0) {741 if (indx < 0) {
740 ModalMessageDialog("Esitysohjelmaa ei valittu");742 ModalMessageDialog("Katsottavaa ohjelmaa ei valittu");
741 return;743 return;
742 }744 }
743745
774 return false;776 return false;
775}777}
776778
779#define __S(x) __STRING(x)
780
777void gui(void)781void gui(void)
778{782{
779 GtkWidget * e;783 GtkWidget * e;
780784
781 W.w = aWindow("TVKaista",785 W.w = aWindow("tv kaista " __S(VERSION),
782 (gboolean(*)(void *,void *,void *))gtk_main_quit, null,786 (gboolean(*)(void *,void *,void *))gtk_main_quit, null,
783 2, true, true,787 2, true, true,
784 aVBox(/* <- homogeneous spacing */ false, 2,788 aVBox(/* <- homogeneous spacing */ false, 2,
810814
811 //g_signal_connect(e, "insert-at-cursor", entry_changed, null);815 //g_signal_connect(e, "insert-at-cursor", entry_changed, null);
812816
817 gtk_window_set_icon_from_file(W.w, "tvkaista.png", null);
818
813#if 0819#if 0
814 window = gtk_window_new(GTK_WINDOW_TOPLEVEL);820 window = gtk_window_new(GTK_WINDOW_TOPLEVEL);
815821
827#endif833#endif
828// gtk_widget_show_all(W.w);834// gtk_widget_show_all(W.w);
829}835}
830
831836
832837
833int main(int argc, char *argv[])838int main(int argc, char *argv[])