diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-02-09 22:15:22 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-02-09 22:15:22 +0000 |
| commit | 9afaffbcbb8ffde571f88ec05b505ed6c4ce42c5 (patch) | |
| tree | 03a0b7276841ffbe585c42048f1f42284ea94fd9 /perl-install | |
| parent | 89254809aba33875dd3a434356fa4185247507ad (diff) | |
| download | drakx-9afaffbcbb8ffde571f88ec05b505ed6c4ce42c5.tar drakx-9afaffbcbb8ffde571f88ec05b505ed6c4ce42c5.tar.gz drakx-9afaffbcbb8ffde571f88ec05b505ed6c4ce42c5.tar.bz2 drakx-9afaffbcbb8ffde571f88ec05b505ed6c4ce42c5.tar.xz drakx-9afaffbcbb8ffde571f88ec05b505ed6c4ce42c5.zip | |
(appli_choice) fix crash on option toggling (#7248)
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakfont | 10 |
1 files changed, 5 insertions, 5 deletions
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 ], ), ), ], |