+- yab | yet another Basic for HAIKU (https://yab.orgfree.com/forum)
+-- Forum: Programming in yab (https://yab.orgfree.com/forum/forumdisplay.php?fid=1)
+--- Forum: Snippets (https://yab.orgfree.com/forum/forumdisplay.php?fid=3)
+--- Thread: Teditor (/showthread.php?tid=4)
Teditor - clasqm - 06-08-2015
yab example program: Teditor, a yab text editor in 130 lines of code
I could squeeze this down to 100 lines, but readability would suffer. your browser will probably wrap some of the longer lines.
![[Image: teditor_ss_med.png]](http://clasquin-johnson.co.za/michel/haiku/_Media/teditor_ss_med.png)
Code:
#!yab
############# Prologue #############
ProgramName$ = "Teditor"
AuthorName$ = "Joe Bloggs"
ProgramVersion$ = "V0.1"
ProgramBriefDescription$ = "My unbelievable first yab program."
ProgramLicense$ = "Public Domain"
ProgramAcknowledgements$ ="With thanks to Michel Clasquin-Johnson for writing Teditor and to Marc-Oliver Ihm, Jan Bungeroth and Jim Saxton for creating yab!"
//*****Global Variables****
## Technically, yab does not require you to declare global variables, it just is a really, really good idea to do it anyway.
// set DEBUG = 1 to print out all messages on the console
DEBUG = 1
//change this to DEBUG = 0 when you are ready to bind the program for distribution
OpenWindow()
#######End of Prologue#######
############# Main Message Loop #############
dim msg$(1)
while(not leavingLoop)
nCommands = token(message$, msg$(), "|")
for everyCommand = 1 to nCommands
if(DEBUG and msg$(everyCommand)<>"") print msg$(everyCommand)
switch(msg$(everyCommand))
case "_QuitRequested":
case "MainWindow:_QuitRequested":
case "MainWindow:File:Quit":
leavingLoop = true
break
case "MainWindow:File:Save":
SaveFile()
break
case "MainWindow:File:New":
NewFile()
break
case "MainWindow:File:Open":
OpenFile()
break
case "MainWindow:Edit:Undo/Redo":
textedit set "EditSpace", "undo"
break
case "MainWindow:Edit:Cut":
textedit set "EditSpace", "cut"
break
case "MainWindow:Edit:Copy":
textedit set "EditSpace", "copy"
break
case "MainWindow:Edit:Paste":
textedit set "EditSpace", "paste"
break
case "MainWindow:Edit:Select All":
textedit set "EditSpace", "select-all"
break
case "MainWindow:Help:About":
Alert ProgramName$ + " " + ProgramVersion$ + "\n" + "by " + AuthorName$ +"\n\n" + ProgramBriefDescription$ + "\n" + ProgramLicense$ + "\n" + ProgramAcknowledgements$, "OK", "none"
default:
break
end switch
next everyCommand
wend
CloseWindow()
end
#######End of Main Loop#######
sub CloseWindow()
//Close down the main window
NewFile()
window close "MainWindow"
end sub
sub MakeMenu()
//Create menu in MainWindow
menu "File", "Quit", "Q", "MainWindow"
menu "File", "New", "N", "MainWindow"
menu "File", "Open", "O", "MainWindow"
menu "File", "Save", "S", "MainWindow"
menu "Edit", "Undo/Redo", "Z", "MainWindow"
menu "Edit", "Cut", "X", "MainWindow"
menu "Edit", "Copy", "Z", "MainWindow"
menu "Edit", "Paste", "Z", "MainWindow"
menu "Edit", "Select All", "A", "MainWindow"
menu "Help", "About", "", "MainWindow"
end sub
sub NewFile()
local sos
if textedit get$ "EditSpace" <> "" then
sos = alert "Save Current Text First?", "Yes", "No", "", "none"
if sos = 1 SaveFile()
textedit clear "EditSpace"
endif
end sub
sub OpenFile()
local file2open$, anewline$
NewFile()
file2open$ = filepanel "load-file", "Open Which File?", "/boot/home"
if file2open$ <> "" then
open file2open$ for reading as #1
while(not(eof(1)))
line input #1 anewline$
textedit add "EditSpace", anewline$ + "\n"
wend
close #1
textedit set "EditSpace", "gotoline", 1
endif
end sub
sub OpenWindow()
//Setup the main window here
window open 100,100 to 600,500, "MainWindow", "Teditor"
textedit 0,20 to 499, 399, "EditSpace", 3, "MainWindow"
textedit set "EditSpace", "wordwrap", 0
MakeMenu()
end sub
sub SaveFile()
local file2save$, filename$
file2save$ = textedit get$ "EditSpace"
if file2save$ <> "" then
filename$ = filepanel "save-file", "Save File As ...", "/boot/home"
if filename$= "" return
open filename$ for writing as #1
print #1 file2save$
close #1
endif
end sub