Ja, ich mal wieder

Ich dachte eigentlich das man mit GadTools recht einfach Menus aufbauen könnte (also nach dem ersten Studium der Doku), aber leider scheint das leider nicht der Fall zu sein.

Ich hab einfach mal folgendes Testprogramm geschrieben:

code:

---

REM $INCLUDE gadtools.bh
LIBRARY OPEN "gadtools.library",36

REM $INCLUDE Intuition.bh
LIBRARY OPEN "intuition.library", 39

REM $nowindow
REM $noerrors
REM $nolines
REM $library
REM $nodebug
REM $nobreak
REM $noevent
REM $nooverflow
REM $novarchecks
REM $noautodim
REM $noaddicon
REM $noarray
REM $nostack


 WINDOW 1,"testfenster"

 a$=SPACE$(1000):mem&=SADD(a$):REM Jo, schon klar...  
 
 GOSUB Aufbau
 INPUT "->";ok$

Ende:
 IF Info& THEN FreeVisualInfo! Info&
 IF NewMenu& THEN FreeMenus! NewMenu&
 SYSTEM


Aufbau:
 win&=WINDOW(7)
 scr&=PEEKL(win&+WScreen%) 
 Info&=GetVisualInfoA&(scr&,0)
 IF Info&=0 THEN PRINT"Fehler bei GetVisualInfosA":RETURN
 REM Newmenu füllen
 memp&=mem&
 AddMenuLine NM_TITLE&,"Project",   "",0,0,0
 AddMenuLine NM_ITEM&,"Open...",   "O",0,0,0
 AddMenuLine NM_ITEM&,"Save"      ,"s",0,0,0
 AddMenuLine NM_ITEM&,"Save As...","S",0,0,0
 AddMenuLine NM_ITEM&,"Quit",      "Q",0,0,0
 EndMenuLine
 NewMenu&=CreateMenusA&(mem&,0)
 IF NewMenu&=0 THEN PRINT"Fehler bei CreateMenusA":RETURN
 s=LayoutMenusA(NewMenu&,Info&,0)
 IF s=0 THEN PRINT"fuck":RETURN
 FreeVisualInfo! Info&:Info&=0
 junk&=SetMenuStrip&(win&,NewMenu&)
RETURN
 
SUB AddMenuLine(a&,b$,c$,d&,e&,f&)STATIC
 SHARED memp&
 POKEW memp&+nm_Type%,a&
 POKEL memp&+nm_Label%,SADD(b$)
 IF c$="" THEN c&=0 ELSE c&=SADD(c$)
 POKEL memp&+nm_CommKey%,c&
 POKEW memp&+nm_Flags%,d&
 POKEL memp&+nm_MutualExclude%,e&
 POKEL memp&+nm_UserData%,f&
 memp&=memp&+NewMenu_sizeof%
END SUB

SUB EndMenuLine STATIC
 SHARED memp&
 POKEW memp&+nm_Type%,0
 POKEL memp&+nm_Label%,0
 POKEL memp&+nm_CommKey%,0
 POKEW memp&+nm_Flags%,0
 POKEL memp&+nm_MutualExclude%,0
 POKEL memp&+nm_UserData%,0
 memp&=memp&+NewMenu_sizeof%
END SUB

---

Leider steigt er immer bei CreateMenusA aus. Ich hoffe wenigstens ich hab die Reihenfolge der Befehle aus der Doku richtig interpretiert und ich denk mir mal das ich da auch nicht mit einer TAGLIST bei der Menugenerierung weiterkomme, deswegen diese seltsame Lösung über Subroutinen.
Noch ein kleiner Hinweis: Mir ist klar das da noch ein paar kleine Befehle am Schluss fehlen, wie z.b. das Menu wieder abmelden. Bitte übersehn.

2. Hinweis: Mir geht es erst mal nur um das Menu aufbauen. Wenn das mal geht, dann schau ich weiter.

