Mental math of GUI placement + widget tutorial

[bigbass]

Bacon has a lot of power you can place things exactly where you want them on the GUI
The GUI part of the code needs to be explained (it uses HUG) so that you can get started with making your own apps

I will be using an example given by rod Gatordog and explaining it in more detail with images
Note: rod was and is a big influence getting me started on BaCon
he is busy with other things in life ATM so I want to carry on with his examples
I was lucky enough to have worked together with him on some coding projects



First example Hello





The code syntax you can learn a little at a time it is easy to read
The mental math however is a hurdle to
get a mental picture of whats going on to understand the exact placement
on the GUI so a careful study is given below
when you see what's happening with this example making your own apps
will be much easier




for this reason I will start off with the mental math part


1.) Create your main working window, 250 pixels wide x 100 pixels high
Mainwin = WINDOW( "Hello Title Bar", 250, 100 )







2. ) Create a label Hello BaCon! with text, 150 x 30
This is not a position "on" the screen
it is the size of the viewable text of Hello BaCon!
if the first number which is the width is less than 150
some of the word Hello BaCon! would be cut from viewing
if the second number was less than 30 which is the height
of the viewable text you would see half of the text displayed
the term MARK is used think of this a writing something
with a marker
My_label = MARK( "Hello BaCon!", 150, 30 )






3.) Attach the label to the main window pin pointed
at coordinates 50 x 20 that allows centered text
from top left corner starting at
the first letter in the title bar
think of this as pasting an image of the message Hello BaCon!
with glue exactly where you want it
special note text is aligned with the the first letter in the title bar
so if you wanted text to start flush from the left you would
need to use a negative number -30 ,20
ATTACH( Mainwin, My_label, 50, 20 )





4.) Create a button
This is not a position "on" the screen
it is the size of the viewable text of "I'm done"
if the first number which is the width is less than 80
some of the word "I'm done" would be cut from viewing
if the second number was less than 25 which is the height
of the viewable text you would see half of the text displayed
My_btn = BUTTON( "I'm done", 80, 25)








5.) Attach button to the main window pin pointed
at coordinates 10 x 60 that allows text to be
from top left corner starting at zero NO negative numbers
*this is different than the label position rule *
think of this as pasting an image of the message "I'm done"
with glue exactly where you want it

ATTACH( Mainwin, My_btn, 10, 60 )



Make button do something
CALLBACK( My_btn, QUIT)

Create a button.
My_chk = STOCK("gtk-quit", 80, 25)
ATTACH( Mainwin, My_chk, 155, 60 )

---

Make button do something
CALLBACK( My_chk, QUIT)
DISPLAY




Done with the math lets move on to real code below

















briefly explained full code for easy reading

' BaCon / HUG  Hello World
' Include the files for making a GUI.
INCLUDE "hug.bac"
INIT


' 1.) Create your main working window, 250 pixels wide x 100 pixels high
Mainwin = WINDOW( "Hello Title Bar", 250, 100 )


' 2. ) Create a label Hello BaCon! with text, 150 x 30
My_label = MARK( "Hello BaCon!", 150, 30 )

' 3.) Attach the label to the main window
ATTACH( Mainwin, My_label, 50, 20 )

' 4.)  Create a button
My_btn = BUTTON( "I'm done", 80, 25)

' 5.) Attach button to  the main window
ATTACH( Mainwin, My_btn, 10, 60 )

' 6.) Make button do something
CALLBACK( My_btn, QUIT)

'7.) Create a button.
My_chk  = STOCK("gtk-quit", 80, 25)
ATTACH( Mainwin, My_chk, 155, 60 )

'8.)Make button do something
CALLBACK( My_chk, QUIT)
DISPLAY







heavily explained full code

' BaCon / HUG Hello World
' Include the files for making a GUI.
INCLUDE "hug.bac"
INIT

' the syntax is easy to grasp. The mental math however is a hurdle to
' get a mental picture of whats going on to understand the exact placement
' on the GUI so a careful study is given below

