リストボックス・スクロールバー

■ リストボックスウィジェット

リストボックスウィジェットは，テキストラベルを縦に並べて欄を作るものです．マウスによる選択操作も可能になります．

書式：　$child = $parent->Listbox(?options?)

主なオプション

メソッド：

• $listbox->get(first, ?last?) ・・・インデックスfirstからlastまでの項目の内容をリストで返す．
• $listbox->insert(index, item1, item2,...) ・・・index番目の位置に文字列item1,... を挿入する．insert(0, "はじめ")やinsert('end', "追加")のように使います．
• $listbox->delete(first, last) ・・・firstからlastまでを削除する．last省略時はfirstの項目のみ．
• $listbox->activate(index) ・・・ indexの項目を選択状態にする．
• $listbox->curselection ・・・選択されている全項目のインデックスを返す．

補足：

• -selectionmode はデフォルトでは単一選択，マウスドラッグ可であるbrowseになる．単一選択(single)，複数選択(multiple)，拡張(extended，シフトやctrlで複数選択可）．
• 選択された複数の文字列を返したいときは，foreach $i ($lis->curselection) { ... $listbox->get($i) ... }などとする．

サンプル：　カレントディレクトリのファイルのリストボックスを作ります．

#!/usr/bin/perl -w 

use Tk;

$mw = MainWindow->new;

$lis = $mw->Listbox(-background=> 'white',
                    -selectforeground=> 'brown',
                    -selectbackground=> 'cyan',
                    -selectmode=> 'extended')
  ->pack(-fill=>'both',
         -expand => 'yes');

foreach $fn (<*>) {
  $lis->insert('end',$fn);
}

$mw->Button(-text=>"表示",
            -command=> \&Print_selection)
  ->pack(-fill=>'x');

MainLoop;

sub Print_selection {

  my @ind = $lis->curselection;
  foreach $i (@ind) {
    printf "%s　が選択されています.", $lis->get($i);
  }

}
#---
# listbox.pl

■ スクロールドウィジェット

スクロールバーは表示範囲の限られた場所に，多くの情報を表示させるときに必須のものです．Scrollbarというスクロールバーだけを作る専用のウィジェットがありますが，ここでは，スクロールバーとそれとバインドするウィジェットとを，一気に定義できるScrolled というものを紹介します．

書式：　$child = $parent->Scrolled(Whatever, -scrollbars=> where, ?options?)

• Whateverはスクロールバーをつけるウィジェットの名前（例：'Listbox', 'Text', 'Entry'）．optionsはWhateverのオプション

主なオプション

サンプル：　先ほどのサンプルにスクロールバーをつけてみましょう．

#!/usr/bin/perl -w 

use Tk;

$mw = MainWindow->new;

$lis = $mw->Scrolled('Listbox',
                    -scrollbars=> 'osoe',
                    -height => 4,
                    -background=> 'white',
                    -selectforeground=> 'brown',
                    -selectbackground=> 'cyan',
                    -selectmode=> 'extended')
  ->pack(-fill=>'both',
         -expand => 'yes');

foreach $fn (<*>) {
  $lis->insert('end',$fn);
}

$mw->Button(-text=>"表示",
            -command=> \&Print_selection)
  ->pack(-fill=>'x');

MainLoop;

sub Print_selection {

  my @ind = $lis->curselection;
  foreach $i (@ind) {
    printf "%s　が選択されています.", $lis->get($i);
  }

}
#---
# listbox_scr.pl