对Prima中Input Lines Widget疑问

lokchungk

请问怎样能获取在InputLine的内容?
Google和CPAN找了整天也找不到T.T

use Prima; use Prima::Classes; use Prima::InputLine; package Form1Window; use vars qw(@ISA); @ISA = qw(Prima::MainWindow); sub profile_default {     my $def = $_[ 0]-> SUPER::profile_default;     my %prf = (         sizeDontCare => 0,         origin => [ 490, 403],         name => 'Form1',         originDontCare => 0,         size => [ 528, 109],         designScale => [ 6, 13],     );     @$def{keys %prf} = values %prf;     return $def; } sub init {     my $self = shift;     my %instances = map {$_ => {}} qw();     my %profile = $self-> SUPER::init(@_);     my %names   = ( q(Form1) => $self);     $self-> lock;     $names{InputLine1} = $names{Form1}-> insert( qq(Prima::InputLine) =>         origin => [ 4, 4],         name => 'InputLine1',         size => [ 520, 97],     );     $self-> unlock;     return %profile; } package Form1Auto; use Prima::Application; Form1Window-> create; run Prima;

简单来说
就是把InputLine内使用者输入的
存入某变数内

[ 本帖最后由 lokchungk 于 2008-6-11 22:55 编辑 ]

lokchungk

在http://cpan.uwinnipeg.ca/htdocs/Prima/Prima/InputLine.html中提及
======================================
The input line text data is contained in text property.
======================================

好像和我的问题有关.
在没有高手能指点一下我?

lokchungk

难道没有人用Prima

lokchungk

呼
看了数个example,
和作者DK通了话,
还找不到解决方法...

再看了无数次CPAN上的Prima文件,
终于领悟到方法
=================================
onChange => sub{$variable = $_[0]-> text;},
=================================