Multi-Monitor? (truevision 3d game engine)

Hello. I have recently purchased Dolphin Smalltalk professional and
I'd like to thank object arts for making such a great programming
environment.

I used the COM wizard to make it possible for me to use the
truevision 3d game engine. It works beautifully.

My question is: Is it possible for me to get new dolphin windows to
show up on my second monitor? I am running Tv3d in fullscreen and
editing/changing game logic while it is running. It works great (I'm
creating a new process for the tv3d engine so I can still use
Dolphin's editors). However if I open a window from the main dolphin
menu, the window opens in my main monitor instead of the monitor that
the dolphin menu is in. This makes it impossible (I think) to access
that new window because my main monitor is already in fullscreen for
Tv3d.

Hi zenchess,

> My question is: Is it possible for me to get new dolphin windows to
> show up on my second monitor? I am running Tv3d in fullscreen and
> editing/changing game logic while it is running. It works great (I'm
> creating a new process for the tv3d engine so I can still use
> Dolphin's editors). However if I open a window from the main dolphin
> menu, the window opens in my main monitor instead of the monitor that
> the dolphin menu is in. This makes it impossible (I think) to access
> that new window because my main monitor is already in fullscreen for
> Tv3d.
look for method:

defaultPositionWithin: aParentView forExtent: aPoint

which is implemented in View, DebuggerShellView and ShellView.
Change the methods as you see below. It's a only a hack but works.
good on my two monitor system.

defaultPositionWithin: aParentView forExtent: aPoint
"Private - Answer the default position of the receiver within
aParentView given its intended extent aPoint.
This is used only on creation."

^1300@0

defaultPositionWithin: aParentView forExtent: aPoint
"Private - Answer the default position of the receiver within
aParentView given its intended extent aPoint.
This is used only on creation."

| testWindow defaultPosition |
self assert: [aParentView notNil].
self isInitiallyCentered ifTrue: [^self position: 1300@100"self
centerExtent: aPoint within: aParentView"].


"If not creating on the desktop, create at the origin of the parent's
client area"
aParentView parentView notNil ifTrue: [^1300 @ 0].
(testWindow := ShellView new)
parentView: aParentView;
createAt: CW_USEDEFAULT @ CW_USEDEFAULT extent: aPoint.
defaultPosition := testWindow position.
testWindow destroy.
^1300 @ 0.
^defaultPosition

best regards
cjb