menu_editor

dim n,n$,n1,n1$,fichier$,sau$,dir$,non_p$,label$,i

label n_menu,nou,ouv,sau,sau_s,qui
label ann,ok,d_menu,fin


top 0,200
left 0,300
width 0,650

main_menu 1
sub_menu 2 :parent 2,1 :caption 2,"Fichier"
sub_menu 3 :parent 3,1 :caption 3,"Edition"
sub_menu 4 :parent 4,2 :caption 4,"Nouveau":on_click 4,nou
sub_menu 5 :parent 5,2 :caption 5,"Ouvrir" :on_click 5,ouv
sub_menu 6 :parent 6,2 :caption 6,"Sauver" :on_click 6,sau
sub_menu 10 :parent 10,2 :caption 10,"Sauver_sous" :on_click 10,sau_s
sub_menu 11:parent 11,2:caption 11,"Quitter":on_click 11,qui
sub_menu 7 :parent 7,3 :caption 7,"Couper"
sub_menu 8 :parent 8,3 :caption 8,"Copier"
sub_menu 9 :parent 9,3 :caption 9,"Coller"
sub_menu 15:parent 15,1:caption 15,"Menu"
sub_menu 16:parent 16,15:caption 16,"Nouveau Main_Menu":on_click 16,n_menu
sub_menu 17:parent 17,15:caption 17,"Crée Sub_Menu":on_click 17,d_menu
sub_menu 18:parent 18,15:caption 18,"Fin du Menu":on_click 18,fin

memo 12
full_space 12
bar_both 12
font_name 12,"arial black"
font_size 12,8
print_target_is 12

open_dialog 13
filter 13,"fichier bas|*.bas"

save_dialog 14
filter 14,"fichier bas|*.bas"

form 50
top 50,200:left 50,300
width 50,500:height 50,150
color 50,125,125,125
hide 50
command_target_is 50

button 51
caption 51,"annuler"
top 51,85
left 51,250
on_click 51,ann

button 52
caption 52,"Ok"
top 52,85
left 52,150
on_click 52,ok

alpha 53
top 53,13

alpha 59
top 59,13:left 59,65

edit 55
top 55,10:left 55,130
width 55,60:height 55,10

alpha 54
top 54,13:left 54,190


combo 56
top 56,10:left 56,250
width 56,80:height 56,10

alpha 58
top 58,13:left 58,335

edit 57
top 57,10:left 57,400
width 57,60

dlist 60
end

ouv:
fichier$=""
if fichier$=""
fichier$=file_name$(13)
else
file_load 12,fichier$
end_if
caption 0,fichier$
return

sau:
fichier$=file_name$(14)
file_save 12,fichier$+".bas"
return

sau_s:
fichier$=file_name$(14)
file_save 12,fichier$+".bas"
return

nou:
clear 12
n=0:n$=str$(n)
n1=0:n1$=str$(n)
fichier$=message_input$("nouveau","menu","")
dir_make dir_current$+""+fichier$
dir$=dir_current$+""+fichier$
dir_change dir$
caption 0,dir_current$+""+fichier$+".bas"
return

n_menu:
clear 12
clear 56
n=1:n$=str$(1)
item_add 12,"label "
item_add 12,""
item_add 12,"main_menu "+n$
item_add 56,"main_menu"
return

d_menu:
n=n+1:n$=str$(n)
caption 53,"sub_Menu "+n$
caption 54," :parent "+n$+","
caption 59," :caption "+n$+","
caption 58,"on_click "+n$+","
show 50
set_focus 52
return

ok:
item_add 56,text$(55)
item_add 12,caption$(53)+caption$(54)+str$(item_index(56))+caption$(59)+chr$(34)+text$(55)+chr$(34)

if text$(57)<>""
item_add 12,caption$(58)+text$(57)
item_add 60,text$(57)
label$=item_read$(12,1)
item_delete 12,1
if n1=0 then item_insert 12,1,label$+" "+text$(57)
if n1>0 then item_insert 12,1,label$+","+text$(57)
n1=n1+1
end_if
text 55,""
text 57,""
hide 50
return

ann:
n=n-1:n$=str$(n)
hide 50
return

fin:
item_add 12,""+"end"
n=count(60)
for i=1 to n
item_add 12,item_read$(60,n)+":"
item_add 12,""
item_add 12,"return"
next i
text 55,""
text 57,""
clear 56
return

qui:
terminate