none
Find GameWindow. & ProgramPlus. ? RRS feed

  • Question

  • Hello & Thanks ;

    I am trying to compile About.sb from 'Surfer 3.0' code .

    But am getting Errors "Can't find object Find GameWindow. and ProgramPlus." .

    Pls , where can I find these ?

    See code below:

    'Surfer 3.0  About Window'
    GameWindow.Icon=ProgramPlus.ProgramDirectory+"\Surfer.jpg"
    GameWindow.Show()
    GameWindow.Title="About Surfer"
    GameWindow.CanResize="False"
    GameWindow.Top=150
    GameWindow.Left=150
    GameWindow.Width=370
    GameWindow.Height=370
    GameControls.AddWebBrowser(0,0,470,300,"file:///"+ProgramPlus.ProgramDirectory+"\About.htm")
    ab1=GameControls.AddButton("OK",30,320,100,30)
    GameControls.RegisterMouseDownEvent(ab1,"abs1")
    ab2=GameControls.AddButton("Info",250,320,100,30)
    GameControls.RegisterMouseDownEvent(ab2,"abs2")
    ab3=GameControls.AddButton("Data Extensions",140,320,100,30)
    GameControls.RegisterMouseDownEvent(ab3,"abs3")
    Sub abs1
    ProgramPlus.End()
    EndSub  
      Sub abs3
    DataExtension.ShowAbout()
    EndSub  
      Sub abs2
    Process.Start(ProgramPlus.ProgramDirectory+"\Surfer System.exe")
    EndSub  

    Thanks 

    Btw: Where can I find the 'Extension Manager' ?


    "All things in moderation, except for love and forgiveness."...vm


    • Edited by vmars316 Friday, July 31, 2020 3:08 PM
    Friday, July 31, 2020 3:07 PM

Answers

  • The following program works, except for the calls to Browser and Process. You have to find other things to run when these buttons are clicked:

    'Surfer 3.0  About Window'
    ''GraphicsWindow.Icon=ProGramPlus.ProGramDirectory+"\Surfer.jpg"
    GraphicsWindow.Show()
    GraphicsWindow.Title="About Surfer"
    GraphicsWindow.CanResize="False"
    GraphicsWindow.Top=150
    GraphicsWindow.Left=150
    GraphicsWindow.Width=370
    GraphicsWindow.Height=370
    ''ldControls.AddBrowser(470,300,"file:///"+ProGram.Directory+"\About.htm")
    ab1=Controls.AddButton("OK",30,320)
    ab2=Controls.AddButton("Info",290,320)
    ab3=Controls.AddButton("Data Extensions",140,320)
    Controls.ButtonClicked=abs1
    
    Sub abs1
      but=Controls.LastClickedButton
      
      If but="Button1" Then
        ProGram.End()
      ElseIf but="Button2" Then
        ''DataExtension.ShowAbout()
        GraphicsWindow.DrawText(10,100,"but2 clicked")
      ElseIf but="Button3" Then
        GraphicsWindow.DrawText(10,200,"but3 clicked")
        ''Process.Start(ProGramPlus.ProGramDirectory+"\Surfer System.exe")
      EndIf
    EndSub
    


    Jan [ WhTurner ] The Netherlands

    • Marked as answer by vmars316 Wednesday, August 5, 2020 9:55 PM
    Saturday, August 1, 2020 5:54 PM
    Answerer

All replies

  • I think GameWindow refers to an old extension - that I don't think is maintained.
    Friday, July 31, 2020 5:16 PM
    Moderator
  • Thanks ;

    Is there a substitute for GameWindow  

    ?

    Thanks


    "All things in moderation, except for love and forgiveness."...vm

    Friday, July 31, 2020 6:51 PM
  • u can use graphicswindow or ldgraphicswindow

    some metods are different, but not much

    Friday, July 31, 2020 7:35 PM
  • Thanks ;

    The LDgraphicswindow doesn't have any Intellisence .

    Is there a way to make that happen ?

    Thanks


    "All things in moderation, except for love and forgiveness."...vm

    Saturday, August 1, 2020 12:36 AM
  • u must install litdev.xml into smallbasic\lib dir
    • Edited by Tryhest Saturday, August 1, 2020 8:15 AM
    Saturday, August 1, 2020 8:13 AM
  • The following program works, except for the calls to Browser and Process. You have to find other things to run when these buttons are clicked:

    'Surfer 3.0  About Window'
    ''GraphicsWindow.Icon=ProGramPlus.ProGramDirectory+"\Surfer.jpg"
    GraphicsWindow.Show()
    GraphicsWindow.Title="About Surfer"
    GraphicsWindow.CanResize="False"
    GraphicsWindow.Top=150
    GraphicsWindow.Left=150
    GraphicsWindow.Width=370
    GraphicsWindow.Height=370
    ''ldControls.AddBrowser(470,300,"file:///"+ProGram.Directory+"\About.htm")
    ab1=Controls.AddButton("OK",30,320)
    ab2=Controls.AddButton("Info",290,320)
    ab3=Controls.AddButton("Data Extensions",140,320)
    Controls.ButtonClicked=abs1
    
    Sub abs1
      but=Controls.LastClickedButton
      
      If but="Button1" Then
        ProGram.End()
      ElseIf but="Button2" Then
        ''DataExtension.ShowAbout()
        GraphicsWindow.DrawText(10,100,"but2 clicked")
      ElseIf but="Button3" Then
        GraphicsWindow.DrawText(10,200,"but3 clicked")
        ''Process.Start(ProGramPlus.ProGramDirectory+"\Surfer System.exe")
      EndIf
    EndSub
    


    Jan [ WhTurner ] The Netherlands

    • Marked as answer by vmars316 Wednesday, August 5, 2020 9:55 PM
    Saturday, August 1, 2020 5:54 PM
    Answerer
  • Well that's a start  :)

    Thank you WhTurner !


    "All things in moderation, except for love and forgiveness."...vm

    Saturday, August 1, 2020 10:34 PM
  • Hello & Thanks ;

    Any ideas how to get LDControls working ?


    "All things in moderation, except for love and forgiveness."...vm

    Sunday, August 2, 2020 1:03 AM
  • See litdev's answer in your "no output" topic.

    Jan [ WhTurner ] The Netherlands

    Sunday, August 2, 2020 9:59 AM
    Answerer
  • Hey WhTurner33 ,

    That is really Great !

    This too: ProGram.End() .

    In another pgm , I was wondering "How do I close this program .

    Save me from another post .

    Thanks so much for your Help !


    "All things in moderation, except for love and forgiveness."...vm

    Wednesday, August 5, 2020 9:55 PM