Und: Ich weis das ich C nehmen sollte, das C besser ist und das MaxonBasic für Anfänger ist. Also bitte nicht damit anfangen.

Aber: Was hab ich falsch gemacht? Hab übrigens die englische Doku gelesen...
--
http://www.alternativercomputerclub.de.vu

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Original von Kaesebroetchen:
@Ralf27:
Guck mal im Aminet nach GadToolsBox.
Damit kann man sich mit der Maus eine GUI und auch ein Menü zusammenklicken.

Es sind verschiedene Code Generatoren dabei.
Ob einer für Basic dabei war, weiß ich nicht.
Ich denke aber daß du auch aus dem erzeugten C-Code einiges lernen kannst.
--
http://amidevcpp.amiga-world.de/

---

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Leider steigt er immer bei CreateMenusA aus.

---

nm_Type ist ein Byte, kein Word. Dahinter kommt ein ungenutztes Byte, weil Longwords immer auf geraden Adressen liegen müssen. Wenn du POKEW benutzt, hast du in nm_Type immer 0 drin und den eigentlichen Typ schreibst du in das ungenutzte Byte.

Gruß Thomas


P.S. für "Fehler bei LayoutMenusA" hat es nicht mehr gereicht ?

--
Email: thomas-rapp@web.de
Home: thomas-rapp.homepage.t-online.de/

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Original von thomas:
nm_Type ist ein Byte, kein Word. Dahinter kommt ein ungenutztes Byte, weil Longwords immer auf geraden Adressen liegen müssen. Wenn du POKEW benutzt, hast du in nm_Type immer 0 drin und den eigentlichen Typ schreibst du in das ungenutzte Byte.

---

Zitat:

---

P.S. für "Fehler bei LayoutMenusA" hat es nicht mehr gereicht ?

---

Ähm,
--
http://www.alternativercomputerclub.de.vu

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Original von Kaesebroetchen:
@Ralf27:
Welche Version hast du denn probiert ?
Es gibt da mehrere.
Ich habe glaube ich mit einer 2.x gearbeitet und die lief völlig problemlos.

---

Mit der 3er und die mag nicht so. Hab aber eben denn Tip vom Thomas gelesen und jetzt läuft. Hatte einen Buchstaben zu viel im Code, das wars.

Zitat:

---

Es gibt übrigens tatsächlich einen Code Generator für Basic.
Heisst BlitzGUIgen.

---

[ - Antworten - Zitieren - Direktlink - ]

So, jetzt ist noch zwei Sachen und zwar:

gegeben:

a&=ItemAddress&(MenuMem&,IntuiCode&)

Im alten Programm hab ich dann einfach auf die Adresse der einzelnen Menupunkte kontrolliert, was ja jetzt nicht geht. Es gibt doch bestimmt eine elegantere Methode das herrauszufinden. Also MenuTitel und MenuItem.

Und da ist eigentlich nochwas:
Früher hab ich direkt(Asche über mein Haupt ) in der Menustruktur die einzelnen Items ein/ausgeschaltet bzw. abgehakt/haken entfernt.

Wie bewerkstellige ich das jetzt am besten?
--
http://www.alternativercomputerclub.de.vu

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Ich dachte eigentlich das man mit GadTools recht einfach Menus aufbauen könnte (also nach dem ersten Studium der Doku), aber leider scheint das leider nicht der Fall zu sein.

---

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Im alten Programm hab ich dann einfach auf die Adresse der einzelnen Menupunkte kontrolliert, was ja jetzt nicht geht. Es gibt doch bestimmt eine elegantere Methode das herrauszufinden. Also MenuTitel und MenuItem.

---

Zitat:

---

Früher hab ich direkt(Asche über mein Haupt ) in der Menustruktur die einzelnen Items ein/ausgeschaltet bzw. abgehakt/haken entfernt.

---

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Original von MaikG:
@Ralf was spricht gegen das mitgelieferte Beispiel von Maxonbasic?
Menüs entsprechend ändern und alles geht.

