Обьектно-орентированность, в GMODE Опции

[gMan]

Допустим нарисовал я кнопку. И еще, еще...
А как сделать эту обьектно-орентированность (блин, слово то какое) не пойму!

Может кто обьяснит?

[BlackShadow]

Ндя. Особо порадовать нечем. Оказывается поприбивал я всё, что делал под ООП, а книгу спихнул кому-то Зато выжил инклюдер и пару воспоминаний.

SEGMENT VMT_Seg PUBLIC
ENDS    VMT_Seg

MACRO VMTSeg
	SEGMENT VMT_Seg
ENDM  VMTSeg

@VMTSeg = VMT_Seg

MACRO LoadVMTSeg reg
	PUSH	@VMTSeg
	POP	Reg
ENDM  LoadVMTSeg

MPTR EQU <DWORD>

MACRO MakeVMT
	VMTSeg
	TBLINST
	ENDS
	CODESEG
ENDM	MakeVMT

Чего тут есть:
1). Описывается VMT_Seg. В этом сегменте и будут храниться все VMT.
2). Макрос LoadVMTSeg загружает в сегментный регистр адрес VMTSeg.
3). Тип MPTR описывает тип элементов VMT. Для маленьких моделей памяти можно заменить и на WORD, т. к. достаточно хранить лишь смещение метода.
4). Макрос MakeVMT является основным во всём этом бреде. Он и инициализирует таблицу VMT для объекта. Естественно должен вызываться в конструкторе.

Теперь о воспоминаниях.
Описывается класс как struc, но необычный. В нём может присутствовать такая вот форма:

MyObject Struc
  MyMethod MPTR MyObject_MyMethod
MyObject EndS

Таким вот макаром объявляются методы.
Ещё есть такой момент: конструктор лучше оформить как обычный метод, который вызывает MakeVMT, а затем уже какой-нибудь виртуальный метод инициализации.
Вызывать методы лучше через CALL METHOD Obj.MyMethod. А вот тут точно не помню: это форма сама заносит this/self/me в ES:BX или это самому надо делать, чтобы VMT он нашёл... Ну, это можно и в дебугере уточнить. А вот как описывается наследование, вот этого я действительно не помню

З. Ы. : забыл-то про самое главное. Виртуальные методы объявляются вроде так:

VIRTUAL MyFun MPTR MyObj_MyFun