File: m_poptest.srm
Size: 1723
Date: Mon, 07 Apr 2008 21:33:00 +0200
$PBExportHeader$m_poptest.srm
forward
global type m_poptest from menu
end type
type m_hello from menu within m_poptest
end type
type m_there from menu within m_poptest
end type
type m_- from menu within m_poptest
end type
type m_world from menu within m_poptest
end type
global type m_poptest from menu
m_hello m_hello
m_there m_there
m_- m_-
m_world m_world
end type
end forward

global type m_poptest from menu
m_hello m_hello
m_there m_there
m_- m_-
m_world m_world
end type
global m_poptest m_poptest

on m_poptest.create
m_poptest=this
call super::create
this.m_hello=create m_hello
this.m_there=create m_there
this.m_-=create m_-
this.m_world=create m_world
this.Item[UpperBound(this.Item)+1]=this.m_hello
this.Item[UpperBound(this.Item)+1]=this.m_there
this.Item[UpperBound(this.Item)+1]=this.m_-
this.Item[UpperBound(this.Item)+1]=this.m_world
end on

on m_poptest.destroy
call super::destroy
destroy(this.m_hello)
destroy(this.m_there)
destroy(this.m_-)
destroy(this.m_world)
end on

type m_hello from menu within m_poptest
end type

on m_hello.create
call super::create
this.text = "Hello"
end on

on m_hello.destroy
call super::destroy
end on

type m_there from menu within m_poptest
end type

on m_there.create
call super::create
this.text = "There"
end on

on m_there.destroy
call super::destroy
end on

type m_- from menu within m_poptest
end type

on m_-.create
call super::create
this.text = "-"
end on

on m_-.destroy
call super::destroy
end on

type m_world from menu within m_poptest
end type

on m_world.create
call super::create
this.text = "World!"
end on

on m_world.destroy
call super::destroy
end on