I want to use Richt Text in a ListBox control.

To achieve this I have copied the contents of /home/user/gambas-3.18.2/comp/src/gb.gui.base/.src/ListBox/ListBox.class to my project with a new class name RichListBox. I only changed one line of code in "Public Sub GridView_Data" like so:


Now I have the desired behaviour. But I was wondering is there a better way to make such a small change to an existing class - one that doesn't involve copy pasting all the code from the original class?

Uhmmm… :? …probably creating a specific exportable Class that you can call up in an application.

 Somewhere in the help is the description of how to override classes in your application. Basically, just create a class in your project with the same name as the one you want to "extend" and add the relevant stuff. I frequently use it to add additional properties to a native class. There are some things that you need to understand though, so I wish I could give you that wiki reference, but damned if I can find it. For simple things it is the quickest, easiest and most efficient way to do things to native classes that just "lack something I need". I need to tell you that if you want to override event handlers you may need to understand STOP EVENT.
p.s. It also depends if you just have a local single project that needs to "add something", overriding the class internally in that project is the simplest (believe me!) way to do it. Otherwise if you need that additional feature then vuott's, somewhat cryptic reference to creating custom components is better.

thatbruce said

Somewhere in the help is the description of how to override classes in your application.

Yeas, extend and override sound like something I am after.

I like to use a google search for the gambas wiki with target site specified like this: I was able to find this /doc/object-model - Gambas Documentation And this /lang/inherits - Gambas Documentation And this /lang/super - Gambas Documentation

Then I came up with this for my RichListBox class: But I get the following error message:
Unknown symbol '$hView' in class 'Container'

 ON this line?
With Super.$hView.Data

I doubt that "$hView" is a public attribute of the ListBox. Seek another attribute that provides what yoe need.

Inheritance becomes tricky when you want to access internal private data.

$hView is Private to ListBox.class so your inheriting class does not see it.
Sometimes the inherited class may have a hidden function that accesses what you want like this..

ListBox does not
but examining the code we see that $hView points to the GridView that is it's Proxy


So we can see that $hView is the first child of the ListBox and also the Proxy so we can access it like this…

BruceSteers said

Inheritance becomes tricky when you want to access internal private data.

Good to know. Thank you for this information.

BruceSteers said

Code (gambas)

1. ' Gambas class file
2. Export
3. Inherits ListBox
4. Public Sub GridView_Data(Row As Integer, (Column) As Integer)
5.   Super.GridView_Data(Row, Column)  ' Run the parent GridView_Data() event
6.   Dim $hView As GridView = Me.Proxy  ' get the gridview object
7.   $hView.Data.RichText = $hView.Data.Text  ' move Text to RichText
8.   $hView.Data.Text = ""
9. End

Nice work around.