ListBoxのエラーについて

[c-s]

これは７．０．ｘのバグでした。
8.0に直っています。

直っていない7.0の回避策として、try/catchで無視すればいいです。
たとえば：

Code:

{curl 7.0 applet}

{define-class public MySkinnedListBoxFeel {inherits SkinnedListBoxFeel}
  {method protected open {handle-listbox-pointer-event e:PointerEvent}:void
    {try
        {super.handle-listbox-pointer-event e}
    catch e:NullDereferenceException do
    }
  }
}

{value
    let lb:ListBox =
        {ListBox
            height = 0.7in,
            "red", "green", "blue"
        }
    set (lb.ui-object asa SkinnableListBoxUI).control-feel =
        {MySkinnedListBoxFeel}
    lb
}