' 1.) Create your main working window, 250 pixels wide x 100 pixels high
Mainwin = WINDOW( "Hello Title Bar", 250, 100 )


' 2. ) Create a label Hello BaCon! with text, 150 x 30
' This is not a position "on" the screen
' it is the size of the viewable text of Hello BaCon!
' if the first number which is the width is less than 150
' some of the word Hello BaCon! would be cut from viewing
' if the second number was less than 30 which is the height
' of the viewable text you would see half of the text displayed
' the term MARK is used think of this a writing something
' with a marker
My_label = MARK( "Hello BaCon!", 150, 30 )


' 3.) Attach the label to the main window pin pointed
' at coordinates 50 x 20 that allows centered text
' from top left corner starting at
' the first letter in the title bar
' think of this as pasting an image of the message Hello BaCon!
' with glue exactly where you want it
' special note text is aligned with the the first letter in the title bar
' so if you wanted text to start flush from the left you would
' need to use a negative number -30 ,20
ATTACH( Mainwin, My_label, 50, 20 )


' 4.) Create a button
' This is not a position "on" the screen
' it is the size of the viewable text of "I'm done"
' if the first number which is the width is less than 80
' some of the word "I'm done" would be cut from viewing
' if the second number was less than 25 which is the height
' of the viewable text you would see half of the text displayed
My_btn = BUTTON( "I'm done", 80, 25)

' 5.) Attach button to the main window pin pointed
' at coordinates 10 x 60 that allows text
' from top left corner starting at zero
' think of this as pasting an image of the message "I'm done"
' with glue exactly where you want it
' *this is different than the label*
ATTACH( Mainwin, My_btn, 10, 60 )

' 6.)Make button do something
CALLBACK( My_btn, QUIT)

' 7.) Create a button.
My_chk = STOCK("gtk-quit", 80, 25)
ATTACH( Mainwin, My_chk, 155, 60 )

'8.) Make button do something
CALLBACK( My_chk, QUIT)
DISPLAY





[konaexpress]

Nice going! I can Work with this.

[Pjot]

Thanks for this tutorial bigbass!

Regards
Peter

[vovchik]

Dear Joe,

Well done. Please keep posting these tutorials. They will make it easier for people to start coding using HUG. I think you might also want to post a link to your many other examples on the Puppy Linux forum - or just place some of that info here.

With kind regards,
vovchik

[konaexpress]

I know it is a pain but please post it here. I like puppy but it is a pain to find stuff in the forums. Link to link to link to link, Puppy could be great but it is a pain to work with, for me that is.

Sorry to take this off topic but a plain stipped version of puppy with a REAL repository would be great! I wish Barry or someone would start over with it. Kinda like Core Linux but without the "control" issues, small and fast. A 3, 4 or 500mb distro is fine by me, just let me load LXDE and be done with it. I looked into doing this myself but what a mess..............

[bigbass]

use an image or animated gif
download the giff (of course you can replace it with any image you like it is a demo only)
place it in root it was hard coded to keep it easy to read
www.puppy2.org/slaxer/bass.gif

P.S I looked for bacon cooking as a gif but didn't find one if you find a link I will change the image


simple GUI snippets needed
I want to make examples like this and better *(showing advantages with BaCon!)
puppy2.org/slaxer/Porteus/Gtkdialog_Examples_color.html
if we could do each example one at a time we would have a great starting page
there are many advanced examples with GUI's but we need more that focus on each new widget alone
imagine if we had all those examples translated into BaCon code !
we will... but it's too much for one person so if you know how to translate the more difficult ones I will do the easy ones

the bacon example below is similar to the gtkdialog example *minor edit* 06.01-pixmap
but better because in Bacon you can use animated gifs


' BaCon  
' Add an image
' add-image.bac

