Makrá v OpenOffice.org 4/I. – Znovu nezalomiteľné medzery.

Vkladanie nezalomiteľných medzier už počas písania jednoznakových predložiek a spojok je požiadavka, ktorú sme doteraz márne od OpenOffice.org očakávali. Pretože toto makro sa nám zároveň bude vynikajúco hodiť ako východiskový materiál pre dialógy, začneme najprv s ním.

V prípade takejto obsluhy si musíme uvedomiť, že potrebujeme priamo obsluhovať stlačené klávesy. Na tento účel môžeme do systému priradiť vlastné funkcie, ktoré však musia spĺňať určité (UNO) špecifiká. Musia to byť vlastne dve logické funkcie „KeyPressed“ a „KeyReleased“, pričom pomocou prvej z nich obsluhujeme „stlačenie“ a pomocou druhej z nich „pustenie“ klávesy. Obidve tieto funkcie však musia mať rovnaký prefix (t.j. prvú časť názvu), napr. „Nazov_“, pretože práve pomocou tohto prefixu ich zväzujeme so systémom:

function Nazov_KeyPressed(StlacenaKlavesa) as boolean
function Nazov_KeyReleased(StlacenaKlavesa) as boolean

createUnoListener("Nazov_","com.sun.star.awt.XKeyHandler")

OpenOffice.org predpokladá, že takéto funkcie sú naozaj iba pomocné a väčšinou budeme chcieť využiť aj originálne funkcie na obsluhu klávesnice. Toto zaisťuje automaticky podľa toho, akú výstupnú logickú hodnotu týmto funkciám priradíme. Ak im priradíme hodnotu „TRUE“, potom pôvodné funkcie nevolá (predpokladá, že celú obsluhu sme vykonali sami). Ak im priradíme hodnotu „FALSE“, potom akoby sme žiadnu obsluhu klávesnice nevykonali, resp. naše funkcie sú pokladané naozaj za iba pomocné a volajú sa ešte aj pôvodné (originálne) obslužné funkcie.

Pre vlastné sledovanie predložiek si musíme uvedomiť, že ich nebudeme spätne vyhľadávať, ale po zadaní zalomiteľnej medzery musíme hneď vedieť, či predchádzajúce slovo bola alebo nebola jednoznaková predložka (spojka) a podľa toho sa zariadime. Preto musíme zo stlačených kláves sledovať zadávané slovo (ale iba posledné slovo). V rámci tohto sledovania si musíme ešte uvedomiť, že pri písaní sa aj mýlime a používame aj opravné klávesy (DEL, BACKSPACE, …). Ako vidíme, táto problematika nie je nijako jednoduchá a to ešte nehovoríme o tom, že sa môžeme kedykoľvek myšou presunúť na úplne iné miesto v texte, tam opraviť nejaký znak a znovu sa vrátiť na terajšie miesto a pod. Aby sme sa dopracovali k pokiaľ možno čo najjednoduchšiemu riešeniu, obmedzíme sa iba na niektoré zo spomenutých problémov a prípadné rozšírenia už necháme na jednotlivých používateľov.

Skôr ako uvedieme zdrojové texty, ešte pripomeňme, že premenné, cez ktoré budeme sprístupňovať dokument a príslušnú obsluhu klávesnice musia byť viditeľné počas celého písania a preto musíme namiesto deklarácie DIM použiť deklaráciu GLOBAL, pretože takto zaistíme, že sa ich definícia a nadobudnuté hodnoty nestratia. Vlastné makrá môžu teraz vyzerať napríklad takto:

global ObsluhaDokumentu, ObsluhaKlavesnice as object
global PosledneSlovo, OddelovaceSlov, JednoznakovePredlozky as string

