Opening a window fro a menuItem

Getting Started
1

Maybe a silly question.
I have an app which opens an Introduction window. Here there are 4 buttons each one leading to its specific window.
I could create a button in each window to get back to the Intro one but I thought of putting a menu command in the app menubar to perform this action.
My problem is: how do I detect which of the 4 windows is open so that I can close it and get back to the Intro? The MenuBar is the one of the app and not the one related to the open window

Thank you

2

try to get the windows list
https://documentation.xojo.com/api/user_interface/desktop/desktopapplication.html#desktopapplication-windowat

then check if it is your object
https://documentation.xojo.com/api/language/isa.html#isa

there are two ways to open a window

as single instance
Window1.Show

or as much as you want

var w as new Window1
w.Show
3

I check if the window exists:

dim FoundWindow as Boolean
for currentWindow as Integer = 0 to App.WindowCount - 1
  dim theWindow as Window = App.Window(currentWindow)
  if theWindow.getWindowName = "PreferencesWindow" then
    theWindow.Show
    FoundWindow = true
  end if
next

if not FoundWindow then
  thePrefs.Show
end if

Public Function getWindowName(Extends theWindow as Window) As String
  
  'returns the name of a Window
  
  Dim theTypeInfo as Introspection.TypeInfo = Introspection.GetType(theWindow)
  Return theTypeInfo.Name
  
  exception exc
    theException = new ErrorException(exc, currentMethodName)
End Function
4

could be?

if theWindow IsA PreferencesWindow then

somewhere i solved the compare with IsA

1 Like
5

Sure, why not. There are many ways to do something.

1 Like
6

I made, thank you. I needed some adjustments but, at least, I had a track to follow.
Thanks again