INCLUDE "hug.bac"
INIT


   
    Mainwin_ = WINDOW( "BaCon image", 150, 100 )    
   
    The_image_ = IMAGE("/root/bass.gif", 225, 100)
   
    ATTACH( Mainwin_, The_image_, -75, -20)      

    '  Create a label Hello BaCon! with text, 100 x 30
    My_label = MARK( "BaCon is cool!", 100, 30 )

    '  Attach the label to the main window
    ATTACH( Mainwin_, My_label, 0, 75 )    

    '--- BUTTONS ---
    Close_btn_ = STOCK("gtk-close", 100, 28)
    ATTACH(Mainwin_, Close_btn_, 290, 365)

    '--- CALLBACKS ---
    CALLBACK(Close_btn_, QUIT)  

    DISPLAY





[bigbass]

widget tutorial starts here
will start with gtkdialog widgets side by side with what BaCon can do






working on equivalent widgets for BaCon this is the first
sometimes a picture explains better than words
any help converting widgets will be much welcomed
we already have color for html and BBcode for BaCon so it will be easier to set up the page

we don't need "exact" matches just the idea what each widget does
will help get more people using Bacon and [glow=red,2,300]resist the urge to get too complex keep them simple [/glow]

*Note we pre set up a folder for BaCon that has HUG and hug_imports.bac any anything needed for BaCon

/usr/share/BaCon/hug_imports.bac

' BaCon / HUG Hello World
' Include the files for making a GUI.
INCLUDE "hug.bac"
INIT


' 1.) Create your main working window, 250 pixels wide x 100 pixels high
Mainwin = WINDOW( "BaCon Title Bar", 250, 100 )


' 2. ) Create a label Hello BaCon! with text, 150 x 30
My_label = MARK( "This is static text", 150, 30 )

' 3.) Attach the label to the main window
ATTACH( Mainwin, My_label, 50, 20 )

' 4.) Create a button
My_btn = STOCK( "gtk-yes", 80, 25)

' 5.) Attach button to the main window
ATTACH( Mainwin, My_btn, 10, 60 )

' 6.) Make button do something
CALLBACK( My_btn, QUIT)

'7.) Create a button.
My_chk = STOCK("gtk-cancel", 80, 25)
ATTACH( Mainwin, My_chk, 155, 60 )

'8.)Make button do something
CALLBACK( My_chk, QUIT)
DISPLAY

[bigbass]

example number 2
markup-routine-example.bac
equivalent gtkdialog 00.01-text_attributes

added an extra subroutine launch



' BaCon / HUG  markup-routine-example.bac
' equivilent gtkdialog 00.01-text_attributes
' With SUB routine example

INCLUDE "hug.bac"
INIT

' ******************
' SUBS & FUNCTIONS
' ******************
SUB LAUNCH_APP()
  ' TEXT changes the text of a widget/My_label
  TEXT( My_label, result$)
END SUB

' ******************
' END SUBS & FUNCTIONS
' ******************

' Create your main working window, 275 pixels wide x 100 pixels high
Mainwin = WINDOW( " BaCon Using markup", 275, 100 )
result$ = CONCAT$("<u>This is underlined text</u>")



' Create a label with text, 180 x 30

My_label =  MARK( "<span color=\"blue\">Color can be used too</span> ", 180, 30 )
My_label2 =  MARK( "<b>Use-markup</b> , which is cool.", 180, 30 )

' Attach the label to the main window
' at coordinates 50x 20y from top left corner
ATTACH( Mainwin, My_label, 50, 10 )
ATTACH( Mainwin, My_label2, 50, 35 )

' --- BUTTONS ---
My_btn = BUTTON( "Launch", 100, 25)
ATTACH( Mainwin, My_btn, 5, 60 )

' Make an exit button
My_close = STOCK("gtk-close", 100, 25)
ATTACH(Mainwin, My_close, 140, 60)

' --- CALLBACKS ---
CALLBACK( My_btn, LAUNCH_APP)
CALLBACK( My_close, QUIT)

DISPLAY


[bigbass]

updated and simplified demo to the basics
*reduced image for the forum post that's why its blurry
any help converting widgets will be much welcomed




example number 3

bacon-input-file.bac
equivalent gtkdialog 00.02-text_input