---

Uf, gabs da Beispiele? Ich hab das ganze vor 10 Jahrenn installiert und wenn ich jetzt wüßte wo die Disks sind/ob die noch gehn.

Könntest du mir bitte grad das passende Beispiel via EMail senden? Die Info vom Thomas ist ja auch gerade Ideal, aber ich würde gerne mal sehn wie das 1994 gemacht worden ist.
--
http://www.alternativercomputerclub.de.vu

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Original von Ralf27:
So, jetzt ist noch zwei Sachen und zwar:

gegeben:

a&=ItemAddress&(MenuMem&,IntuiCode&)

Im alten Programm hab ich dann einfach auf die Adresse der einzelnen Menupunkte kontrolliert, was ja jetzt nicht geht. Es gibt doch bestimmt eine elegantere Methode das herrauszufinden. Also MenuTitel und MenuItem.

---

Zitat:

---

Und da ist eigentlich nochwas:
Früher hab ich direkt(Asche über mein Haupt ) in der Menustruktur die einzelnen Items ein/ausgeschaltet bzw. abgehakt/haken entfernt.

Wie bewerkstellige ich das jetzt am besten?

---

Zitat:

---

Original von thomas:
Das geht mit GadTools genauso. CreateMenus gibt dir genauso eine Struktur zurück, wie du sie vorher selbst angelegt hast. Du mußt halt jetzt nur die Verkettungen durchgehen, weil du nicht direkt weißt, welche Adresse jedes Item hat. Da könnte dir die UserData wieder helfen, um das Item zu identifizieren.

---

Zitat:

---

Original von DariusBrewka:
Fakt war und ist mit GadTools hast du exakt den Gleichen, wenn nicht größeren Aufwand Menus zu erstellen also Ohne, wenn nicht IMHO gar mehr, als wenn du die Menus direkt als Struktur erzeugst.

AFAIK erstellt GadTools aus einer (komplizierteren) NewMenu Struktur eine normale Menu struktur ohne Vorteile (soweit ich weiss).

---

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Das geht auch einfacher, eben mit jener erwähnten Funktion ItemAddress.

---

[ - Antworten - Zitieren - Direktlink - ]

Hey, so schnell bin ich noch nie nach der Arbeit an den Rechner

Ich hab es eben eingebaut und es läuft wie am Schnürchen!

Also, ich benutze jetzt die einfache Methode, das ich die MenuTitel und MenuItem direkt aus dem IntuiMessageCode generiere.

Diese Methode hat auch den Vorteil das ich anderstherum auch immer die Adresse des Items auf die Menustruktur durch ItemAddress bekomme, wenn ich einfach MenuTitel und MenuItem durch z.b.

pokew ItemAddress(MenuMem&,MenuTitel+MenuItem*32)+12,Flags

ändern kann.


@Maik:

Hab die Diskette gefunden und war erst mal geschockt über den Code. Himmel, da Blick ich ja überhaupt nicht durch. Da ist für mich jeder C-Code einfacher. Kein Wunder das ich das damals nicht mit kopiert habe.
Wenn ich denn jetzigen Code und denn Code in dem Beispiel seh... arg.
Und in dem Beispiel ist ja auch noch nicht mal die Menuabfrage drin, jedenfalls ist in der Messageschleife nur die Abfrage ob das Close-Gadget geklickt wurde. Und dafür ist der Code extrem lang und unübersichtlich.
Kein Wunder das andere Progger wenn die sowas sehn die Flucht ergreifen...
--
http://www.alternativercomputerclub.de.vu

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Original von MaikG:
Na ich habs damit hinbekommen... Ich hab mich schon gewundert
warum du irgendein komischen 1.3 code verwendest. Es gibt
ja auch Beispiele1.3 von MB die laufen auch heute noch...

---

Dann zieh ich wirklich den Hut vor dir.

