Ich will Euch nicht auf den Keks gehn, aber bis jetzt hab ich dieses Thema immer geschickt umgangen, bzw. hab ich kaum einen Schimmer wie ich es am besten machen könnte.

Hab hier noch OS1.2-Doku, nach der ich mit Intui-Mitteln auch Gadgets machen könnte. Allerdings sieht dies da nicht gerade "schick" aus. Da ich aber auch die Gadtools benutze, könnte ich auch diese dazu benutzen. Allerdings habe ich mir dazu mal das Demo in MaxonBasic angesehn und quasi Kopfschmerzen bekommen.

Die Frage ist jetzt viel mehr wo ich einfache, verständliche und am besten deutsche Doku dazu finden könnte. Wie schon geschrieben könnte ich das ganze auch AmigaBasic OS1.2-Like machen, allerdings möchte ich mir das auch nicht mehr antun und wenn ich schon was größeres aufbaue, dann auch richtig machen, auch wenn ich dazu vermutlich auch ca. 10 Jahre zu spät komme...

Dank Eurer Hilfe hab ich ja auch schon einiges in Sachen Amigaprogrammierung gelernt und ich kann mir auch gut vorstellen das mir ein paar einfache C-Beispiele mehr helfen als ein (meiner Meinung nach)vermurkstes MaxonBasic-Demo, das ich überhaupt nicht lesen kann, bzw. nicht versteh.

Vielen Dank schonmal im vorraus.

Achja, es werden eigentlich nur folgende Gadgets benötigt:
Stringgadgets und ein einfaches Auswahlgadget zum starten.
--
http://www.alternativercomputerclub.de.vu

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Original von MaikG:
Ist ziemlich einfach, oben und links eine weisse Line, rechts und
unten eine Schwarze in der Mitte der Text - für ein Button Gadget.

Klicks fragst du selbst ab, wenn die Mauskoordinaten dem Gadget
entsprechen und einer Klickt, machst du die weissen Linen zu schwarzen
und umgekehrt. Dann beim Loslassen wieder herstellen und die gewünschte
Funktion ausführen.

---

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Original von thomas:
Hier ist ein kommentiertes Gadtools-Beispiel in C: http://thomas-rapp.homepage.t-online.de/examples/gadtools.c

---

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Original von Holger:
Der public screen sollte aber nicht die gesamte Programmlaufzeit gelockt bleiben. Nach dem Öffnen des Fensters gibt es keinen Grund mehr, den Lock aufrecht zu erhalten.

---

[ - Antworten - Zitieren - Direktlink - ]

Danke, das muß ich mir gleich mal ansehn.

Wegen verstehn und so:
Ich programmiere in MaxonBasic und eigentlich sollte ich diese Sprache ja auch lesen können, aber was da als Beispiele mitgeliefert wird ist wirklich der Hammer. Da kann ich ja besser C lesen als diese Beispiele. Ich will hier aber nicht denn Eindruck hinterlassen das ich undankbar über die Hilfe von Maxon bin, aber nunja...

Bis jetzt hab ich über die C-Beispiele mehr gelernt als mit den Beispielen in MBasic.
--
http://www.alternativercomputerclub.de.vu

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

MaikG:

Es kommt darauf an wie es erklärt wird. Die Beispiele von Maxon sind ja wohl wirklich recht kompliziert und seltsam gemacht. Das Beispiel vom Thomas ist ja wohl wirklich selbsterklärend und einfach einfach.

Damit kann man Gadtools verstehn.

Achja, vorher hab ich die Gadgets von Intuition benutzt, was ja auch möglich ist. Aber auch das fast nie oder zu Testzwecken. Wie oben schon geschrieben hab ich dieses Thema immer geschickt umfahren.
--
http://www.alternativercomputerclub.de.vu

[ - Antworten - Zitieren - Direktlink - ]