' bacon-input-file.bac
' just view a file
' Include the files for making a GUI.
INCLUDE "hug.bac"
INIT


' 1.) Create your main working window, 350 pixels wide x 200 pixels high
Mainwin = WINDOW( "BaCon input file ", 400, 300 )



EDIT_BOX = EDIT(370, 250)
ATTACH( Mainwin, EDIT_BOX, 10, 10 )


' Create a button.
My_chk = STOCK("gtk-quit", 80, 25)
ATTACH( Mainwin, My_chk, 295, 265 )

' Make button do something
CALLBACK( My_chk, QUIT)


'--- get the display info using a system call ---'
'--- the bash command "date" is used as input ---'


result_input$ = EXEC$("cat /etc/hosts.allow")
result_input2$ = EXEC$("date")
TEXT(EDIT_BOX, NL$)
TEXT(EDIT_BOX, "---------input from file /etc/hosts.allow------------")
TEXT(EDIT_BOX, NL$)
TEXT(EDIT_BOX, result_input$)
TEXT(EDIT_BOX, NL$)
TEXT(EDIT_BOX, "---------input from command date------------")
TEXT(EDIT_BOX, NL$)
TEXT(EDIT_BOX, NL$)
TEXT(EDIT_BOX, result_input2$)




DISPLAY



[bigbass]

bacon-buttons.bac
equivalent gtkdialog 01.00-button


' bacon-buttons.bac
' equivalent gtkdialog 01.00-button
' Include the files for making a GUI.
INCLUDE "hug.bac"
INIT

' we want to "echo out" which button was pressed
' this could launch another app

SUB demo1()
PRINT "Label"
END SUB


SUB demo2()
PRINT "yes"
END SUB

SUB demo3()
PRINT "no"
END SUB


SUB demo4()
PRINT "ok"
END SUB


SUB demo5()
PRINT "cancel"
END SUB

SUB demo6()
PRINT "help"
END SUB




' 1.) Create your main working window, 250 pixels wide x 100 pixels high
Mainwin = WINDOW( "BaCon buttons", 250, 100 )



' Create a button
My_btn = BUTTON( "Label", 80, 25)

' Attach button to the main window
ATTACH( Mainwin, My_btn, 5, 10 )

' Make button do something
CALLBACK( My_btn, demo1)


' Create a button
My_btn = STOCK( "gtk-yes", 80, 25)

' Attach button to the main window
ATTACH( Mainwin, My_btn, 85, 10 )

' Make button do something
CALLBACK( My_btn, demo2)


' Create a button
My_btn = STOCK( "gtk-no", 80, 25)

' Attach button to the main window
ATTACH( Mainwin, My_btn, 165, 10 )

' Make button do something
CALLBACK( My_btn, demo3)
'-----------------------------'
'--- second row of buttons ---'
'-----------------------------'

' Create a button
My_btn = STOCK( "gtk-ok", 80, 25)

' Attach button to the main window
ATTACH( Mainwin, My_btn, 5, 35 )

' Make button do something
CALLBACK( My_btn, demo4)


' Create a button
My_btn = STOCK( "gtk-cancel", 80, 25)

' Attach button to the main window
ATTACH( Mainwin, My_btn, 85, 35 )

' Make button do something
CALLBACK( My_btn, demo5)


' Create a button
My_btn = STOCK( "gtk-help", 80, 25)

' Attach button to the main window
ATTACH( Mainwin, My_btn, 165, 35 )

' Make button do something
CALLBACK( My_btn, demo6)


'-----------------------------'
'--- the real cancel       ---'
'-----------------------------'

' Create a button. the real cancel quit
My_chk = STOCK("gtk-cancel", 80, 25)
ATTACH( Mainwin, My_chk, 165, 60 )

' Make button do something
CALLBACK( My_chk, QUIT)
DISPLAY



[bigbass]

just the checkbox widget will be used in the next example

every widget needs a stand alone example

' bacon-checkbox.bac

' Include the files for making a GUI.
INCLUDE "hug.bac"
INIT

