From 9afaffbcbb8ffde571f88ec05b505ed6c4ce42c5 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 9 Feb 2004 22:15:22 +0000 Subject: (appli_choice) fix crash on option toggling (#7248) --- perl-install/standalone/drakfont | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'perl-install/standalone/drakfont') diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont index b07afae31..0ff87a439 100755 --- a/perl-install/standalone/drakfont +++ b/perl-install/standalone/drakfont @@ -558,13 +558,13 @@ sub appli_choice() { 0, $label, 1, Gtk2::HBox->new, # BUG: that code never had supported canceling - 0, gtksignal_connect(gtkset_active(Gtk2::CheckButton->new, $ref), toggled => sub { $$ref = $$ref ? 0 : 1 }), + 0, gtksignal_connect(gtkset_active(Gtk2::CheckButton->new, $$ref), toggled => sub { $$ref = $$ref ? 0 : 1 }), ), ); - } ([ N("Ghostscript"), $gs ], - [ N("StarOffice"), $so ], - [ N("Abiword"), $abi ], - [ N("Generic Printers"), $printer ], + } ([ N("Ghostscript"), \$gs ], + [ N("StarOffice"), \$so ], + [ N("Abiword"), \$abi ], + [ N("Generic Printers"), \$printer ], ), ), ], -- cgit v1.2.1