sub SpustiObsluhuKlavesnice
 on error goto next

 ' Inicializácia premenných
 PosledneSlovo = ""
 JednoznakovePredlozky="aAiIkKoOsSuUvVzZ"
 ' Znaky, ktoré ukončujú slová – medzera, nezalomiteľná medzera, tabelátor, CR, LF
 OddelovaceSlov=" "+chr(&HA0)+chr(&H09)+chr(&H0A)+chr(&H0D)
 ' pomlčka, lomítko, bodka, čiarka, výkričník, otáznik, bodkočiarka, trojbodka
 OddelovaceSlov=OddelovaceSlov+"-/.,!?;…"
 ' zátvorky
 OddelovaceSlov=OddelovaceSlov+"()[]{}"

 ' Aktuálny dokument
 ObsluhaDokumentu = ThisComponent.getCurrentController
 ' Vlastná obsluha klávesnice
 ObsluhaKlavesnice = createUnoListener("Klavesnica_","com.sun.star.awt.XKeyHandler")
 ' Priradenie tejto obsluhy k aktuálnemu dokumentu
 ObsluhaDokumentu.addKeyHandler(ObsluhaKlavesnice)

end sub

sub UkonciObsluhuKlavesnice
 on error goto next
 ObsluhaDokumentu.removeKeyHandler(ObsluhaKlavesnice)
 PosledneSlovo = ""
end sub

sub VlozZnak(Retazec as string)
' Na aktuálnu pozíciu v dokumente vložíme reťazec
dim ViditelnyKurzor, AktualnyText, AktualnyKurzor as object
 ViditelnyKurzor = ThisComponent.getCurrentController().getViewCursor()
 AktualnyText = ThisComponent.getText()
 AktualnyKurzor = AktualnyText.createTextCursorByRange(ViditelnyKurzor.getStart())
 AktualnyText.insertString(AktualnyKurzor.getStart(), Retazec, true)

end sub

function Klavesnica_KeyPressed(StlacenaKlavesa) as boolean
' Obsluha stlačenej klávesy
dim Obsluzena as boolean

 'Predpokláme, že neobslúžime klávesnicu
 Obsluzena=False

 if instr(OddelovaceSlov,StlacenaKlavesa.KeyChar)<>0 then
  ' Došli sme na koniec slova
  if ZistiPredlozku and (StlacenaKlavesa.KeyChar=" ") then
   ' Je to predložka, ktorá končí zalomiteľnou medzerou - túto nahradíme
   VlozZnak(chr$(&HA0)) ' No Break Space
   ' Sami sme vložili nezalomiteľnú medzeru - obslúžili sme stlačenú klávesu
   Obsluzena=true
  endif
  ' Boli sme na konci slova, už nás nebude zaujímať
  PosledneSlovo=""
 else
  ' Neboli sme na konci slova
  ' Ešte musíme otestovať riadiace znaky, ktoré nebudeme sledovať v zadávanom slove
  select case StlacenaKlavesa.KeyChar
   case chr$(&H00) to chr$(&H07)
    PosledneSlovo=""
   case chr$(&H08) ' BackSpace
    if len(PosledneSlovo)>0 then
     PosledneSlovo=left(PosledneSlovo,len(PosledneSlovo)-1)
    else
     PosledneSlovo=""
    endif
   case chr$(&H09) to chr$(&H1F)
    PosledneSlovo=""
   case chr$(&H20) to chr$(&H7E)
    PosledneSlovo=PosledneSlovo+StlacenaKlavesa.KeyChar
   case chr$(&H7F) ' CTRL BS
    PosledneSlovo=""
   case else
    PosledneSlovo=PosledneSlovo+StlacenaKlavesa.KeyChar
  end select
 endif
 Klavesnica_KeyPressed=Obsluzena
end function

function Klavesnica_KeyReleased(StlacenaKlavesa) as boolean
' Obsluha pustenej klávesy
 Klavesnica_KeyReleased = False
end function

function ZistiPredlozku as boolean
dim JePredlozka as boolean

 JePredlozka=false
 if len(PosledneSlovo)=1 then
  ' Ak je to jednoznakové slovo, tak to môže byť predložka
  JePredlozka=instr(1,JednoznakovePredlozky,PosledneSlovo,0)
 endif
 ZistiPredlozku=JePredlozka

end function
Na budúce: A čo rôzne správanie pri spojke „a“, alebo navrhujeme prvý dialóg.