' we want to "echo out" which checkbox was pressed
' this could launch another app

SUB checkbox_demo()
PRINT "check_boxdemo"
END SUB

' 1.) Create your main working window, 250 pixels wide x 100 pixels high
Mainwin = WINDOW( "BaCon checkbox", 250, 100 )

' remember  create, ATTACH ,CALLBACK ,SUB

My_checkbox = CHECK("checkbox here", 120, 25)
ATTACH( Mainwin, My_checkbox, 10, 10 )
CALLBACK(My_checkbox, checkbox_demo)

DISPLAY


[bigbass]

just a simple entry widget example


' bacon-entry.bac

' Include the files for making a GUI.
INCLUDE "hug.bac"
INIT

' we want to "echo out" text in the entry

SUB entry_demo()
PRINT "entry_demo"
END SUB

' 1.) Create your main working window, 250 pixels wide x 100 pixels high
Mainwin = WINDOW( "BaCon entry", 250, 100 )

' remember  create, ATTACH ,CALLBACK ,SUB

My_entry = ENTRY("entry here", 120, 25)
ATTACH( Mainwin, My_entry, 10, 10 )
CALLBACK(My_entry, entry_demo)

DISPLAY


[bigbass]

Hey Bacon can do it too ! ;D

I'm starting to get the idea

equivalent gtkdialog 01.02-button_action_types


' bacon-action-types.bac
' equivalent gtkdialog 01.02-button_action_types
' Include the files for making a GUI.
INCLUDE "hug.bac"
INIT


' we want to "echo out" text in the entry

SUB entry_demo()
PRINT "entry_demo"
END SUB

' we want to "echo out" which button was pressed
' this could launch another app

SUB checkbox_demo()
PRINT "check_boxdemo"
END SUB


SUB demo1()
PRINT "enable"
ENABLE(My_entry)
END SUB


SUB demo2()
PRINT "disable"
DISABLE(My_entry)
END SUB

SUB demo3()
PRINT "yes"
END SUB


SUB demo4()
PRINT "refresh"

result_input2$ = EXEC$("date")
' remember  create, ATTACH ,CALLBACK ,SUB

My_entry = ENTRY(result_input2$, 205, 25)
ATTACH( Mainwin, My_entry, 5, 50 )
END SUB


SUB demo5()
PRINT "clear"

My_entry = ENTRY("", 205, 25)
ATTACH( Mainwin, My_entry, 5, 50 )
END SUB

SUB demo6()
PRINT "fileselect"
My_file = FILEDIALOG("select file", "ok", 0, 0, 0)
SHOW (My_file)
END SUB



' 1.) Create your main working window, 260 pixels wide x 170 pixels high
Mainwin = WINDOW( "BaCon action_types ", 260, 170 )



' remember  create, ATTACH ,CALLBACK ,SUB

My_checkbox = CHECK("This is a checkbox", 150, 25)
ATTACH( Mainwin, My_checkbox, 5, 0 )
CALLBACK(My_checkbox, checkbox_demo)



' place a label for the entry to say what it does notice negative number
My_label = MARK( "<span color=\"blue\">The date in the entry</span> ", 180, 30 )
ATTACH( Mainwin, My_label, -10, 25 )


result_input2$ = EXEC$("date")
' remember  create, ATTACH ,CALLBACK ,SUB

My_entry = ENTRY(result_input2$, 205, 25)
ATTACH( Mainwin, My_entry, 5, 50 )
CALLBACK(My_entry, entry_demo)


' Create a button
My_btn = BUTTON( "enable", 80, 25)

' Attach button to the main window
ATTACH( Mainwin, My_btn, 5, 90 )

' Make button do something
CALLBACK( My_btn, demo1)


' Create a button
My_btn = STOCK( "disable", 80, 25)

' Attach button to the main window
ATTACH( Mainwin, My_btn, 85, 90 )

' Make button do something
CALLBACK( My_btn, demo2)


' Create a button
My_btn = STOCK( "gtk-yes", 80, 25)