Finde ich alles wahnsinnig kompliziert ... ich muss nur schreiben "myButton:TGadget = CreateButton("Mein schöner Button", 2,2,100,20,win)" und kann diesen Source für Linux, Windows und MacOS kompilieren, sieht überall gleich aus ...... aber gut, ich schweife ab.

--
Wer glaubt dass Volksvertreter das Volk vertreten, der glaubt auch dass Zitronenfalter Zitronen falten

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Original von thomas:
Es gibt aber auch keinen Grund, ihn freizugeben. Das Fenster blockt den Screen ohnehin.

---

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Original von bruZard:
Finde ich alles wahnsinnig kompliziert ... ich muss nur schreiben "myButton:TGadget = CreateButton("Mein schöner Button", 2,2,100,20,win)" und kann diesen Source für Linux, Windows und MacOS kompilieren, sieht überall gleich aus ...... aber gut, ich schweife ab.

---

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Original von MaikG:
>So etwas hat man auch unter AOS1.x nicht selber gemacht. Dafür gibt
>es eine Border-Struktur, mit der man mehrere Linien zeichnen kann.

Mag ja sein aber wenn man diverse nicht Standard Farben nehmen
will und ggf. Bilder wird das wohl schwieriger...

---

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Mmh, zum einen vermisse ich AmigaOS in Deiner Liste (wegen der Relevanz), zum anderen sehe ich da absolute Koordinaten und Größen in Deinem Beispiel, was also, wenn Du so wie im Beispielprogramm ein font-sensitives Layout erzeugen willst, keinen Deut einfacher zu programmieren ist.

---

[ - Antworten - Zitieren - Direktlink - ]

code:

---

REM $INCLUDE Exec.bh
REM $INCLUDE DOS.bh
REM $INCLUDE Intuition.bh
REM $INCLUDE gadtools.bh
LIBRARY OPEN "exec.library", LIBRARY_MINIMUM&
LIBRARY OPEN "intuition.library", LIBRARY_MINIMUM&
LIBRARY OPEN "dos.library", LIBRARY_MINIMUM&
LIBRARY OPEN "gadtools.library", LIBRARY_MINIMUM&

REM $window
REM $errors
REM $lines
REM $nolibrary
REM $nodebug
REM $nobreak
REM $noevent
REM $nooverflow
REM $novarchecks
REM $noautodim
REM $noaddicon
REM $noarray
REM $nostack

DEFINT a-z

CONST tagsl&=100
tags&=AllocMem&(tagsl&,MEMF_PUBLIC&)
IF tags&=0 THEN Ende

CONST GID_Auswahl=1
CONST GID_Eingabe=2
CONST GID_Weiter=3
CONST GID_Abbruch=4

scr&=LockPubScreen&(0)
IF scr&=0 THEN Ende

glist&=0

gad&=CreateContext&(VARPTR(glist&))

ng&=AllocMem&(NewGadget_sizeof%,MEMF_PUBLIC&)
IF ng&=0 THEN Ende
VInfo&=GetVisualInfoA&(scr&,0)

POKEL ng&+ng_VisualInfo%,VInfo&
POKEL ng&+ng_TextAttr%,PEEKL(scr&+ScreenFont%)
POKEW ng&+ng_Flags%,0

POKEW ng&+ng_LeftEdge%,10
POKEW ng&+ng_TopEdge%,20
POKEW ng&+ng_Width%,100
POKEW ng&+ng_Height%,20
POKEL ng&+ng_GadgetText%,SADD("Eingabe"+CHR$(0))
POKEW ng&+ng_GadgetID%,GID_Eingabe
gad& = CreateGadgetA&(STRING_KIND&,gad&,ng&,0)

POKEW ng&+ng_LeftEdge%,120
POKEL ng&+ng_GadgetText%,SADD("Abbruch"+CHR$(0))
POKEW ng&+ng_GadgetID%,GID_Abbruch
gad& = CreateGadgetA&(BUTTON_KIND&,gad&,ng&,0)

