[Comm] siemens m55

[Pavel Tsybulin]

On Wed, Oct 29, 2003 at 09:38:03AM +0300, Shrek wrote:
> |так что теперь русский и пихается, и выпихивается. Уря :-)
> |
> эээ... как все это поиметь?

Все просто :-)
Новая scmxx забирается с
http://sourceforge.net/project/showfiles.php?group_id=88510
Я брал исходники.tar.gz

gscmxx берем с
http://sourceforge.net/project/showfiles.php?group_id=59584

пробуем. если в книжках кракозябры, то пробуем патчик из аттача.

Паша

----------- следующая часть -----------
--- gscmxx.old	2003-10-29 23:16:23 +0300
+++ gscmxx.new	2003-10-29 23:14:44 +0300
@@ -1578,6 +1578,7 @@
 			my $row = $clist->append($group, $phonebook{$slot}->{NAME} || "", $phonebook{$slot}->{NUMBER} || "");
 			&set_row_group_icon($clist, $i, $group);
 			$clist->set_row_data ($row, \$slot);
+     $clist->set_row_style($row, $styles{default}) ;
 			$i++;
 		}
 		$clist->set_compare_func( \&list_compare_function );
@@ -5271,6 +5272,7 @@
 sub setstyles {
 	# layout specific parameters
 	$fontnames{header} = "-*-helvetica-bold-r-normal-*-*-140-*-*-p-*-*-*";
+	$fontnames{default} = "-*-helvetica-*-r-normal-*-*-100-*-*-p-*-koi8-r";
 
 	$colordefinitions{background} = [65000, 65000, 65000];
 	$colordefinitions{header} = [0, 0, 0];
@@ -5282,6 +5284,7 @@
 	# fonts
 	# "-misc-fixed-bold-r-normal-*-*-140-*-*-c-*-iso8859-19";
 	foreach (keys %fontnames) {
+   print "trying Font $fontnames{$_}\n" if $DEBUG;
 		if (my $font =  Gtk::Gdk::Font->load( $fontnames{$_} ) ) {
 			$fonts{$_} = $font;
 		} else {
@@ -5315,6 +5318,7 @@
 		$styles{default}->light($_, $colors{background});
 		$styles{default}->mid($_, $colors{background});
 		$styles{default}->dark($_, $colors{background});
+		$styles{default}->font($fonts{default});
 	};
 
 	# style of alternate rows