' Attach button to the main window
ATTACH( Mainwin, My_btn, 165, 90 )

' Make button do something
CALLBACK( My_btn, demo3)
'-----------------------------'
'--- second row of buttons ---'
'-----------------------------'

' Create a button
My_btn = BUTTON( "refresh", 80, 25)

' Attach button to the main window
ATTACH( Mainwin, My_btn, 5, 115 )

' Make button do something
CALLBACK( My_btn, demo4)


' Create a button
My_btn = BUTTON( "clear", 80, 25)

' Attach button to the main window
ATTACH( Mainwin, My_btn, 85, 115 )

' Make button do something
CALLBACK( My_btn, demo5)


' Create a button
My_btn = BUTTON( "fileselect", 80, 25)

' Attach button to the main window
ATTACH( Mainwin, My_btn, 165, 115 )

' Make button do something
CALLBACK( My_btn, demo6)


'-----------------------------'
'--- the real cancel ---'
'-----------------------------'

' Create a button. the real cancel quit
My_chk = STOCK("gtk-cancel", 80, 25)
ATTACH( Mainwin, My_chk, 165, 145 )

' Make button do something
CALLBACK( My_chk, QUIT)
DISPLAY


[bigbass]

*this uses kde icons so may not work with your desktop * I use the distro Porteus
so that's what it was tested on
just point the icons to ones you have the idea is what is important
it has tool-tips also


' Note you may not have kde installed so use other icons different locations for images

'porteus 1.2
'/usr/share/icons/crystalsvg/32x32

'porteus 1.1
'/usr/share/icons/default.kde/32x32


Any help converting gtkdialog widgets to Bacon widgets will be much welcomed
only so many hours in a day



' BaCon
' Add images as buttons and tool-tips 3x5 format using 32x32 pixel icons
' bacon-icon-kde.bac
' Note you may not have kde installed so use other icons

INCLUDE "hug.bac"
INIT


SUB about_kde_clicked()
PRINT "about_kde"
END SUB


SUB attach_it_clicked()
PRINT "attach"
END SUB


SUB back_clicked()
PRINT "back"
END SUB



SUB bookmark_add_clicked()
PRINT "bookmark_add"
END SUB



SUB bottom_clicked()
PRINT "bottom"
END SUB

'second row

SUB editcut_clicked()
PRINT "editcut"
END SUB


SUB button_ok_clicked()
PRINT "button_ok"
END SUB


SUB edit_add_clicked()
PRINT "edit_add"
END SUB



SUB colorpicker_clicked()
PRINT "colorpicker"
END SUB



SUB apply_clicked()
PRINT "apply"
END SUB


'third row


SUB eraser_clicked()
PRINT "eraser"
END SUB


SUB gear_clicked()
PRINT "gear"
END SUB


SUB redo_clicked()
PRINT "redo"
END SUB



SUB reload_clicked()
PRINT "reload"
END SUB



SUB spellcheck_clicked()
PRINT "spellcheck"
END SUB





Mainwin = WINDOW( "BaCon image-kde", 240, 170 )

       
about_kde = IMAGE("/usr/share/icons/default.kde/32x32/actions/about_kde.png" ,30,30)
ATTACH(Mainwin,  about_kde, 15, 30)
CALLBACK( about_kde , about_kde_clicked)
PROPERTY( about_kde, "tooltip-text", " about_kde")
   
   
attach_it = IMAGE("/usr/share/icons/default.kde/32x32/actions/attach.png" ,30,30)
ATTACH(Mainwin, attach_it, 50, 30)
CALLBACK(attach_it ,attach_it_clicked)
PROPERTY(attach_it, "tooltip-text", "attach")

   
back = IMAGE("/usr/share/icons/default.kde/32x32/actions/back.png" ,30,30)
ATTACH(Mainwin, back, 90, 30)
CALLBACK(back ,back_clicked)
PROPERTY(back, "tooltip-text", "back")


