Archive for 3月, 2009
2009/3/27
タブの実体を調べる
タブの実体と、TabNavigatorを調べるためにそのソースを調べていくことにします。
ソースはflexをインストールした場所で
framework/src/mx/containers/TabNavigator.as
のような感じであるので、見てみてください。
画面の構成を調べるには・・・
画面の構成を調べるのにたいていは createChildren() という関数内を調べていきます。
if (!tabBar)
{
tabBar = new TabBar();
tabBar.name = "tabBar";
のような記述があります。
この関数内は非常に短いのでわかりやすいと思います。
つまり、TabNavigatorのタブの場所だということがわかります。
TabBarは単独でも使用できるので、そちらの詳細が知りたい方は、Flexのドキュメントで調べることができると思います。
さて、タブを拡張するには、TabBarの中身を見なければわからないということで、この中身を見ていきましょう。
同様に、TabBar.as 内の createChildren() を探していくと・・・ ない。。。。。
んー、では、親クラスを見ていかなければ・・・ということで、このクラスの関係を改めて見てみると・・・
TabBar → ToggleButtonBar → ButtonBar → NavBar → Box → Container → UIComponent
さすがにUIComponent以降は、Flexではあまり関係がないので、ここまでで記述はしません。
さて、最初にcreateChildren()がある場所を探していくと・・・・
ありました！
NavBarクラスになってありました。
override protected function createChildren():void
{
super.createChildren();
if (dataProviderChanged)
{
createNavChildren();
dataProviderChanged = false;
}
}
でも、結局中身は createNavChildren() だとわかりました。
このメソッドをしらべると、privateメソッドのようです。
中身を調べていくと・・・・・
ありました。何やら怪しい記述が
navItem = Button(createNavItem(label, icon));
おー、タブって、結局ボタン関連か・・・ということがわかってきましたね。
でも、中身は何やら craeteNavItem というメソッドで作成しているらしい。
このcreateNavItemはTabBarの中でどうなっているか調べる必要がありそうです。
override protected function createNavItem(
label:String,
icon:Class = null):IFlexDisplayObject
{
var navItem:IFlexDisplayObject = super.createNavItem(label, icon);
DisplayObject(navItem).addEventListener(
MouseEvent.MOUSE_DOWN, tab_mouseDownHandler);
DisplayObject(navItem).addEventListener(
MouseEvent.DOUBLE_CLICK, tab_doubleClickHandler);
return navItem;
}
うん。大したことをやっているわけではなさそうだな。
これを書き換えれば、タブの部分を変更できそうだという感触がついてきました。
でも肝心のButtonのインスタンスを作成しているところが見つかりません。
これは、createNavItemをまた、親クラスをたどってみつけていくしかありませんね。
で、ButtonBarに見つかりました。
override protected function createNavItem(
label:String,
icon:Class = null):IFlexDisplayObject
{
var newButton:Button = Button(navItemFactory.newInstance());
// Set tabEnabled to false so individual buttons don't get focus.
んー、どうやら、navItemFactoryというClassオブジェクトから作成しているようです。
お、これは拡張できそうですね。
TabBar に戻ってみると、
public function TabBar()
{
super();
buttonHeightProp = "tabHeight";
buttonStyleNameProp = "tabStyleName";
firstButtonStyleNameProp = "firstTabStyleName";
lastButtonStyleNameProp = "lastTabStyleName";
buttonWidthProp = "tabWidth";
navItemFactory = new ClassFactory(Tab);
selectedButtonTextStyleNameProp = "selectedTabTextStyleName";
}
とコンストラクタで、Tabクラスを指定しているじゃないですか。
つまり、ここを書き換えれば独自のTabが作成できるということだということがわかりました。
ここまででわかった拡張するためのまとめ
1.Tabを継承し新しいクラスを定義する。
2.TabBarを継承し新しいクラスを定義する。
このクラスでは、コンストラクタで
navItemFactory = new ClassFactory([1で作成したクラス]);
を定義する。
3.TabNavigatorを継承し、createChildren()ないでTabBarではなく、２で作成したクラスのオブジェクトを使用する。
ということです。
では、次回は各クラスを作成していくことにします。
Posted in 
2009/3/23
ItemRenderer を同じmxml内に
そもそも、調べる時のキーワードがよくわからなかったが、 outerDocumentを使えばいいことがわかった。
詳しくは
http://livedocs.adobe.com/flex/201_jp/html/wwhelp/wwhimpl/common/html/wwhelp.htm?context=LiveDocs_Book_Parts&file=cellrenderer_072_24.html
にのっています。
2009/3/19
munin_tomcat_threads
tomcatのスレッドを監視しておかしなスレッドがたまっていないか調べる必要がでてきた。
そこで、muninで監視するスクリプトを見つけたが、ちょっとちがったのと、個別のスレッドの状態までは確認できなかったので、自作しました。
ただ、perlがよくわからんので、そこはまねっこです。
-
use strict;
-
use Switch '__';
-
-
-
$ret = "LWP::UserAgent not found";
-
}
-
-
$ret .= "XML::Simple not found";
-
}
-
-
-
-
if($ret) {
-
print "no ($ret)\n";
-
exit 1;
-
}
-
my $au = LWP::UserAgent->new(timeout => $TIMEOUT);
-
my $repsonse = $au->request(HTTP::Request->new('GET',$url));
-
if($repsonse->is_success and $repsonse->content =~ /<status>.*<\/status>/im) {
-
print "yes\n";
-
exit 0;
-
} else {
-
print "no (no tomcat status)\n";
-
exit 1;
-
}
-
}
-
-
print "graph_title Tomcat current threads ($CONNECTOR) \n";
-
print "graph_args --base 1000 -l 0\n";
-
print "graph_vlabel current thread / count \n";
-
print "graph_category tomcat\n";
-
print "parse.label Parse and prepare request \n";
-
print "parse.max 150\n";
-
print "parse.min 0\n";
-
-
print "service.label Service\n";
-
#print "service.type DERIVE\n";
-
print "service.max 150\n";
-
print "service.min 0\n";
-
-
print "finishing.label Finishing\n";;
-
print "finishing.max 150\n";
-
print "finishing.min 0\n";
-
-
print "ready.label Ready \n";
-
print "ready.max 150\n";
-
print "ready.min 0\n";
-
-
print "keepalive.label Keepalive\n";
-
print "keepalive.max 150\n";
-
print "keepalive.min 0\n";
-
exit 0;
-
}
-
-
my $ua = LWP::UserAgent->new(timeout => $TIMEOUT);
-
my $response = $ua->request(HTTP::Request->new('GET',$url));
-
my $xml = XML::LibXML->new->parse_string($response->content);
-
-
my $pNum = 0;
-
my $sNum = 0;
-
my $fNum = 0;
-
my $rNum = 0;
-
my $kNum = 0;
-
-
my @nodeList = $xml->getElementsByTagName('connector');
-
foreach my $conn (@nodeList){
-
my $name = $conn->getAttribute('name');
-
if($name eq $CONNECTOR){
-
my @workers = $conn->getElementsByTagName('worker');
-
foreach my $worker (@workers){
-
my $stage = $worker->getAttribute("stage");
-
switch ($stage){
-
case 'P' { $pNum++; }
-
case 'S' { $sNum++; }
-
case 'F' { $fNum++; }
-
case 'R' { $rNum++; }
-
case 'K' { $kNum++; }
-
else { }
-
}
-
}
-
}
-
}
-
-
print "parse.value $pNum\n";
-
print "service.value $sNum\n";
-
print "finishing.value $fNum\n";
-
print "ready.value $rNum\n";
-
print "keepalive.value $kNum\n";
2009/3/17
FlexでTabNavigator を使った時に各タブにアイコンを表示するにはどうすればいいのか、
ちょっと迷ってしまった。
結局、ソースを見たら各コンテナのiconを設定すればいいということがわかった。
<mx :TabNavigator> <mx :Canvas icon="@Embed(.....)" /> </mx>
ってな感じです。
これって、どこかのマニュアルとかに書いてあるのかな・・・・
下の図は、アイコンのところにメールの画像をいれてみました。
各タブで別なものを指定できます。
ちなみに、バツボタンはTabNavigatorを拡張して表示できるようにしたものです。
これも整理したら記述する予定です。
メールのアイコンを表示したところ
2009/3/12
むかーし、むかーし、SmartDocというXMLを使ってよくドキュメントを描いていたのだが、それをPDF等に簡単にできないものかと、iTextというものを使ってPDF出力するようにプログラムを作成してみたことがあった。
SmartDocは標準でPDF出力（といっても、TexからPDF出力）でき、また、きれいにできるのだが、どうしてもTexにすると、フォントやらなにやらわからないことが多すぎ、また、自分の環境ではエラーになってしまうので、直接PDFにできないものかとおもっていたのだ。
それで2003年ごろにiTextというJavaのPDF出力のライブラリの勉強も兼ねてプログラムを作ってみた。
しかし、当時借りていた500円/月レンタルサーバで契約が切れたのを忘れていて、どこかに行ってしまったのだが、パソコンの整理とともに見つかった。
しかし、バージョンがいつのだかわからない！
まあ、とりあえず現状で、パッケージ名などを変えて更新してみた。
久しぶりに、変換してみたら んー！？な内容です。
あれ、こんなレベルだっけ？
こちらからダウンロード可能です。
