12 |
use interactive; |
use interactive; |
13 |
|
|
14 |
use Libconf::Glueconf::Samba; |
use Libconf::Glueconf::Samba; |
15 |
|
use Libconf::GUI::Gtk2 qw(:generators); |
16 |
|
|
17 |
#use POSIX qw(mktime ceil); |
#use POSIX qw(mktime ceil); |
18 |
#use USER; |
#use USER; |
119 |
'fill', |
'fill', |
120 |
['shrink', 'shrink'], |
['shrink', 'shrink'], |
121 |
0, 0); |
0, 0); |
122 |
$table->attach(gtkentry(), 2, 3, $count, $count + 1, |
$table->attach(getBestWidget($samba, $_), 2, 3, $count, $count + 1, |
123 |
['fill', 'expand'], |
['fill', 'expand'], |
124 |
['shrink', 'shrink'], |
['shrink', 'shrink'], |
125 |
0, 0); |
0, 0); |
138 |
'Tuning Options', |
'Tuning Options', |
139 |
'Browse Options', |
'Browse Options', |
140 |
'WINS Options') |
'WINS Options') |
141 |
) |
), undef, 'none' |
142 |
), undef, 'none' |
) |
143 |
); |
); |
144 |
|
|
145 |
foreach ([$globals, N('GLOBALS')], |
foreach ([$globals, N('GLOBALS')], |