IF gad&=0 THEN Ende

 TAGLIST tags&, _
 WA_Width&, 250, _
 WA_Height&, 150, _
 WA_Left&, 0, _
 WA_Top&, 0, _
 WA_PubScreen&, scr&, _
 WA_Title&, "Fenster", _
 WA_Flags&,WFLG_CLOSEGADGET& OR WFLG_DRAGBAR& OR WFLG_DEPTHGADGET& OR WFLG_ACTIVATE& OR WFLG_NOCAREREFRESH&, _
 WA_IDCMP&,IDCMP_CLOSEWINDOW& OR IDCMP_VANILLAKEY& OR BUTTONIDCMP& OR CYCLEIDCMP&, _
 WA_Gadgets&,glist&, _
 TAG_END&
 win&=OpenWindowTagList&(0,tags&)
 IF win&=0 THEN Ende
 
 UserPort&=PEEKL(win&+UserPort%)
 GT_RefreshWindow win&,0
 
 go=1
 WHILE go
  junk=WaitPort&(UserPort&)
  msg&=GT_GetIMsg&(UserPort&)
  IF msg& THEN
   Class&=PEEKL(msg&+Class%)
   SELECT CASE Class&
   CASE IDCMP_GADGETUP&
    gad&=PEEKL(msg&+IAddress%)
    ID&=PEEKW(gad&+ng_GadGetID%)
    SELECT CASE ID&
    CASE GID_Eingabe
     text&=0
     TAGLIST tags&, _
     GTST_String&,VARPTR(text&), _
     TAG_END&
     junk=GT_GetGadgetAttrsA(gad&,win&,0,tags&)
     PRINT PEEK$(text&)
    CASE GID_Abbruch
     go=0
    END SELECT
   CASE IDCMP_VANILLAKEY&
    go=0
   CASE IDCMP_CLOSEWINDOW&
    go=0
   END SELECT
   GT_ReplyIMsg msg&
  END IF
 WEND
Ende:
 IF win& THEN CloseWindow win&
 IF glist& THEN FreeGadgets glist&
 IF VInfo& THEN FreeVisualInfo VInfo&
 IF ng& THEN FreeMem ng&,NewGadget_sizeof%
 IF scr& THEN UnLockPubScreen 0,scr&
 IF tags& THEN FreeMem tags&,tagsl&

---

Wenn ich die Doku richtig verstanden habe, dann muß ich kein Speicher für glist reservieren, bzw. wird dies wohl dann auch wieder mit FreeGadgets freigegeben.

Ich hab wirklich mal vor irgendwann mal bei GadTools auch die Gadgets zu verstehn. Bei den Menus mit GadTools bin ich ja auch schon dank Euch durchgestiegen.

--
http://www.alternativercomputerclub.de.vu

[ - Antworten - Zitieren - Direktlink - ]

@Ralf27:
Das ist jetzt zwar bestimmt nicht die Ursache des Absturzes, sollte aber schon mal erwähnt werden: WFLG_NOCAREREFRESH& solltest Du streichen. NoCareRefresh und Gadtools gehören definitiv nicht zusammen.

Für genauere Blicke ist es jetzt leider etwas zu spät

mfg
--
Good coders do not comment. What was hard to write should be hard to read too.

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

code:

---

POKEL ng&+ng_GadgetText%,SADD("Abbruch"+CHR$(0))

---

code:

---

CONST Abbruch_text$ = "Abbruch"+CHR$(0)
POKEL ng&+ng_GadgetText%,SADD(Abbruch_text$)

---

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Original von thomas:
Wenn du schreibst

code:

---

POKEL ng&+ng_GadgetText%,SADD("Abbruch"+CHR$(0))

---

bist du dann sicher, daß der Speicher mit dem Text bis zum Programmende unverändert bleibt?

---

[ - Antworten - Zitieren - Direktlink - ]

code:

---

SUB Setng_GadgetText(a$)
SHARED ng(1)
POKEL VARPTR(ng(ng_GadgetText2)),SADD(a$+CHR$(0))
END SUB



