From 1d3ac921d66022bb6e19a96dce95472cc31f0987 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 9 Sep 1999 09:02:47 +0000
Subject: no_comment

---
 perl-install/my_gtk.pm | 44 ++++++++++++++++++++++----------------------
 1 file changed, 22 insertions(+), 22 deletions(-)

(limited to 'perl-install/my_gtk.pm')

diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index 7ebbd0fda..33f753638 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -17,14 +17,14 @@ use Gtk;
 use c;
 use common qw(:common :functional);
 
-my $forgetTime = 1000; # in milli-seconds
+my $forgetTime = 1000; #- in milli-seconds
 $border = 5;
 
 1;
 
-################################################################################
-# OO stuff
-################################################################################
+#-###############################################################################
+#- OO stuff
+#-###############################################################################
 sub new {
     my ($type, $title, %opts) = @_;
 
@@ -169,11 +169,11 @@ sub gtkset_default_fontset($) {
 }
 
 
-################################################################################
-# createXXX functions
+#-###############################################################################
+#- createXXX functions
 
-# these functions return a widget
-################################################################################
+#- these functions return a widget
+#-###############################################################################
 
 sub create_okcancel($;$$) {
     my ($w, $ok, $cancel) = @_;
@@ -316,11 +316,11 @@ sub _create_window($$) {
 
 
 
-################################################################################
-# ask_XXX
+#-###############################################################################
+#- ask_XXX
 
-# just give a title and some args, and it will return the value given by the user
-################################################################################
+#- just give a title and some args, and it will return the value given by the user
+#-###############################################################################
 
 sub ask_warn       { my $w = my_gtk->new(shift @_); $w->_ask_warn(@_); main($w); }
 sub ask_yesorno    { my $w = my_gtk->new(shift @_); $w->_ask_okcancel(@_, _("Yes"), _("No")); main($w); }
@@ -394,7 +394,7 @@ sub _ask_from_list($$$$) {
 	   gtkpack($o->create_box_with_title(@$messages), 
 		   @$l > 15 ? gtkset_usize(createScrolledWindow($list), 200, 280) : $list));
 
-    $o->sync; # otherwise the moveto is not done
+    $o->sync; #- otherwise the moveto is not done
     map_index {
 	$list->append($_);
 	&$select($::i) if $def && $_ eq $def; 
@@ -434,16 +434,16 @@ sub _ask_file($$) {
     $f->hide_fileop_buttons;
 }
 
-################################################################################
-# rubbish
-################################################################################
+#-###############################################################################
+#- rubbish
+#-###############################################################################
 
-#sub label_align($$) {
-#    my $w = shift;
-#    local $_ = shift;
-#    $w->set_alignment(!/W/i, !/N/i);
-#    $w
-#}
+#-sub label_align($$) {
+#-    my $w = shift;
+#-    local $_ = shift;
+#-    $w->set_alignment(!/W/i, !/N/i);
+#-    $w
+#-}
 
 #-sub _ask_from_list($$$$) {
 #-    my ($o, $messages, $l, $def) = @_;
-- 
cgit v1.2.1