Ich hab es dann schnell wieder entfernt. Meine Lösung zu dem ganzen ist wirklich sehr viel übersichtlicher und wesentlich kürzer. Es ist ungefähr so lang wie das was da oben steht. Ok, Oben fehlt noch die Abfrage, die auch noch ein paar Zeilen benötigt.

Ich hab mir noch ein paar weitere Beispiele angesehn und eins muß ich tippen:
Ich lese lieber englische Doku und versuch dann mit BrutalForce oder hier Fragen die Lösung aus oder lese lieber C-Code als das ich die Beispiele mir ansehn, die ich überhaupt nicht versteh.
--
http://www.alternativercomputerclub.de.vu

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Original von thomas:
Nicht wirklich. Bei ItemAddress muß man die Menu- und Item-Nummer wissen. Das ist nützlich, wenn man diese z.B. von der IntuiMessage geliefert bekommt.

Aber für den Direktzugriff auf ein Item, ohne daß dieses vorher vom Benutzer ausgewählt wurde, eignen sie sich nicht, da sie sich im Laufe des Lebenszyklus eines Programms häufiger ändern und dann muß ich an tausend Stellen im Programm die Änderungen nachpflegen. Da gehe ich lieber die ganze Menüstuktur durch und suche die Items heraus, die in UserData "Kommando Hugo" drin stehen haben.

---

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Original von Holger:
Bislang sind wir nur von einem relativ kleinen statischen Menü ausgegangen. Für große Anwendungen, die womöglich noch ein dynamisches Menü-Layout haben, hast Du natürlich Recht.

Aber da sind weder Basic, noch gadtools eine allzu große Hilfe...

---

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Original von Ralf27:
Für mich ist diese Lösung gerade richtig. Ist übrigens für Sudoku, was ich auch dann gleich mit den Menus heute hochgeladen habe.

---

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Original von Holger:
Ich hab das Programm in seiner aktuellen Version noch nicht getestet, aber ich vermute mal, Du hast noch nicht berücksichtigt, daß es auch Mehrfachauswahl bei Menüs gibt, oder?

Das zu unterstützen, ist relativ einfach. Wenn das betroffene MenuItem in seinem NextSelect Feld einen von MENUNULL abweichenden Wert hat, dann ist es der Code des nächsten MenuItems (WORD). Dieses kann in seinem NextSelect Feld natürlich auf ein weiteres Item verweisen, usw.usf.

---

Danke für den Hinweis, aber ich vermute mal das ich das nicht einbauen werde. Aber wer weis wie sich das Programm noch entwickelt...
--
http://www.alternativercomputerclub.de.vu

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Original von Ralf27:
Danke für den Hinweis, aber ich vermute mal das ich das nicht einbauen werde. Aber wer weis wie sich das Programm noch entwickelt...

---

Zitat:

---

Aus reiner Interesse:

Also sind maximal 31 Items pro Titel möglich(wenn man keine Subitems dazu zählt)?

Also 31Titel*31Items*31 SubItems=29791 Items (schon einiges)

Es gibt also keine Möglichkeit mehr als 31 Items "in einen Block" zu bekommen?

---

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Original von Holger:
Soll das Programm systemkonform sein, oder nicht? Sind doch letztendlich höchstens zwei zusätzliche Zeilen.

---

Zitat:

---

Knapp daneben. Es sind 31 Menüs * 63 Items * 31 Subitems = 60543 Maximum.

---

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Original von Ralf27:
Zja, so schnell geht das:
Menu: Bit 0-4 = 5 Bits
Item: Bit 5-10 = 6(!)Bits ... ist mir vorher auch nicht aufgefallen.
SubItem: Bit 10-15 = 6 Bits

---

[ - Antworten - Zitieren - Direktlink - ]

Stimmt, diesmal fängt es dann von 11 an bis 15. Dann stimmt auch wieder der Rest.
--
http://www.alternativercomputerclub.de.vu

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]