RecordGrid の NavigationPanel について

[umemura]

RecordGrid の下部に表示される NavigationPanel に手を加えたいときはどうすればよいのでしょうか。

Curl Corporation\Surge\8\ide\gui\controls を利用すればいろんなことができることは承知していますが、
諸事情により、できるだけ open-controls は使いたくありません。

RecordForm には create-navigation-panel というメソッドがありますが、
ReocrdGrid にはそれらしきものがなく、
上記のソースをみても、RecordGridUI で作成していることは分かりましたが、
_navigation-panel フィールドは private になっており、外部から参照できません。

何かよい方法はありますでしょうか。

[umemura]

かなり無理やりですが、下記の方法でNavigationPanel を取得できました。
フィールドで持っていてくれればもっと楽なのに・・・。

Code:

def ui:CustomizedRecordGridUI = {CustomizedRecordGridUI}
def display-frame:BaseFrame =　
　　(ui.child.graphic asa Grid).child-array[1].graphic asa BaseFrame
def navigation-panel:RecordSetDisplayNavigationPanel =　
　　display-frame.child.graphic asa RecordSetDisplayNavigationPanel

[c-s]

かなり無理やりですが、下記の方法でNavigationPanel を取得できました。
フィールドで持っていてくれればもっと楽なのに・・・。

Code:

def ui:CustomizedRecordGridUI = {CustomizedRecordGridUI}
def display-frame:BaseFrame =　
　　(ui.child.graphic asa Grid).child-array[1].graphic asa BaseFrame
def navigation-panel:RecordSetDisplayNavigationPanel =　
　　display-frame.child.graphic asa RecordSetDisplayNavigationPanel

RecordFormにはcreate-navigation-panelがありますが、RecordGridにはありませんね。