ng(ng_LeftEdge2)= 20
ng(ng_TopEdge2)   = 50
ng(ng_Width2)      = 100
ng(ng_Height2)     = 12
Setng_GadgetText  "OK"
ng(ng_GadgetID2)   = 1 
ng(ng_Flags2)      = 0
  TAGLIST VARPTR(GadgetTags&(0)), GT_Underscore&, "_"%, TAG_END&
 gad& = CreateGadgetA&(BUTTON_KIND&, gad&, VARPTR(ng(0)), VARPTR(gadgetTags&(0)))

---

[ - Antworten - Zitieren - Direktlink - ]

code:

---

gad&=PEEKL(msg&+IAddress%)
ID&=PEEKW(gad&+ng_GadGetID%)
SELECT CASE ID&

---

code:

---

gad&=PEEKL(msg&+IAddress%)
ID&=PEEKW(gad&+GadgetGadgetID%)
SELECT CASE ID&

---

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Original von MaikG:
>Z.b. ist beim zweiten Programmstart der Text verschoben. Wie kann denn das passieren?

Nach mehrmaligen Starten war kein Standard Text mehr im Text-Gadget.
Du wirst da was falsch übergeben. Machs lieber wie im Beispiel.

---

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Original von Ralf27:
Genauergetippt ist kein Text zu sehn und wenn ich nichts in die Gadget eingebe, dann wird dann auch beim auslesen der Gadgets nicht angegeben, obwohl ich ein Defaulttext drin stehn habe. Ich vermute mal das ich den Text falsch übergebe. Aber wieso läuft es dann nur bei mir nicht und bei euch richtig?

---

Zitat:

---

Original von Ralf27:
Das hat auch zur Folge das man z.b. GadGetID plötzlich nur noch 16Bit möglich ist, statt 32 (ok, nicht so wichtig, aber ist mir auch gleich aufgefallen).

---

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Original von Holger:
Bei mir läuft's "richtig", weil ich gar nicht erwartet habe, dass da ein Text drin stehen soll, denn Du übergibst ja auch keinen. Der Text für ein String-Gadget muss in der TagList via GTST_String übergeben werden. Er wird dann auch kopiert.

---

Zitat:

---

Dass der in der NewGadget Struktur enthaltene Text sporadisch zu sehen ist, statt ignoriert zu werden, scheint mir ein Bug in gadtools zu sein. Der ist mir nicht aufgefallen, weil es bei mir erst heute mal passiert ist. Da dieser Text aber nur über das Gadget drübergezeichnet wird, und nicht im StringGadget enthalten ist, bekommst Du ihn auch nicht beim Auslesen zurück.

---

Beim ersten Programmstart wurde dieser Text ausgegeben (wohl auch bei MaikG) und ich dachte das ich was falsch gemacht habe. Aber das ich was vergessen habe... Ist für mich mal was neues das ein Bug mal nicht in meinem Programm sondern extern vorliegt.

Zitat:

---

Du solltest den ng_GadgetText Eintrag der NewGadget-Struktur am Besten auf NULL setzen, wenn Du ein String-Gadget anlegst.

---

Zitat:

---

Was meinst Du? Die Gadget-ID ist 16 Bit breit. Du benutzt in Deinem eigenen Programm ja auch POKEW/PEEKW.
Wenn Du mehr willst, musst Du den UserData Pointer benutzen.

---

[ - Antworten - Zitieren - Direktlink - ]

Ja, jetzt läuft es so wie es soll. Danke.

Woher kann man denn eigentlich noch mehr Infos über gadtools(wenn möglich bitte auf deutsch ) bekommen?

Die ganze GadTools-Gadgetstory soll übrigens später mal die ID und Port abfragen. Zur Zeit frag ich diese in der aktuellen Netzwerkversion von Sudoku behelfsmäßig mit Basicmitteln ab.
--
http://www.alternativercomputerclub.de.vu

[ - Antworten - Zitieren - Direktlink - ]