OpenEuphoria

Re: Shian Lee's Unicode/Utf8 editor, "edu.ex" Tricks and Tips

• Posted by Senator Feb 27, 2018
• 1489 views

Shian Lee continues to improve "edu.ex". That line is beginning to be a mantra. Many thanks, Shian!

 
procedure new_file_from_list() 
-- comment out the last line if you do not want the file  
-- selector to revert back to the initial startup directory 
 
--  ok = chdir(save_dir) -- restore current directory 
end procedure 
 
 
-- the JAPI GUI works like a charm. This may be the best, 
-- perhaps the only cross platform GUI worth using.  I hope -- Shian, or someone will can issue a Euphoria 4.x version 
 
-- just for fun... if you JAPI working, you can use the JAPI -- GUI fileselector. I don't suppose there is any real  
-- reason to do this as Shian's new_file_from_list()  
-- routine is solid as the rock of Gibralter 
 
include japi.e 
-- edit the last few lines of the new file routine after the  
-- save_state() command: 
elsif command[1] = 'n' then  
~ 
~ 
 save_state()                                                                                                                              
  if j_start() then                                                                                                                         
    answer = j_fileselect(j_frame(""), "Select File","*.e*")                                                                             
    j_quit()                                                                                                                              
  else                                                                                                                                      
   set_top_line("new file name (Esc=List): ")                                                                                            
   answer = delete_trailing_white(key_gets("",file_history))                                                                            
  end if                                                                                                                                    
                                                                                                                                                  
  if length(answer) != 0 then                                                                                                               
     file_name = answer                                                                                                                    
     stop = TRUE                                                                                                                           
  else                                                                                                                                      
     new_file_from_list() -- (Shian)                                                                                                       
  end if                                     

Thanks again, Shian!
Ken Rhodes