NTUI: Enable Disable

[Blackbird]

Hallo,

Ich habe heute ein komisches verhalten bei NtuiCreator unter MorphOS festgestellt. Und zwar funktioniert das Enablen/Disablen nur einmal !

Wenn ich auf Button1 klicke, dann disabled sich Button1 und enabled sich Button2. Klicke ich auf Button2 dann bleibt alles so wie es ist...

Ich habe dazu nun auch ein kleines simples Testprogramm geschrieben:

Hier der Code:

Code:

WBStartup                                    ; WbStart erlauben

; /*========== Include NTUI ========== */
XINCLUDE "ntui.include.ab3"                  ; includieren der NTUI Funktionalitaet


; /*========== Init Program ========== */    ; anlegen einer neuen Engine aus dem XML Datenfile
*engine.tuiEngine = ntui_GetEngine{ntui_BuildFromXMLFile{#NULL,"Layouts/EnableDisable.xml"}}
If (*engine = #NULL) Then error{"unable to create NTUI environment!"} : Goto exit
If ntui_ShowWindowByID{*engine,"EDMainWindow"} = False Then error{"unable to show EDMainwindow!"} : Goto exit ; zeige das Hauptfenster

; /*========== Message Loop ========== */
.mainloop
While quit.b=False
  Wait_ $FFFFFFFF
  Repeat
    *Notify.tuiNotify = ntui_GetNotify{*engine}                 ; Notify aus der Engine bekommen
    Select ntui_GetNotifyID{*Notify}                            ; Notify auswerten...
      Case "EDClose"
        quit = True

      Case "Button1"
        ntui_SetAttrByID{*engine,"Button1",#TUIA_DISABLED,True}
        ntui_SetAttrByID{*engine,"Button2",#TUIA_ENABLED,True}
        message{"Buttons should change now"}

      Case "Button2"
        ntui_SetAttrByID{*engine,"Button1",#TUIA_ENABLED,True}
        ntui_SetAttrByID{*engine,"Button2",#TUIA_DISABLED,True}
        message{"Buttons should change now"}

    End Select
  Until *Notify = Null
Wend

.exit
; /*========== Aufraeumen    ==========*/
ntui_FreeEngine{*engine} ; die Engine freigeben (und alle Fenster schliessen)
End

und hier das xmlfile,der Pfad im Source sollte dann eben angepasst werden.

Code:

<Engine id='engine' appname='EnableDisable' appicontext='EnableDisable' oniconify='Iconify' onpopup='PopUp' useaiss='true'/>
<Window id='EDMainWindow' title='Enable Disable Example' onClose='EDClose'>
    <VGroup>
        <Toolbutton text='Button1' id='Button1' onClick='Button1' align='left' image='TBImages:button' help='click to enable the second Button and disable first'/>
        <Toolbutton text='Button2' id='Button2' onClick='Button2' align='left' image='TBImages:button' disabled='True' help='click to enable the first Button and disable second'/>
    </VGroup>
</Window>

Ich werde mal versuchen jedes Problem das mir nun im Zusammenhang mit Ntui auffällt auch ein Beispiel zu liefern auch als fertiges exe.
Evtl. hilft das ja manchen Usern doch mal kurz zu testen anstatt dann alles selbst zu kompilieren.

Mußte Zip nehmen, Lha ist nicht erlaubt.