bookmark_add = IMAGE("/usr/share/icons/default.kde/32x32/actions/bookmark_add.png" ,30,30)
ATTACH(Mainwin, bookmark_add, 130, 30)
CALLBACK(bookmark_add ,bookmark_add_clicked)
PROPERTY(bookmark_add, "tooltip-text", "bookmark_add")


bottom = IMAGE("/usr/share/icons/default.kde/32x32/actions/bottom.png" ,30,30)
ATTACH(Mainwin, bottom, 170, 30)
CALLBACK(bottom ,bottom_clicked)
PROPERTY(bottom, "tooltip-text", "bottom")

' second row              
       
             
editcut = IMAGE("/usr/share/icons/default.kde/32x32/actions/editcut.png" ,30,30)
ATTACH(Mainwin,  editcut, 15, 70)
CALLBACK( editcut , editcut_clicked)
PROPERTY( editcut , "tooltip-text", " editcut")
   
   
button_ok = IMAGE("/usr/share/icons/default.kde/32x32/actions/button_ok.png" ,30,30)
ATTACH(Mainwin, button_ok, 55, 70)
CALLBACK(button_ok ,button_ok_clicked)
PROPERTY(button_ok, "tooltip-text", "button_ok")


edit_add = IMAGE("/usr/share/icons/default.kde/32x32/actions/edit_add.png" ,30,30)
ATTACH(Mainwin, edit_add, 90, 70)
CALLBACK(edit_add ,edit_add_clicked)
PROPERTY(edit_add, "tooltip-text", "edit_add")

 

colorpicker = IMAGE("/usr/share/icons/default.kde/32x32/actions/colorpicker.png" ,30,30)
ATTACH(Mainwin, colorpicker, 130, 70)
CALLBACK(colorpicker ,colorpicker_clicked)
PROPERTY(colorpicker, "tooltip-text", "colorpicker")


apply = IMAGE("/usr/share/icons/default.kde/32x32/actions/apply.png" ,30,30)
ATTACH(Mainwin, apply, 170, 70)
CALLBACK(apply ,apply_clicked)
PROPERTY(apply, "tooltip-text", "apply")

'third row    


           
eraser = IMAGE("/usr/share/icons/default.kde/32x32/actions/eraser.png" ,30,30)
ATTACH(Mainwin,  eraser, 15, 110)
CALLBACK( eraser , eraser_clicked)
PROPERTY( eraser , "tooltip-text", " eraser")
   
   
gear = IMAGE("/usr/share/icons/default.kde/32x32/actions/gear.png" ,30,30)
ATTACH(Mainwin, gear, 55, 110)
CALLBACK(gear ,gear_clicked)
PROPERTY(gear, "tooltip-text", "gear")


redo = IMAGE("/usr/share/icons/default.kde/32x32/actions/redo.png" ,30,30)
ATTACH(Mainwin, redo, 90, 110)
CALLBACK(redo ,redo_clicked)
PROPERTY(redo, "tooltip-text", "redo")

 

reload = IMAGE("/usr/share/icons/default.kde/32x32/actions/reload.png" ,30,30)
ATTACH(Mainwin, reload, 130, 110)
CALLBACK(reload ,reload_clicked)
PROPERTY(reload, "tooltip-text", "reload")


spellcheck = IMAGE("/usr/share/icons/default.kde/32x32/actions/spellcheck.png" ,30,30)
ATTACH(Mainwin, spellcheck, 170, 110)
CALLBACK(spellcheck ,spellcheck_clicked)
PROPERTY(spellcheck, "tooltip-text", "spellcheck")
 


' Create a label "click on an image" with text, 100 x 30
My_label = MARK( "click on an image", 130, 165 )

' Attach the label to the main window
ATTACH( Mainwin, My_label, 0, 75 )

'--- BUTTONS ---
Close_btn = STOCK("gtk-close", 100, 28)
ATTACH(Mainwin, Close_btn, 290, 365)

'--- CALLBACKS ---
CALLBACK(Close_btn, QUIT)

DISPLAY




[vovchik]

Dear Joe,

Thanks again. This tutorial is getting better all the time.

With kind regards,
vovchik