96a2b2dd49
+ contrib/hbide/actions.prg
+ contrib/hbide/browse.prg
+ contrib/hbide/changelog.prg
+ contrib/hbide/console.prg
+ contrib/hbide/dict.prg
+ contrib/hbide/docks.prg
+ contrib/hbide/docwriter.prg
+ contrib/hbide/edit.prg
+ contrib/hbide/editor.prg
+ contrib/hbide/environ.prg
+ contrib/hbide/findreplace.prg
+ contrib/hbide/format.prg
+ contrib/hbide/functions.prg
+ contrib/hbide/harbourhelp.prg
+ contrib/hbide/home.prg
+ contrib/hbide/main.prg
+ contrib/hbide/misc.prg
+ contrib/hbide/object.prg
+ contrib/hbide/parseexpr.c
+ contrib/hbide/plugins.prg
+ contrib/hbide/projectwizard.prg
+ contrib/hbide/projmanager.prg
+ contrib/hbide/saveload.prg
+ contrib/hbide/shortcuts.prg
+ contrib/hbide/skeletons.prg
+ contrib/hbide/sources.prg
+ contrib/hbide/stylesheets.prg
+ contrib/hbide/tags.prg
+ contrib/hbide/themes.prg
+ contrib/hbide/tools.prg
+ contrib/hbide/uisrcmanager.prg
+ contrib/hbide/wizard.prg
- contrib/hbide/ideactions.prg
- contrib/hbide/idebrowse.prg
- contrib/hbide/idechangelog.prg
- contrib/hbide/ideconsole.prg
- contrib/hbide/idedict.prg
- contrib/hbide/idedocks.prg
- contrib/hbide/idedocwriter.prg
- contrib/hbide/ideedit.prg
- contrib/hbide/ideeditor.prg
- contrib/hbide/ideenviron.prg
- contrib/hbide/idefindreplace.prg
- contrib/hbide/ideformat.prg
- contrib/hbide/idefunctions.prg
- contrib/hbide/ideharbourhelp.prg
- contrib/hbide/idehome.prg
- contrib/hbide/idemain.prg
- contrib/hbide/idemisc.prg
- contrib/hbide/ideobject.prg
- contrib/hbide/ideparseexpr.c
- contrib/hbide/ideplugins.prg
- contrib/hbide/ideprojectwizard.prg
- contrib/hbide/ideprojmanager.prg
- contrib/hbide/idesaveload.prg
- contrib/hbide/ideshortcuts.prg
- contrib/hbide/ideskeletons.prg
- contrib/hbide/idesources.prg
- contrib/hbide/idestylesheets.prg
- contrib/hbide/idetags.prg
- contrib/hbide/idethemes.prg
- contrib/hbide/idetools.prg
- contrib/hbide/ideuisrcmanager.prg
- contrib/hbide/idewizard.prg
* contrib/hbide/hbide.hbp
* deleted 'ide' prefix from all source files
1702 lines
71 KiB
Plaintext
1702 lines
71 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
* Harbour Project source code:
|
|
*
|
|
* Copyright 2010 Pritpal Bedi <bedipritpal@hotmail.com>
|
|
* www - http://harbour-project.org
|
|
*
|
|
* This program is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License as published by
|
|
* the Free Software Foundation; either version 2, or (at your option)
|
|
* any later version.
|
|
*
|
|
* This program is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with this software; see the file COPYING. If not, write to
|
|
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
|
|
* Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/).
|
|
*
|
|
* As a special exception, the Harbour Project gives permission for
|
|
* additional uses of the text contained in its release of Harbour.
|
|
*
|
|
* The exception is that, if you link the Harbour libraries with other
|
|
* files to produce an executable, this does not by itself cause the
|
|
* resulting executable to be covered by the GNU General Public License.
|
|
* Your use of that executable is in no way restricted on account of
|
|
* linking the Harbour library code into it.
|
|
*
|
|
* This exception does not however invalidate any other reasons why
|
|
* the executable file might be covered by the GNU General Public License.
|
|
*
|
|
* This exception applies only to the code released by the Harbour
|
|
* Project under the name Harbour. If you copy code from other
|
|
* Harbour Project or Free Software Foundation releases into a copy of
|
|
* Harbour, as the General Public License permits, the exception does
|
|
* not apply to the code that you add in this way. To avoid misleading
|
|
* anyone as to the status of such modified files, you must delete
|
|
* this exception notice from them.
|
|
*
|
|
* If you write modifications of your own for Harbour, it is your choice
|
|
* whether to permit this exception to apply to your modifications.
|
|
* If you do not wish that, delete this exception notice.
|
|
*
|
|
*/
|
|
/*----------------------------------------------------------------------*/
|
|
/*----------------------------------------------------------------------*/
|
|
/*----------------------------------------------------------------------*/
|
|
/*
|
|
* EkOnkar
|
|
* ( The LORD is ONE )
|
|
*
|
|
* Harbour IDE
|
|
*
|
|
* Pritpal Bedi <bedipritpal@hotmail.com>
|
|
* 04Apr2010
|
|
*/
|
|
/*----------------------------------------------------------------------*/
|
|
/*----------------------------------------------------------------------*/
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
#include "hbide.ch"
|
|
#include "hbqtgui.ch"
|
|
#include "common.ch"
|
|
#include "hbclass.ch"
|
|
#include "appevent.ch"
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
#define __listMethods_itemDoubleClicked__ 2001
|
|
#define __listMethods_currentRowChanged__ 2002
|
|
#define __tableMacros_itemSelectionChanged__ 2003
|
|
#define __tableMacros_itemDoubleClicked__ 2004
|
|
#define __buttonSet_clicked__ 2005
|
|
#define __buttonNew_clicked__ 2006
|
|
#define __buttonTest_clicked__ 2007
|
|
#define __buttonLoad_clicked__ 2008
|
|
#define __buttonSave_clicked__ 2009
|
|
#define __buttonSaveAs_clicked__ 2010
|
|
#define __buttonDelete_clicked__ 2011
|
|
#define __QEvent_KeyPress__ 2012
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
CLASS IdeShortcuts INHERIT IdeObject
|
|
|
|
DATA oEdit
|
|
|
|
DATA aHdr INIT {}
|
|
DATA aKeys INIT {}
|
|
DATA aMethods INIT {}
|
|
DATA aMtdItms INIT {}
|
|
DATA aDftSCuts INIT {}
|
|
DATA aDftSCutsItms INIT {}
|
|
|
|
DATA cName
|
|
DATA cKey
|
|
DATA cAlt
|
|
DATA cCtrl
|
|
DATA cShift
|
|
DATA cMenu
|
|
DATA cBlock
|
|
DATA cIcon
|
|
|
|
DATA qHiliter
|
|
|
|
METHOD new( oIde )
|
|
METHOD create( oIde )
|
|
METHOD destroy()
|
|
METHOD show()
|
|
METHOD execEvent( nEvent, p )
|
|
METHOD buildUI()
|
|
METHOD buildSignals()
|
|
|
|
METHOD buildBlock( cString )
|
|
METHOD evalMacro( cString )
|
|
METHOD test( cString, lWarn )
|
|
METHOD execKey( oEdit, nKey, lAlt, lCtrl, lShift )
|
|
METHOD execMacroByName( cName )
|
|
METHOD mergeMacros( a_ )
|
|
|
|
METHOD loadDftSCuts()
|
|
METHOD loadMethods()
|
|
METHOD loadKeys()
|
|
|
|
METHOD clearDftSCuts()
|
|
METHOD populateData( nMode )
|
|
METHOD populateDftSCuts()
|
|
METHOD populateKeys()
|
|
METHOD populateMethods()
|
|
METHOD checkDuplicate( cKey, cAlt, cCtrl, cShift, nRow )
|
|
METHOD controls2vrbls()
|
|
METHOD vrbls2controls( nRow )
|
|
METHOD array2controls( nRow )
|
|
METHOD array2table( nRow, a_ )
|
|
METHOD vrbls2array( nRow )
|
|
METHOD getMacrosList()
|
|
|
|
/* Public API Methods */
|
|
METHOD getWord( lSelect )
|
|
METHOD getLine( nLine, lSelect )
|
|
METHOD getText()
|
|
METHOD execTool( ... )
|
|
|
|
/* hbIDE defined Macros as API Methods */
|
|
METHOD help( cTopic )
|
|
METHOD exit( lWarn )
|
|
METHOD newSource( cType )
|
|
METHOD open()
|
|
METHOD save()
|
|
METHOD saveAs()
|
|
METHOD saveAll()
|
|
METHOD close()
|
|
METHOD print()
|
|
METHOD revertToSaved()
|
|
METHOD findDlg()
|
|
METHOD findDlgEx()
|
|
METHOD gotoLine( nLine )
|
|
METHOD duplicateLine()
|
|
METHOD deleteLine()
|
|
METHOD moveLineUp()
|
|
METHOD moveLineDown()
|
|
METHOD indentRight()
|
|
METHOD indentLeft()
|
|
METHOD blockComment()
|
|
METHOD streamComment()
|
|
METHOD build( cProj )
|
|
METHOD buildLaunch( cProj )
|
|
METHOD reBuild( cProj )
|
|
METHOD reBuildLaunch( cProj )
|
|
METHOD launch( cProj )
|
|
METHOD insert( cText )
|
|
METHOD separator( cSep )
|
|
METHOD findAgain()
|
|
METHOD replace()
|
|
METHOD toUpper()
|
|
METHOD toLower()
|
|
METHOD invertCase()
|
|
METHOD zoom( nKey )
|
|
METHOD cut()
|
|
METHOD copy()
|
|
METHOD paste()
|
|
METHOD undo()
|
|
METHOD redo()
|
|
METHOD selectAll()
|
|
METHOD setBookMark()
|
|
METHOD gotoMark( nIndex )
|
|
METHOD switchToReadOnly()
|
|
METHOD dlgKeyboardMappings()
|
|
METHOD dlgToolsAndUtils()
|
|
METHOD setView( cView )
|
|
METHOD compilePPO()
|
|
METHOD single2doubleQuotes()
|
|
METHOD double2singleQuotes()
|
|
METHOD tabs2spaces()
|
|
METHOD removeTrailingSpaces()
|
|
METHOD presentSkeletons()
|
|
METHOD gotoFunction()
|
|
METHOD execPlugin( cPlugin, ... )
|
|
|
|
METHOD toggleCurrentLineHilight()
|
|
METHOD toggleLineNumbersDisplay()
|
|
METHOD toggleStatusBar()
|
|
|
|
/* Selection Modes */
|
|
METHOD toggleStreamSelectionMode()
|
|
METHOD toggleColumnSelectionMode()
|
|
METHOD toggleLineSelectionMode()
|
|
METHOD clearSelection()
|
|
METHOD togglePersistentSelection()
|
|
|
|
/* Navigation */
|
|
METHOD home()
|
|
METHOD end()
|
|
METHOD down()
|
|
METHOD up()
|
|
METHOD goBottom()
|
|
METHOD goTop()
|
|
METHOD left()
|
|
METHOD right()
|
|
METHOD panEnd()
|
|
METHOD panHome()
|
|
METHOD pageUp()
|
|
METHOD pageDown()
|
|
METHOD find( cString, nPosFrom )
|
|
|
|
METHOD toNextFunction()
|
|
METHOD toPrevFunction()
|
|
|
|
ENDCLASS
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
METHOD IdeShortcuts:new( oIde )
|
|
|
|
::oIde := oIde
|
|
|
|
RETURN Self
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
METHOD IdeShortcuts:create( oIde )
|
|
|
|
DEFAULT oIde TO ::oIde
|
|
::oIde := oIde
|
|
|
|
::loadMethods()
|
|
::loadKeys()
|
|
::loadDftSCuts()
|
|
|
|
RETURN Self
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
METHOD IdeShortcuts:destroy()
|
|
LOCAL a_, qItm
|
|
|
|
IF !empty( ::oUI )
|
|
::oUI:oWidget:disconnect( QEvent_Close )
|
|
|
|
::qHiliter := NIL
|
|
|
|
FOR EACH qItm IN ::aHdr
|
|
qItm := NIL
|
|
NEXT
|
|
::aHdr := {}
|
|
|
|
FOR EACH qItm IN ::aMtdItms
|
|
qItm := NIL
|
|
NEXT
|
|
::aMtdItms := {}
|
|
|
|
FOR EACH a_ IN ::aDftSCutsItms
|
|
FOR EACH qItm IN a_
|
|
qItm := NIL
|
|
NEXT
|
|
NEXT
|
|
::aDftSCutsItms := {}
|
|
|
|
::oUI:destroy()
|
|
ENDIF
|
|
|
|
::aMethods := NIL
|
|
::aKeys := NIL
|
|
::aDftSCuts := NIL
|
|
|
|
RETURN Self
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
METHOD IdeShortcuts:show()
|
|
|
|
IF empty( ::oUI )
|
|
::buildUI()
|
|
::populateData( 1 )
|
|
ENDIF
|
|
|
|
::oIde:setPosAndSizeByIniEx( ::oUI:oWidget, ::oINI:cShortcutsDialogGeometry )
|
|
::oUI:show()
|
|
::oUI:raise()
|
|
|
|
RETURN Self
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
METHOD IdeShortcuts:execEvent( nEvent, p )
|
|
LOCAL nRow, cMethod, cFile, cPath, cTemp, cExt, a_
|
|
|
|
IF ::lQuitting
|
|
RETURN Self
|
|
ENDIF
|
|
|
|
SWITCH nEvent
|
|
|
|
CASE __QEvent_KeyPress__
|
|
MsgBox( "KeyPress on LabelMacros" )
|
|
EXIT
|
|
CASE __buttonDelete_clicked__
|
|
nRow := ::oUI:tableMacros:currentRow()
|
|
IF nRow >= 0 .AND. nRow < Len( ::aDftSCuts )
|
|
nRow++
|
|
IF hbide_getYesNo( "Delete", ::aDftSCuts[ nRow, 1 ], "A Delete Operation Requested" )
|
|
hb_adel( ::aDftSCuts, nRow, .t. )
|
|
::clearDftSCuts()
|
|
::populateDftSCuts()
|
|
ENDIF
|
|
IF nRow <= Len( ::aDftSCuts )
|
|
::oUI:tableMacros:setCurrentCell( nRow - 1, 0 )
|
|
ENDIF
|
|
ENDIF
|
|
EXIT
|
|
CASE __buttonTest_clicked__
|
|
IF .t.
|
|
::controls2vrbls()
|
|
IF !empty( ::cBlock )
|
|
::test( ::cBlock, .t. )
|
|
ENDIF
|
|
ENDIF
|
|
EXIT
|
|
CASE __buttonLoad_clicked__
|
|
cTemp := hbide_fetchAFile( ::oDlg, "Select a macro file", { { "hbIDE Script File", "*.scu" } }, ::cPathShortcuts )
|
|
IF ! Empty( cTemp )
|
|
hb_fNameSplit( hbide_pathNormalized( cTemp, .f. ), @cPath, @cFile, @cExt )
|
|
IF lower( cExt ) == ".scu"
|
|
a_:= hb_deSerialize( hb_memoread( cTemp ) )
|
|
IF !empty( a_ )
|
|
::mergeMacros( a_ )
|
|
::clearDftSCuts()
|
|
::populateDftSCuts()
|
|
ENDIF
|
|
ENDIF
|
|
ENDIF
|
|
EXIT
|
|
CASE __buttonSave_clicked__
|
|
hbide_saveShortcuts( ::oIde, ::aDftSCuts )
|
|
EXIT
|
|
CASE __buttonSaveAs_clicked__
|
|
cTemp := hbide_saveAFile( ::oDlg, "Select a macro file", { { "hbIDE Script File", "*.scu" } }, ::cPathShortcuts, ".scu" )
|
|
IF ! Empty( cTemp )
|
|
hb_fNameSplit( hbide_pathNormalized( cTemp, .f. ), @cPath, @cFile, @cExt )
|
|
cFile := hbide_pathToOSPath( cPath + cFile + "scu" )
|
|
hbide_saveShortcuts( ::oIde, ::aDftSCuts, cFile )
|
|
ENDIF
|
|
EXIT
|
|
CASE __buttonNew_clicked__
|
|
IF .t.
|
|
::controls2vrbls()
|
|
IF !empty( ::cName )
|
|
IF !( ::checkDuplicate( ::cKey, ::cAlt, ::cCtrl, ::cShift ) )
|
|
aadd( ::aDftSCuts, { ::cName, ::cKey, ::cAlt, ::cCtrl, ::cShift, ::cMenu, ::cBlock, ::cIcon } )
|
|
aadd( ::aDftSCutsItms, array( 6 ) )
|
|
::oUI:tableMacros:setRowCount( ::oUI:tableMacros:rowCount() + 1 )
|
|
::array2table( Len( ::aDftSCuts ), { ::cName, ::cKey, ::cAlt, ::cCtrl, ::cShift, ::cMenu, ::cBlock, ::cIcon } )
|
|
ELSE
|
|
MsgBox( "Current shortcut is already defined!" )
|
|
ENDIF
|
|
ENDIF
|
|
ENDIF
|
|
EXIT
|
|
CASE __buttonSet_clicked__
|
|
nRow := ::oUI:tableMacros:currentRow()
|
|
IF nRow >= 0 .AND. nRow < Len( ::aDftSCuts )
|
|
nRow++
|
|
::controls2vrbls()
|
|
IF !empty( ::cName ) .AND. !( ::checkDuplicate( ::cKey, ::cAlt, ::cCtrl, ::cShift, nRow ) ) .AND. ::test( ::cBlock, .f. )
|
|
::vrbls2array( nRow )
|
|
::vrbls2controls( nRow )
|
|
ENDIF
|
|
ENDIF
|
|
EXIT
|
|
CASE __tableMacros_itemDoubleClicked__
|
|
EXIT
|
|
CASE __tableMacros_itemSelectionChanged__
|
|
nRow := ::oUI:tableMacros:currentRow()
|
|
IF nRow >= 0 .AND. nRow < Len( ::aDftSCuts )
|
|
nRow++
|
|
::array2controls( nRow )
|
|
ENDIF
|
|
EXIT
|
|
CASE __listMethods_itemDoubleClicked__
|
|
IF ( nRow := ::oUI:listMethods:currentRow() ) >= 0
|
|
nRow++
|
|
IF !empty( ::aMethods[ nRow, 2 ] )
|
|
cMethod := "::" + ::aMethods[ nRow, 2 ]
|
|
::oUI:plainBlock:insertPlainText( cMethod )
|
|
ENDIF
|
|
ENDIF
|
|
EXIT
|
|
CASE __listMethods_currentRowChanged__
|
|
IF p >= 0 .AND. p < Len( ::aMethods )
|
|
::oUI:texteditSyntax:setPlainText( ::aMethods[ p+1, 3 ] )
|
|
ENDIF
|
|
EXIT
|
|
ENDSWITCH
|
|
|
|
RETURN Self
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
METHOD IdeShortcuts:array2controls( nRow )
|
|
LOCAL cKey, nKey
|
|
|
|
::oUI:editName:setText( ::aDftSCuts[ nRow, 1 ] )
|
|
|
|
cKey := ::aDftSCuts[ nRow, 2 ]
|
|
IF ( nKey := ascan( ::aKeys, {|e_| e_[ 2 ] == cKey } ) ) > 0
|
|
::oUI:comboKey:setCurrentIndex( nKey - 1 )
|
|
ENDIF
|
|
|
|
::oUI:checkAlt :setChecked( ::aDftSCuts[ nRow, 3 ] == "YES" )
|
|
::oUI:checkCtrl :setChecked( ::aDftSCuts[ nRow, 4 ] == "YES" )
|
|
::oUI:checkShift:setChecked( ::aDftSCuts[ nRow, 5 ] == "YES" )
|
|
|
|
::oUI:editMenu:setText( ::aDftSCuts[ nRow, 6 ] )
|
|
|
|
::oUI:plainBlock:setPlainText( ::aDftSCuts[ nRow, 7 ] )
|
|
|
|
RETURN Self
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
METHOD IdeShortcuts:vrbls2array( nRow )
|
|
|
|
IF nRow == NIL
|
|
aadd( ::aDftSCuts, array( 7 ) )
|
|
nRow := Len( ::aDftSCuts )
|
|
ENDIF
|
|
|
|
::aDftSCuts[ nRow, 1 ] := ::cName
|
|
::aDftSCuts[ nRow, 2 ] := ::cKey
|
|
::aDftSCuts[ nRow, 3 ] := ::cAlt
|
|
::aDftSCuts[ nRow, 4 ] := ::cCtrl
|
|
::aDftSCuts[ nRow, 5 ] := ::cShift
|
|
::aDftSCuts[ nRow, 6 ] := ::cMenu
|
|
::aDftSCuts[ nRow, 7 ] := ::cBlock
|
|
//::aDftSCuts[ nRow, 8 ] := ::cIcon
|
|
|
|
RETURN Self
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
METHOD IdeShortcuts:vrbls2controls( nRow )
|
|
|
|
::aDftSCutsItms[ nRow, 1 ]:setIcon( QIcon( hbide_image( ::cIcon ) ) )
|
|
::aDftSCutsItms[ nRow, 2 ]:setText( ::cName )
|
|
::aDftSCutsItms[ nRow, 3 ]:setText( ::cKey )
|
|
::aDftSCutsItms[ nRow, 4 ]:setIcon( QIcon( hbide_image( iif( ::cAlt == "YES", "check", "" ) ) ) )
|
|
::aDftSCutsItms[ nRow, 5 ]:setIcon( QIcon( hbide_image( iif( ::cCtrl == "YES", "check", "" ) ) ) )
|
|
::aDftSCutsItms[ nRow, 6 ]:setIcon( QIcon( hbide_image( iif( ::cShift == "YES", "check", "" ) ) ) )
|
|
|
|
RETURN Self
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
METHOD IdeShortcuts:array2table( nRow, a_ )
|
|
LOCAL q0, q1, q2, q3, q4, q5
|
|
LOCAL oTbl := ::oUI:tableMacros
|
|
LOCAL n := nRow - 1
|
|
|
|
q0 := QTableWidgetItem()
|
|
q0:setIcon( QIcon( hbide_image( a_[ 8 ] ) ) )
|
|
oTbl:setItem( n, 0, q0 )
|
|
|
|
q1 := QTableWidgetItem()
|
|
q1:setText( a_[ 1 ] )
|
|
oTbl:setItem( n, 1, q1 )
|
|
|
|
q2 := QTableWidgetItem()
|
|
q2:setText( a_[ 2 ] )
|
|
oTbl:setItem( n, 2, q2 )
|
|
|
|
q3 := QTableWidgetItem()
|
|
q3:setIcon( QIcon( iif( a_[ 3 ] == "YES", hbide_image( "check" ), "" ) ) )
|
|
oTbl:setItem( n, 3, q3 )
|
|
|
|
q4 := QTableWidgetItem()
|
|
q4:setIcon( QIcon( iif( a_[ 4 ] == "YES", hbide_image( "check" ), "" ) ) )
|
|
oTbl:setItem( n, 4, q4 )
|
|
|
|
q5 := QTableWidgetItem()
|
|
q5:setIcon( QIcon( iif( a_[ 5 ] == "YES", hbide_image( "check" ), "" ) ) )
|
|
oTbl:setItem( n, 5, q5 )
|
|
|
|
oTbl:setRowHeight( n, 16 )
|
|
|
|
::aDftSCutsItms[ nRow, 1 ] := q0
|
|
::aDftSCutsItms[ nRow, 2 ] := q1
|
|
::aDftSCutsItms[ nRow, 3 ] := q2
|
|
::aDftSCutsItms[ nRow, 4 ] := q3
|
|
::aDftSCutsItms[ nRow, 5 ] := q4
|
|
::aDftSCutsItms[ nRow, 6 ] := q5
|
|
|
|
RETURN Self
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
METHOD IdeShortcuts:controls2vrbls()
|
|
LOCAL nRow := ::oUI:comboKey:currentIndex()
|
|
|
|
IF nRow >= 0
|
|
nRow++
|
|
::cName := ::oUI:editName:text()
|
|
::cKey := ::aKeys[ nRow, 2 ]
|
|
::cAlt := iif( ::oUI:checkAlt :isChecked(), "YES", "NO" )
|
|
::cCtrl := iif( ::oUI:checkCtrl :isChecked(), "YES", "NO" )
|
|
::cShift := iif( ::oUI:checkShift:isChecked(), "YES", "NO" )
|
|
::cMenu := ::oUI:editMenu:text()
|
|
::cBlock := ::oUI:plainBlock:toPlainText()
|
|
ENDIF
|
|
RETURN Self
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
METHOD IdeShortcuts:checkDuplicate( cKey, cAlt, cCtrl, cShift, nRow )
|
|
LOCAL lYes, e_
|
|
|
|
IF empty( nRow )
|
|
lYes := ascan( ::aDftSCuts, {|e_| e_[ 2 ] == cKey .AND. e_[ 3 ] == cAlt .AND. ;
|
|
e_[ 4 ] == cCtrl .AND. e_[ 5 ] == cShift } ) > 0
|
|
ELSE
|
|
lYes := .f.
|
|
FOR EACH e_ IN ::aDftSCuts
|
|
IF e_:__enumIndex() != nRow
|
|
IF e_[ 2 ] == cKey .AND. e_[ 3 ] == cAlt .AND. e_[ 4 ] == cCtrl .AND. e_[ 5 ] == cShift
|
|
lYes := .t.
|
|
EXIT
|
|
ENDIF
|
|
ENDIF
|
|
NEXT
|
|
ENDIF
|
|
|
|
RETURN lYes
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
METHOD IdeShortcuts:buildUI()
|
|
LOCAL oTbl, n, qItm
|
|
LOCAL hdr_:= { { "Img", 30 }, { "Name", 190 }, { "Key", 50 }, { "Alt", 30 }, { "Ctrl", 30 }, { "Shift", 30 } }
|
|
|
|
::oUI := hbide_getUI( "shortcuts" )
|
|
::oUI:setWindowIcon( QIcon( hbide_image( "hbide" ) ) )
|
|
::oUI:setParent( ::oDlg:oWidget )
|
|
::oUI:setWindowFlags( Qt_Sheet )
|
|
|
|
::oUI:oWidget:connect( QEvent_Close, {|| ::oIde:oINI:cShortcutsDialogGeometry := hbide_posAndSize( ::oUI:oWidget ) } )
|
|
|
|
oTbl := ::oUI:tableMacros /* Build Table Header */
|
|
oTbl:verticalHeader():hide()
|
|
oTbl:horizontalHeader():setStretchLastSection( .t. )
|
|
oTbl:setAlternatingRowColors( .t. )
|
|
oTbl:setColumnCount( Len( hdr_ ) )
|
|
oTbl:setShowGrid( .t. )
|
|
oTbl:setSelectionMode( QAbstractItemView_SingleSelection )
|
|
oTbl:setSelectionBehavior( QAbstractItemView_SelectRows )
|
|
FOR n := 1 TO Len( hdr_ )
|
|
qItm := QTableWidgetItem()
|
|
qItm:setText( hdr_[ n,1 ] )
|
|
oTbl:setHorizontalHeaderItem( n-1, qItm )
|
|
oTbl:setColumnWidth( n-1, hdr_[ n,2 ] )
|
|
aadd( ::aHdr, qItm )
|
|
NEXT
|
|
|
|
::oUI:listMethods:setAlternatingRowColors( .t. ) /* Public Methods List */
|
|
|
|
::qHiliter := ::oTH:SetSyntaxHilighting( ::oUI:plainBlock, "Pritpal's Favourite" )
|
|
|
|
::buildSignals()
|
|
|
|
/* Demonstration only */
|
|
::oUI:labelMacros:setFocusPolicy( Qt_StrongFocus )
|
|
::oUI:labelMacros:connect( QEvent_KeyPress, {|p| ::execEvent( __QEvent_KeyPress__, p ) } )
|
|
|
|
RETURN Self
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
METHOD IdeShortcuts:buildSignals()
|
|
|
|
::oUI:buttonNew :connect( "clicked()" , {| | ::execEvent( __buttonNew_clicked__ ) } )
|
|
::oUI:buttonSet :connect( "clicked()" , {| | ::execEvent( __buttonSet_clicked__ ) } )
|
|
::oUI:buttonTest :connect( "clicked()" , {| | ::execEvent( __buttonTest_clicked__ ) } )
|
|
::oUI:buttonLoad :connect( "clicked()" , {| | ::execEvent( __buttonLoad_clicked__ ) } )
|
|
::oUI:buttonSave :connect( "clicked()" , {| | ::execEvent( __buttonSave_clicked__ ) } )
|
|
::oUI:buttonSaveAs:connect( "clicked()" , {| | ::execEvent( __buttonSaveAs_clicked__ ) } )
|
|
::oUI:buttonDelete:connect( "clicked()" , {| | ::execEvent( __buttonDelete_clicked__ ) } )
|
|
::oUI:listMethods :connect( "itemDoubleClicked(QListWidgetItem*)" , {|p| ::execEvent( __listMethods_itemDoubleClicked__ , p ) } )
|
|
::oUI:listMethods :connect( "currentRowChanged(int)" , {|p| ::execEvent( __listMethods_currentRowChanged__ , p ) } )
|
|
::oUI:tableMacros :connect( "itemSelectionChanged()" , {| | ::execEvent( __tableMacros_itemSelectionChanged__ ) } )
|
|
::oUI:tableMacros :connect( "itemDoubleClicked(QTableWidgetItem*)", {|p| ::execEvent( __tableMacros_itemDoubleClicked__ , p ) } )
|
|
|
|
RETURN Self
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
METHOD IdeShortcuts:populateData( nMode )
|
|
|
|
IF nMode == 1
|
|
::populateMethods()
|
|
::populateKeys()
|
|
::populateDftSCuts()
|
|
ENDIF
|
|
|
|
RETURN Self
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
METHOD IdeShortcuts:clearDftSCuts()
|
|
LOCAL a_, qItm
|
|
LOCAL oTbl := ::oUI:tableMacros
|
|
|
|
FOR EACH a_ IN ::aDftSCutsItms
|
|
FOR EACH qItm IN a_
|
|
qItm := NIL
|
|
NEXT
|
|
NEXT
|
|
::aDftSCutsItms := {}
|
|
|
|
oTbl:clearContents()
|
|
|
|
RETURN Self
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
METHOD IdeShortcuts:populateDftSCuts()
|
|
LOCAL a_, nRow
|
|
LOCAL oTbl := ::oUI:tableMacros
|
|
LOCAL qApp := QApplication()
|
|
|
|
oTbl:setRowCount( Len( ::aDftSCuts ) )
|
|
|
|
nRow := 0
|
|
FOR EACH a_ IN ::aDftSCuts
|
|
nRow++
|
|
aadd( ::aDftSCutsItms, array( 6 ) )
|
|
::array2table( nRow, a_ )
|
|
qApp:processEvents()
|
|
IF ::lQuitting
|
|
EXIT
|
|
ENDIF
|
|
NEXT
|
|
oTbl:setCurrentCell( 0,0 )
|
|
|
|
RETURN Self
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
METHOD IdeShortcuts:populateMethods()
|
|
LOCAL qItem, a_
|
|
LOCAL qLW := ::oUI:listMethods
|
|
|
|
//qLW:setSortingEnabled( .t. )
|
|
|
|
FOR EACH a_ IN ::aMethods
|
|
IF !empty( a_[ 1 ] )
|
|
qItem := QListWidgetItem()
|
|
|
|
IF left( a_[ 1 ], 1 ) == " "
|
|
qItem:setText( alltrim( a_[ 1 ] ) )
|
|
qItem:setForeground( QBrush( QColor( 255,0,0 ) ) )
|
|
qItem:setBackground( QBrush( QColor( 255,255,200 ) ) )
|
|
qItem:setTextAlignment( Qt_AlignHCenter )
|
|
ELSE
|
|
qItem:setText( a_[ 1 ] )
|
|
ENDIF
|
|
aadd( ::aMtdItms, qItem )
|
|
qLW:addItem( qItem )
|
|
ENDIF
|
|
NEXT
|
|
qLW:setCurrentRow( 0 )
|
|
|
|
RETURN Self
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
METHOD IdeShortcuts:populateKeys()
|
|
LOCAL a_
|
|
LOCAL oCB := ::oUI:comboKey
|
|
|
|
FOR EACH a_ IN ::aKeys
|
|
oCB:addItem( a_[ 2 ] )
|
|
NEXT
|
|
oCB:setCurrentIndex( -1 )
|
|
|
|
RETURN Self
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
METHOD IdeShortcuts:buildBlock( cString )
|
|
LOCAL n, cBlock, cParam
|
|
LOCAL a_:= hbide_memoTOarray( cString )
|
|
|
|
cString := ""
|
|
aeval( a_, {|e| cString += e } )
|
|
|
|
IF ( n := at( "|", cString ) ) > 0
|
|
cString := substr( cString, n + 1 )
|
|
IF ( n := at( "|", cString ) ) == 0
|
|
RETURN Self
|
|
ENDIF
|
|
cParam := substr( cString, 1, n - 1 )
|
|
cString := substr( cString, n + 1 )
|
|
cBlock := "{|o," + cParam + "|" + cString + " }"
|
|
ELSE
|
|
cBlock := "{|o| " + cString + " }"
|
|
ENDIF
|
|
cBlock := strtran( cBlock, "::", "o:" )
|
|
|
|
RETURN cBlock
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
METHOD IdeShortcuts:test( cString, lWarn )
|
|
LOCAL cBlock, oErr, bBlock
|
|
LOCAL lOk := .f.
|
|
LOCAL bError := ErrorBlock( {|o| break( o ) } )
|
|
|
|
cBlock := ::buildBlock( cString )
|
|
|
|
BEGIN SEQUENCE
|
|
bBlock := &( cBlock )
|
|
lOk := .t.
|
|
IF lWarn
|
|
MsgBox( "Script compiles fine!", "Syntax checking", , , , bBlock )
|
|
ENDIF
|
|
RECOVER USING oErr
|
|
MsgBox( "Wrongly defined script, try: |v| ::method( v )", oErr:description )
|
|
END SEQUENCE
|
|
|
|
ErrorBlock( bError )
|
|
::oUI:raise()
|
|
::oUI:setFocus()
|
|
|
|
RETURN lOk
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
METHOD IdeShortcuts:evalMacro( cString )
|
|
LOCAL bError := ErrorBlock( {|o| break( o ) } )
|
|
LOCAL oErr, bBlock, cBlock
|
|
LOCAL lEvaluated := .f.
|
|
|
|
cBlock := ::buildBlock( cString )
|
|
|
|
bBlock := &( cBlock )
|
|
|
|
BEGIN SEQUENCE
|
|
eval( bBlock, self )
|
|
lEvaluated := .t.
|
|
RECOVER USING oErr
|
|
HB_SYMBOL_UNUSED( oErr )
|
|
END SEQUENCE
|
|
|
|
ErrorBlock( bError )
|
|
RETURN lEvaluated
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
METHOD IdeShortcuts:execKey( oEdit, nKey, lAlt, lCtrl, lShift )
|
|
LOCAL lExecuted := .f.
|
|
LOCAL cKey, n
|
|
|
|
IF ( n := ascan( ::aKeys, {|e_| e_[ 1 ] == nKey } ) ) > 0
|
|
|
|
::oEdit := oEdit
|
|
|
|
cKey := ::aKeys[ n, 2 ]
|
|
|
|
n := ascan( ::aDftSCuts, {|e_| e_[ 2 ] == cKey .AND. ;
|
|
e_[ 3 ] == iif( lAlt , "YES", "NO" ) .AND. ;
|
|
e_[ 4 ] == iif( lCtrl , "YES", "NO" ) .AND. ;
|
|
e_[ 5 ] == iif( lShift, "YES", "NO" ) } )
|
|
IF n > 0
|
|
IF ! empty( ::aDftSCuts[ n, 7 ] )
|
|
HB_TRACE( HB_TR_DEBUG, nKey, lAlt, lCtrl, lShift, cKey )
|
|
|
|
lExecuted := ::evalMacro( ::aDftSCuts[ n, 7 ] )
|
|
ENDIF
|
|
ENDIF
|
|
ENDIF
|
|
|
|
RETURN lExecuted
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
METHOD IdeShortcuts:execMacroByName( cName )
|
|
LOCAL n, lExecuted := .f.
|
|
|
|
IF ( n := ascan( ::aDftSCuts, {|e_| e_[ 1 ] == cName } ) ) > 0
|
|
::oEdit := ::oEM:getEditObjectCurrent()
|
|
IF ! empty( ::aDftSCuts[ n, 7 ] )
|
|
lExecuted := ::evalMacro( ::aDftSCuts[ n, 7 ] )
|
|
ENDIF
|
|
ENDIF
|
|
|
|
RETURN lExecuted
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
METHOD IdeShortcuts:getMacrosList()
|
|
LOCAL aList := {}
|
|
|
|
aeval( ::aDftSCuts, {|e_| aadd( aList, e_[ 1 ] ) } )
|
|
|
|
RETURN aList
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
METHOD IdeShortcuts:loadKeys()
|
|
LOCAL a_
|
|
|
|
aadd( ::aKeys, { Qt_Key_Escape , "Escape " } )
|
|
aadd( ::aKeys, { Qt_Key_Tab , "Tab " } )
|
|
aadd( ::aKeys, { Qt_Key_Backtab , "Backtab " } )
|
|
aadd( ::aKeys, { Qt_Key_Backspace , "Backspace " } )
|
|
aadd( ::aKeys, { Qt_Key_Return , "Return " } )
|
|
aadd( ::aKeys, { Qt_Key_Enter , "Enter " } )
|
|
aadd( ::aKeys, { Qt_Key_Insert , "Insert " } )
|
|
aadd( ::aKeys, { Qt_Key_Delete , "Delete " } )
|
|
aadd( ::aKeys, { Qt_Key_Pause , "Pause " } )
|
|
aadd( ::aKeys, { Qt_Key_Print , "Print " } )
|
|
aadd( ::aKeys, { Qt_Key_SysReq , "SysReq " } )
|
|
aadd( ::aKeys, { Qt_Key_Clear , "Clear " } )
|
|
aadd( ::aKeys, { Qt_Key_Home , "Home " } )
|
|
aadd( ::aKeys, { Qt_Key_End , "End " } )
|
|
aadd( ::aKeys, { Qt_Key_Left , "Left " } )
|
|
aadd( ::aKeys, { Qt_Key_Up , "Up " } )
|
|
aadd( ::aKeys, { Qt_Key_Right , "Right " } )
|
|
aadd( ::aKeys, { Qt_Key_Down , "Down " } )
|
|
aadd( ::aKeys, { Qt_Key_PageUp , "PageUp " } )
|
|
aadd( ::aKeys, { Qt_Key_PageDown , "PageDown " } )
|
|
aadd( ::aKeys, { Qt_Key_CapsLock , "CapsLock " } )
|
|
aadd( ::aKeys, { Qt_Key_NumLock , "NumLock " } )
|
|
aadd( ::aKeys, { Qt_Key_ScrollLock , "ScrollLock " } )
|
|
aadd( ::aKeys, { Qt_Key_F1 , "F1 " } )
|
|
aadd( ::aKeys, { Qt_Key_F2 , "F2 " } )
|
|
aadd( ::aKeys, { Qt_Key_F3 , "F3 " } )
|
|
aadd( ::aKeys, { Qt_Key_F4 , "F4 " } )
|
|
aadd( ::aKeys, { Qt_Key_F5 , "F5 " } )
|
|
aadd( ::aKeys, { Qt_Key_F6 , "F6 " } )
|
|
aadd( ::aKeys, { Qt_Key_F7 , "F7 " } )
|
|
aadd( ::aKeys, { Qt_Key_F8 , "F8 " } )
|
|
aadd( ::aKeys, { Qt_Key_F9 , "F9 " } )
|
|
aadd( ::aKeys, { Qt_Key_F10 , "F10 " } )
|
|
aadd( ::aKeys, { Qt_Key_F11 , "F11 " } )
|
|
aadd( ::aKeys, { Qt_Key_F12 , "F12 " } )
|
|
aadd( ::aKeys, { Qt_Key_F13 , "F13 " } )
|
|
aadd( ::aKeys, { Qt_Key_F14 , "F14 " } )
|
|
aadd( ::aKeys, { Qt_Key_F15 , "F15 " } )
|
|
aadd( ::aKeys, { Qt_Key_F16 , "F16 " } )
|
|
aadd( ::aKeys, { Qt_Key_F17 , "F17 " } )
|
|
aadd( ::aKeys, { Qt_Key_F18 , "F18 " } )
|
|
aadd( ::aKeys, { Qt_Key_F19 , "F19 " } )
|
|
aadd( ::aKeys, { Qt_Key_F20 , "F20 " } )
|
|
aadd( ::aKeys, { Qt_Key_F21 , "F21 " } )
|
|
aadd( ::aKeys, { Qt_Key_F22 , "F22 " } )
|
|
aadd( ::aKeys, { Qt_Key_F23 , "F23 " } )
|
|
aadd( ::aKeys, { Qt_Key_F24 , "F24 " } )
|
|
aadd( ::aKeys, { Qt_Key_F25 , "F25 " } )
|
|
aadd( ::aKeys, { Qt_Key_F26 , "F26 " } )
|
|
aadd( ::aKeys, { Qt_Key_F27 , "F27 " } )
|
|
aadd( ::aKeys, { Qt_Key_F28 , "F28 " } )
|
|
aadd( ::aKeys, { Qt_Key_F29 , "F29 " } )
|
|
aadd( ::aKeys, { Qt_Key_F30 , "F30 " } )
|
|
aadd( ::aKeys, { Qt_Key_F31 , "F31 " } )
|
|
aadd( ::aKeys, { Qt_Key_F32 , "F32 " } )
|
|
aadd( ::aKeys, { Qt_Key_F33 , "F33 " } )
|
|
aadd( ::aKeys, { Qt_Key_F34 , "F34 " } )
|
|
aadd( ::aKeys, { Qt_Key_F35 , "F35 " } )
|
|
aadd( ::aKeys, { Qt_Key_Space , "Space " } )
|
|
aadd( ::aKeys, { Qt_Key_Exclam , "Exclam " } )
|
|
aadd( ::aKeys, { Qt_Key_QuoteDbl , "QuoteDbl " } )
|
|
aadd( ::aKeys, { Qt_Key_NumberSign , "NumberSign " } )
|
|
aadd( ::aKeys, { Qt_Key_Dollar , "Dollar " } )
|
|
aadd( ::aKeys, { Qt_Key_Percent , "Percent " } )
|
|
aadd( ::aKeys, { Qt_Key_Ampersand , "Ampersand " } )
|
|
aadd( ::aKeys, { Qt_Key_Apostrophe , "Apostrophe " } )
|
|
aadd( ::aKeys, { Qt_Key_ParenLeft , "ParenLeft " } )
|
|
aadd( ::aKeys, { Qt_Key_ParenRight , "ParenRight " } )
|
|
aadd( ::aKeys, { Qt_Key_Asterisk , "Asterisk " } )
|
|
aadd( ::aKeys, { Qt_Key_Plus , "Plus " } )
|
|
aadd( ::aKeys, { Qt_Key_Comma , "Comma " } )
|
|
aadd( ::aKeys, { Qt_Key_Minus , "Minus " } )
|
|
aadd( ::aKeys, { Qt_Key_Period , "Period " } )
|
|
aadd( ::aKeys, { Qt_Key_Slash , "Slash " } )
|
|
aadd( ::aKeys, { Qt_Key_0 , "0 " } )
|
|
aadd( ::aKeys, { Qt_Key_1 , "1 " } )
|
|
aadd( ::aKeys, { Qt_Key_2 , "2 " } )
|
|
aadd( ::aKeys, { Qt_Key_3 , "3 " } )
|
|
aadd( ::aKeys, { Qt_Key_4 , "4 " } )
|
|
aadd( ::aKeys, { Qt_Key_5 , "5 " } )
|
|
aadd( ::aKeys, { Qt_Key_6 , "6 " } )
|
|
aadd( ::aKeys, { Qt_Key_7 , "7 " } )
|
|
aadd( ::aKeys, { Qt_Key_8 , "8 " } )
|
|
aadd( ::aKeys, { Qt_Key_9 , "9 " } )
|
|
aadd( ::aKeys, { Qt_Key_Colon , "Colon " } )
|
|
aadd( ::aKeys, { Qt_Key_Semicolon , "Semicolon " } )
|
|
aadd( ::aKeys, { Qt_Key_Less , "Less " } )
|
|
aadd( ::aKeys, { Qt_Key_Equal , "Equal " } )
|
|
aadd( ::aKeys, { Qt_Key_Greater , "Greater " } )
|
|
aadd( ::aKeys, { Qt_Key_Question , "Question " } )
|
|
aadd( ::aKeys, { Qt_Key_At , "At " } )
|
|
aadd( ::aKeys, { Qt_Key_A , "A " } )
|
|
aadd( ::aKeys, { Qt_Key_B , "B " } )
|
|
aadd( ::aKeys, { Qt_Key_C , "C " } )
|
|
aadd( ::aKeys, { Qt_Key_D , "D " } )
|
|
aadd( ::aKeys, { Qt_Key_E , "E " } )
|
|
aadd( ::aKeys, { Qt_Key_F , "F " } )
|
|
aadd( ::aKeys, { Qt_Key_G , "G " } )
|
|
aadd( ::aKeys, { Qt_Key_H , "H " } )
|
|
aadd( ::aKeys, { Qt_Key_I , "I " } )
|
|
aadd( ::aKeys, { Qt_Key_J , "J " } )
|
|
aadd( ::aKeys, { Qt_Key_K , "K " } )
|
|
aadd( ::aKeys, { Qt_Key_L , "L " } )
|
|
aadd( ::aKeys, { Qt_Key_M , "M " } )
|
|
aadd( ::aKeys, { Qt_Key_N , "N " } )
|
|
aadd( ::aKeys, { Qt_Key_O , "O " } )
|
|
aadd( ::aKeys, { Qt_Key_P , "P " } )
|
|
aadd( ::aKeys, { Qt_Key_Q , "Q " } )
|
|
aadd( ::aKeys, { Qt_Key_R , "R " } )
|
|
aadd( ::aKeys, { Qt_Key_S , "S " } )
|
|
aadd( ::aKeys, { Qt_Key_T , "T " } )
|
|
aadd( ::aKeys, { Qt_Key_U , "U " } )
|
|
aadd( ::aKeys, { Qt_Key_V , "V " } )
|
|
aadd( ::aKeys, { Qt_Key_W , "W " } )
|
|
aadd( ::aKeys, { Qt_Key_X , "X " } )
|
|
aadd( ::aKeys, { Qt_Key_Y , "Y " } )
|
|
aadd( ::aKeys, { Qt_Key_Z , "Z " } )
|
|
aadd( ::aKeys, { Qt_Key_BracketLeft , "BracketLeft " } )
|
|
aadd( ::aKeys, { Qt_Key_Backslash , "Backslash " } )
|
|
aadd( ::aKeys, { Qt_Key_BracketRight , "BracketRight " } )
|
|
aadd( ::aKeys, { Qt_Key_AsciiCircum , "AsciiCircum " } )
|
|
aadd( ::aKeys, { Qt_Key_Underscore , "Underscore " } )
|
|
aadd( ::aKeys, { Qt_Key_QuoteLeft , "QuoteLeft " } )
|
|
aadd( ::aKeys, { Qt_Key_BraceLeft , "BraceLeft " } )
|
|
aadd( ::aKeys, { Qt_Key_Bar , "Bar " } )
|
|
aadd( ::aKeys, { Qt_Key_BraceRight , "BraceRight " } )
|
|
aadd( ::aKeys, { Qt_Key_AsciiTilde , "AsciiTilde " } )
|
|
|
|
FOR EACH a_ IN ::aKeys
|
|
a_[ 2 ] := trim( a_[ 2 ] )
|
|
NEXT
|
|
RETURN Self
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
// Edit Instance Specific / Override from top route
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:getWord( lSelect )
|
|
RETURN ::oEdit:getWord( lSelect )
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:getLine( nLine, lSelect )
|
|
RETURN ::oEdit:getLine( nLine, lSelect )
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:getText()
|
|
RETURN ::oEdit:getText()
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:duplicateLine()
|
|
RETURN ::oEdit:duplicateLine()
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:deleteLine()
|
|
RETURN ::oEdit:deleteLine()
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:moveLineUp()
|
|
RETURN ::oEdit:moveLine( -1 )
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:moveLineDown()
|
|
RETURN ::oEdit:moveLine( 1 )
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:gotoLine( nLine )
|
|
RETURN ::oEdit:goTo( nLine )
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:indentRight()
|
|
RETURN ::oEdit:blockIndent( 1 )
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:indentLeft()
|
|
RETURN ::oEdit:blockIndent( -1 )
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:blockComment()
|
|
RETURN ::oEdit:blockComment()
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:streamComment()
|
|
RETURN ::oEdit:streamComment()
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:insert( cText )
|
|
RETURN ::oEdit:insertText( cText )
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:separator( cSep )
|
|
RETURN ::oEdit:insertSeparator( cSep )
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:print()
|
|
RETURN ::oEdit:printPreview()
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:toUpper()
|
|
RETURN ::oEdit:caseUpper()
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:toLower()
|
|
RETURN ::oEdit:caseLower()
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:invertCase()
|
|
RETURN ::oEdit:caseInvert()
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:zoom( nKey )
|
|
RETURN ::oEdit:zoom( nKey )
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:cut()
|
|
RETURN ::oEdit:cut()
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:copy()
|
|
RETURN ::oEdit:copy()
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:paste()
|
|
RETURN ::oEdit:paste()
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:selectAll()
|
|
RETURN ::oEdit:selectAll()
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:redo()
|
|
RETURN ::oEdit:redo()
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:undo()
|
|
RETURN ::oEdit:undo()
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:setBookMark()
|
|
RETURN ::oEdit:setNewMark()
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:gotoMark( nIndex )
|
|
RETURN ::oEdit:gotoMark( nIndex )
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:switchToReadOnly()
|
|
RETURN ::oEdit:setReadOnly()
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:single2doubleQuotes()
|
|
RETURN ::oEdit:convertDQuotes()
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:double2singleQuotes()
|
|
RETURN ::oEdit:convertQuotes()
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:tabs2spaces()
|
|
RETURN ::oEdit:tabs2spaces()
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:removeTrailingSpaces()
|
|
RETURN ::oEdit:removeTrailingSpaces()
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:toggleLineNumbersDisplay()
|
|
RETURN ::oEdit:toggleLineNumbers()
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:presentSkeletons()
|
|
RETURN ::oEdit:presentSkeletons()
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:gotoFunction()
|
|
RETURN ::oEdit:gotoFunction()
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:toggleCurrentLineHilight()
|
|
RETURN ::oEdit:toggleCurrentLineHighlightMode()
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:toggleStreamSelectionMode()
|
|
RETURN ::oEdit:toggleStreamSelectionMode()
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:toggleColumnSelectionMode()
|
|
RETURN ::oEdit:toggleColumnSelectionMode()
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:toggleLineSelectionMode()
|
|
RETURN ::oEdit:toggleLineSelectionMode()
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:togglePersistentSelection()
|
|
RETURN ::oEdit:togglePersistentSelection()
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:clearSelection()
|
|
RETURN ::oEdit:clearSelection()
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:findAgain()
|
|
RETURN ::oEdit:findEx()
|
|
/*----------------------------------------------------------------------*/
|
|
// Navigation
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:home()
|
|
RETURN ::oEM:home()
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:end()
|
|
RETURN ::oEM:end()
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:down()
|
|
RETURN ::oEM:down()
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:up()
|
|
RETURN ::oEM:up()
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:goBottom()
|
|
RETURN ::oEM:goBottom()
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:goTop()
|
|
RETURN ::oEM:goTop()
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:left()
|
|
RETURN ::oEM:left()
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:right()
|
|
RETURN ::oEM:right()
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:panEnd()
|
|
RETURN ::oEM:panEnd()
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:panHome()
|
|
RETURN ::oEM:panHome()
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:pageUp()
|
|
RETURN ::oEM:pageUp()
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:pageDown()
|
|
RETURN ::oEM:pageDown()
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:find( cString, nPosFrom )
|
|
RETURN ::oEM:find( cString, nPosFrom )
|
|
/*----------------------------------------------------------------------*/
|
|
// Other Cpmponents
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:replace()
|
|
IF !empty( ::qCurEdit )
|
|
::oFR:replace()
|
|
ENDIF
|
|
RETURN Self
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:execTool( ... )
|
|
RETURN ::oTM:execTool( ... )
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:help( cTopic )
|
|
HB_SYMBOL_UNUSED( cTopic )
|
|
RETURN ::oHelpDock:show()
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:exit( lWarn )
|
|
IF HB_ISLOGICAL( lWarn ) .AND. lWarn
|
|
IF hbide_getYesNo( "Exit HbIDE ?", , "Macro Executed" )
|
|
PostAppEvent( xbeP_Close, NIL, NIL, ::oDlg )
|
|
ENDIF
|
|
ELSE
|
|
PostAppEvent( xbeP_Close, NIL, NIL, ::oDlg )
|
|
ENDIF
|
|
RETURN Self
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:newSource( cType )
|
|
HB_SYMBOL_UNUSED( cType )
|
|
RETURN ::oSM:editSource( '' )
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:open()
|
|
RETURN ::oSM:openSource()
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:save()
|
|
RETURN ::oSM:saveSource( ::oEM:getTabCurrent(), .f., .f. )
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:saveAs()
|
|
RETURN ::oSM:saveSource( ::oEM:getTabCurrent(), .t., .t. )
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:saveAll()
|
|
RETURN ::oSM:saveAllSources()
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:close()
|
|
RETURN ::oSM:closeSource()
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:revertToSaved()
|
|
RETURN Self
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:findDlg()
|
|
IF !Empty( ::qCurEdit )
|
|
::oFR:show()
|
|
ENDIF
|
|
RETURN Self
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:findDlgEx()
|
|
IF !Empty( ::qCurEdit )
|
|
::oSearchReplace:beginFind()
|
|
ENDIF
|
|
RETURN Self
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:build( cProj )
|
|
IF ! HB_ISSTRING( cProj )
|
|
cProj := ""
|
|
ENDIF
|
|
RETURN ::oPM:buildProject( cProj, .F., .F. )
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:buildLaunch( cProj )
|
|
IF ! HB_ISSTRING( cProj )
|
|
cProj := ""
|
|
ENDIF
|
|
RETURN ::oPM:buildProject( cProj, .T., .F. )
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:reBuild( cProj )
|
|
IF ! HB_ISSTRING( cProj )
|
|
cProj := ""
|
|
ENDIF
|
|
RETURN ::oPM:buildProject( cProj, .F., .T. )
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:reBuildLaunch( cProj )
|
|
IF ! HB_ISSTRING( cProj )
|
|
cProj := ""
|
|
ENDIF
|
|
RETURN ::oPM:buildProject( cProj, .T., .T. )
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:launch( cProj )
|
|
IF ! HB_ISSTRING( cProj )
|
|
cProj := ""
|
|
ENDIF
|
|
RETURN ::oPM:launchProject( cProj )
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:dlgKeyboardMappings()
|
|
RETURN ::oTM:show()
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:dlgToolsAndUtils()
|
|
RETURN ::oSC:show()
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:setView( cView )
|
|
IF empty( cView )
|
|
cView := "Stats"
|
|
ENDIF
|
|
RETURN ::oDK:setView( cView )
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:compilePPO()
|
|
RETURN ::oPM:buildProject( '', .F., .F., .T., .T. )
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:toggleStatusBar()
|
|
IF ::lStatusBarVisible
|
|
::oSBar:oWidget:hide()
|
|
ELSE
|
|
::oSBar:oWidget:show()
|
|
ENDIF
|
|
::oIde:lStatusBarVisible := ! ::lStatusBarVisible
|
|
RETURN Self
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:execPlugin( cPlugin, ... )
|
|
RETURN hbide_execPlugin( cPlugin, ::oIde, ... )
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:toNextFunction()
|
|
RETURN ::oEdit:toNextFunction()
|
|
/*----------------------------------------------------------------------*/
|
|
METHOD IdeShortcuts:toPrevFunction()
|
|
RETURN ::oEdit:toPreviousFunction()
|
|
/*----------------------------------------------------------------------*/
|
|
// Public API Definitions
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
METHOD IdeShortcuts:loadMethods()
|
|
|
|
aadd( ::aMethods, { ' General', ;
|
|
'', ;
|
|
'General API Methods follow.' } )
|
|
//........................................................//
|
|
aadd( ::aMethods, { 'help( cTopic )', ;
|
|
'help( "" )', ;
|
|
'Invokes "Help" docking widget in the right docking area. <cTopic> is not active yet.' } )
|
|
aadd( ::aMethods, { 'exit( lWarn )', ;
|
|
'exit( .f. )', ;
|
|
'Exits hbIDE. If <lWarn == TRUE> then confirmation is requested through a popup dialog. All sources are saved if in modified state after confirmation to do so.' } )
|
|
aadd( ::aMethods, { 'execTool( cName )' , ;
|
|
'execTool( "" )' , ;
|
|
'Executes a Tool defined and visible under tools menu.' } )
|
|
aadd( ::aMethods, { 'execTool( cCmd, cParams, cStartIn, lCapture, lShowOutput )' , ;
|
|
'execTool( "", "", "", .f., .f. )', ;
|
|
'Executes a program or file with parameters and other attributes.' + hb_eol() + ;
|
|
'http://hbide.vouch.info/ ( Topic: Tools and Utilities )' } )
|
|
aadd( ::aMethods, { 'execPlugin( cPlugin )', ;
|
|
'execPlugin( "" )', ;
|
|
'Attempts to execute third-party plugins. First parameter passed is the instance to SELF exposing public API methods. Next parameters are passes as a list.' } )
|
|
aadd( ::aMethods, { 'setBookMark()' , ;
|
|
'setBookMark()' , ;
|
|
'Attempts to install a bookmark onto current cursor position. If successful, mark appears as a colored tool-button on the statusbar and marked line is highlighted with the same color.' } )
|
|
aadd( ::aMethods, { 'gotoMark( nIndex )' , ;
|
|
'gotoMark( 1 )' , ;
|
|
'Attempts to reach mark represented by <nMark>. Please note maximum 6 bookmarks are avialable per edit instance.' } )
|
|
aadd( ::aMethods, { 'setView( cView )' , ;
|
|
'setView( "" )' , ;
|
|
'Brings <cView> panel to front. Defaults to "Stats", i.e., <Welcome> tab.' } )
|
|
aadd( ::aMethods, { 'presentSkeletons()', ;
|
|
'presentSkeletons()', ;
|
|
'Present snippets for selection.' } )
|
|
aadd( ::aMethods, { 'gotoFunction()', ;
|
|
'gotoFunction()', ;
|
|
'Takes under-cursor word and attempts to open the source containing that function in a new tab.' } )
|
|
aadd( ::aMethods, { 'toNextFunction()', ;
|
|
'toNextFunction()', ;
|
|
'Attempts to position the cursor at next available function body. Cursor is positioned centered in the editor.' } )
|
|
aadd( ::aMethods, { 'toPrevFunction()', ;
|
|
'toPrevFunction()', ;
|
|
'Attempts to position the cursor at previous function body. Cursor is positioned centered in the editor.' } )
|
|
|
|
aadd( ::aMethods, { ' Navigation', ;
|
|
'', ;
|
|
'Navigation API Methods follow.' } )
|
|
//........................................................//
|
|
aadd( ::aMethods, { 'down()', ;
|
|
'down()', ;
|
|
'Cursor is positioned one row down.' } )
|
|
aadd( ::aMethods, { 'up()', ;
|
|
'up()', ;
|
|
'Cursor is positioned one row up.' } )
|
|
aadd( ::aMethods, { 'pageDown()', ;
|
|
'pageDown()', ;
|
|
'Cursor is positioned one page down.' } )
|
|
aadd( ::aMethods, { 'pageUp()', ;
|
|
'pageUp()', ;
|
|
'Cursor is positioned one page up.' } )
|
|
aadd( ::aMethods, { 'goBottom()', ;
|
|
'goBottom()', ;
|
|
'Cursor is positioned at the end of the source.' } )
|
|
aadd( ::aMethods, { 'goTop()', ;
|
|
'goTop()', ;
|
|
'Cursor is positioned at the begining of the source.' } )
|
|
aadd( ::aMethods, { 'right()', ;
|
|
'right()', ;
|
|
'Cursor is positioned one character to the right. If there is no character to the right in current line, cursor is positioned on next line, character 0.' } )
|
|
aadd( ::aMethods, { 'left()', ;
|
|
'left()', ;
|
|
'Cursor is positioned one character to the left. If there is no character to the left in current line, cursor is positioned on previous line, last character.' } )
|
|
aadd( ::aMethods, { 'end()', ;
|
|
'end()', ;
|
|
'Cursor is positioned at the right-most column.' } )
|
|
aadd( ::aMethods, { 'home()', ;
|
|
'home()', ;
|
|
'Cursor is positioned at the left-most column.' } )
|
|
aadd( ::aMethods, { 'panEnd()', ;
|
|
'panEnd()', ;
|
|
'Cursor is positioned last visible column in the viewport.' } )
|
|
aadd( ::aMethods, { 'panHome()', ;
|
|
'panHome()', ;
|
|
'Cursor is positioned first visible column in the viewport.' } )
|
|
aadd( ::aMethods, { 'gotoLine( nLine )', ;
|
|
'gotoLine( )', ;
|
|
'Attempt is made to position the cursor at <nLine>. If <nLine> is not supplied, a "Goto" dialog is opened to supply <nLine>.' } )
|
|
|
|
aadd( ::aMethods, { ' Files', ;
|
|
'', ;
|
|
'Files API Methods follow.' } )
|
|
//........................................................//
|
|
aadd( ::aMethods, { 'newSource( cType )', ;
|
|
'newSource( "" )', ;
|
|
'Initiates a blank source file in an editing instance on the current panel.' } )
|
|
aadd( ::aMethods, { 'open()', ;
|
|
'open()', ;
|
|
'Invokes "Open File" dialog and if a selection is made and such selection is a HbIDE supported valid text file, that is opened in a new editor instance on visible panel.' } )
|
|
aadd( ::aMethods, { 'save()', ;
|
|
'save()', ;
|
|
'Saves the current editing instance if in modified state. Visual artifacts are updated accordingly.' } )
|
|
aadd( ::aMethods, { 'saveAs()', ;
|
|
'saveAs()', ;
|
|
'Opens "File Save Dialog" to fetch a file name and saves the current editing instance into new file. Visual artifacts are updated accordingly.' } )
|
|
aadd( ::aMethods, { 'saveAll()', ;
|
|
'saveAll()', ;
|
|
'Saves all opened editing instances on the visible panel, if in modified state. Visual artifacts are updated accordingly.' } )
|
|
aadd( ::aMethods, { 'close()', ;
|
|
'close()', ;
|
|
'Closes the current editing instance.' } )
|
|
aadd( ::aMethods, { 'print()', ;
|
|
'print()', ;
|
|
'Invokes "Print Preview" dialog with current source contents ready to be printed.' } )
|
|
|
|
aadd( ::aMethods, { ' Edit', ;
|
|
'', ;
|
|
'Edit API Methods follow.' } )
|
|
//........................................................//
|
|
aadd( ::aMethods, { 'cut()' , ;
|
|
'cut()' , ;
|
|
'Cuts the selected text and copies onto clipboard.' } )
|
|
aadd( ::aMethods, { 'copy()' , ;
|
|
'copy()' , ;
|
|
'Copies the selected text onto clipboard.' } )
|
|
aadd( ::aMethods, { 'paste()' , ;
|
|
'paste()' , ;
|
|
'Pastes the text available onto clipboard at the current cursor position.' } )
|
|
aadd( ::aMethods, { 'undo()' , ;
|
|
'undo()' , ;
|
|
'Attempts to undo the last operation if one still hangs in the buffer.' } )
|
|
aadd( ::aMethods, { 'redo()' , ;
|
|
'redo()' , ;
|
|
'Attempts to re-do the last undone action.' } )
|
|
aadd( ::aMethods, { 'selectAll()' , ;
|
|
'selectAll()' , ;
|
|
'Selects the whole text and places the cursor at the end of source.' } )
|
|
aadd( ::aMethods, { 'print()' , ;
|
|
'print()' , ;
|
|
'Opens Print Preview dialog which will contain the source line broken by pages.' } )
|
|
aadd( ::aMethods, { 'findDlg()', ;
|
|
'findDlg()', ;
|
|
'Invokes "Find and Replace" dialog.' } )
|
|
aadd( ::aMethods, { 'findAgain()', ;
|
|
'findAgain()', ;
|
|
'Finds last search string without opening the dialog.' } )
|
|
aadd( ::aMethods, { 'replace()', ;
|
|
'replace()', ;
|
|
'Replaces last replace string if some text is already selected without opening the dialog.' } )
|
|
aadd( ::aMethods, { 'findDlgEx()', ;
|
|
'findDlgEx()', ;
|
|
'Invokes extended "Find and Replace" dialog at the bottom of editing area.' } )
|
|
aadd( ::aMethods, { 'insert( cText )' , ;
|
|
'insert( "" )' , ;
|
|
'Insert <cText> at current cursor position.' } )
|
|
aadd( ::aMethods, { 'separator( cSep )' , ;
|
|
'separator( ' + '/*' + replicate( "-", 68 ) + '*/' + ' )', ;
|
|
'Inserts separator line <cSep> immediately before current line. <cSep> defaults to "/*---*/"' } )
|
|
aadd( ::aMethods, { 'tabs2spaces()', ;
|
|
'tabs2spaces()', ;
|
|
'Converts tabs to spaces, currently 3, the entire source. However, source is not saved.' } )
|
|
aadd( ::aMethods, { 'removeTrailingSpaces()', ;
|
|
'removeTrailingSpaces()', ;
|
|
'Removes trailing spaces per line, the entire source. However, source is not saved.' } )
|
|
aadd( ::aMethods, { 'switchToReadOnly()', ;
|
|
'switchToReadOnly()', ;
|
|
'Flags current editing instance read-only.' } )
|
|
|
|
aadd( ::aMethods, { ' Line Operations', ;
|
|
'', ;
|
|
'Line API Methods follow.' } )
|
|
//........................................................//
|
|
aadd( ::aMethods, { 'duplicateLine()', ;
|
|
'duplicateLine()', ;
|
|
'Duplicates current line.' } )
|
|
aadd( ::aMethods, { 'deleteLine()', ;
|
|
'deleteLine()', ;
|
|
'Deletes current line.' } )
|
|
aadd( ::aMethods, { 'moveLineUp()', ;
|
|
'moveLineUp()', ;
|
|
'Moves current line up.' } )
|
|
aadd( ::aMethods, { 'moveLineDown()', ;
|
|
'moveLineDown()', ;
|
|
'Moves current line down.' } )
|
|
|
|
aadd( ::aMethods, { ' Display Attributes', ;
|
|
'', ;
|
|
'Display API Methods follow.' } )
|
|
//........................................................//
|
|
aadd( ::aMethods, { 'zoom( nVal )' , ;
|
|
'zoom( +1 )' , ;
|
|
'Zooms in/out the current editing instance. nVal: 1-one size up; -1-one size less; NIL-original size; 5~30-to size.' } )
|
|
aadd( ::aMethods, { 'toggleLineNumbersDisplay()', ;
|
|
'toggleLineNumbersDisplay()', ;
|
|
'Toggles line numbers display inside editing instances. This action has global scope and is saved for next run.' } )
|
|
aadd( ::aMethods, { 'toggleCurrentLineHilight()', ;
|
|
'toggleCurrentLineHilight()', ;
|
|
'Toggles the mode to highlight current line or not in the editor. The effect is global. Setting is not retained for next run' } )
|
|
aadd( ::aMethods, { 'toggleStatusBar()', ;
|
|
'toggleStatusBar()', ;
|
|
'Toggles display of statusbar. The action is not saved for next run.' } )
|
|
|
|
aadd( ::aMethods, { ' Block Operations', ;
|
|
'', ;
|
|
'Blocks API Methods follow.' } )
|
|
//........................................................//
|
|
aadd( ::aMethods, { 'indentRight()', ;
|
|
'indentRight()', ;
|
|
'Pushes one character right the currently selected text.' } )
|
|
aadd( ::aMethods, { 'indentLeft()', ;
|
|
'indentLeft()', ;
|
|
'Pushes one character left the currently selected text. If there are no columns remains at left nothing happens.' } )
|
|
aadd( ::aMethods, { 'blockComment()', ;
|
|
'blockComment()', ;
|
|
'Encloses currently selected text in line comments where each line is prefixed with //.' } )
|
|
aadd( ::aMethods, { 'streamComment()', ;
|
|
'streamComment()', ;
|
|
'Encloses currently selected text in Anci-C like comments /* */' } )
|
|
aadd( ::aMethods, { 'toUpper()', ;
|
|
'toUpper()', ;
|
|
'Converts currently selected text to upper-case.' } )
|
|
aadd( ::aMethods, { 'toLower()', ;
|
|
'toLower()', ;
|
|
'Converts currently selected text to lower-case.' } )
|
|
aadd( ::aMethods, { 'invertCase()', ;
|
|
'invertCase()', ;
|
|
'Inverts case of currently selected text: upper => lower; lower => upper.' } )
|
|
aadd( ::aMethods, { 'single2doubleQuotes()', ;
|
|
'single2doubleQuotes()', ;
|
|
'Converts single quotes to double in the currently selected text.' } )
|
|
aadd( ::aMethods, { 'double2singleQuotes()', ;
|
|
'double2singleQuotes()', ;
|
|
'Converts double quotes to single in the currently selected text.' } )
|
|
|
|
|
|
aadd( ::aMethods, { ' Projects', ;
|
|
'', ;
|
|
'Projects API Methods follow.' } )
|
|
//........................................................//
|
|
aadd( ::aMethods, { 'build( cProj )', ;
|
|
'build( "" )', ;
|
|
'Builds <cProj> if it is already loaded. All sources are saved if found in modified state before "build" is initiated.' } )
|
|
aadd( ::aMethods, { 'buildLaunch( cProj )', ;
|
|
'buildLaunch( "" )', ;
|
|
'Builds and launches <cProj> if it is already loaded. All sources are saved if found in modified state before "build" is initiated.' } )
|
|
aadd( ::aMethods, { 'reBuild( cProj )', ;
|
|
'reBuild( "" )', ;
|
|
'Re-builds <cProj> if it is already loaded. All sources are saved if found in modified state before "build" is initiated.' } )
|
|
aadd( ::aMethods, { 'reBuildLaunch( cProj )', ;
|
|
'reBuildLaunch( "" )', ;
|
|
'Re-builds and launches <cProj> if it is already loaded. All sources are saved if found in modified state before "build" is initiated.' } )
|
|
aadd( ::aMethods, { 'launch( cProj )' , ;
|
|
'launch( "" )' , ;
|
|
'Launches <cProj> if it is already loaded.' } )
|
|
aadd( ::aMethods, { 'compilePPO()' , ;
|
|
'compilePPO()' , ;
|
|
'Attemps to compile current source to .ppo formats, and if successful, presents the compiled source in a new edit instance.' } )
|
|
|
|
aadd( ::aMethods, { ' Selections', ;
|
|
'', ;
|
|
'Selections API Methods follow.' } )
|
|
//........................................................//
|
|
aadd( ::aMethods, { 'toggleStreamSelectionMode()', ;
|
|
'toggleStreamSelectionMode()', ;
|
|
'Toggles stream selection mode. It switches on/off this mode.' } )
|
|
aadd( ::aMethods, { 'toggleColumnSelectionMode()', ;
|
|
'toggleColumnSelectionMode()', ;
|
|
'Toggles column selection mode. It switches on/off this mode.' } )
|
|
aadd( ::aMethods, { 'toggleLineSelectionMode()', ;
|
|
'toggleLineSelectionMode()', ;
|
|
'Toggles line selection mode. It switches on/off this mode' } )
|
|
aadd( ::aMethods, { 'clearSelection()', ;
|
|
'clearSelection()', ;
|
|
'Clears the selection block, if any, and resets the selection mode to stream.' } )
|
|
aadd( ::aMethods, { 'togglePersistentSelection()', ;
|
|
'togglePersistentSelection()', ;
|
|
'Toggles persistent selection mode. It switches on/off this mode' } )
|
|
|
|
|
|
aadd( ::aMethods, { ' Retreivals', ;
|
|
'', ;
|
|
'Text Retreival API Methods follow.' } )
|
|
//........................................................//
|
|
aadd( ::aMethods, { 'getWord( lSelect )', ;
|
|
'getWord( .f. )' , ;
|
|
'Returns text of the word under cursor. If <lSelect == .T.> text appears as selected.' } )
|
|
aadd( ::aMethods, { 'getLine( nLine, lSelect )', ;
|
|
'getLine( , .f. )' , ;
|
|
'Returns text of the current line. If <lSelect == .T.> text appears as selected.' } )
|
|
aadd( ::aMethods, { 'getText()' , ;
|
|
'getText()' , ;
|
|
'Returns current selected text.' } )
|
|
aadd( ::aMethods, { 'find( cString[, nFromPos ] )' , ;
|
|
'find( "" )' , ;
|
|
'Finds the <cString> from current location. If not found it searches backward. If <nFromPos> is given, it searches from this position and no backward search is performed.' } )
|
|
|
|
|
|
aadd( ::aMethods, { ' Activating Dialogs', ;
|
|
'', ;
|
|
'Dialog API Methods follow.' } )
|
|
//........................................................//
|
|
aadd( ::aMethods, { 'dlgKeyboardMappings()', ;
|
|
'dlgKeyboardMappings()', ;
|
|
'Opens "Keyboard Mappings" dialog.' } )
|
|
aadd( ::aMethods, { 'dlgToolsAndUtils()', ;
|
|
'dlgToolsAndUtils()', ;
|
|
'Opens "Toola & Utilities" dialog.' } )
|
|
|
|
RETURN Self
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
METHOD IdeShortcuts:loadDftSCuts()
|
|
LOCAL a_, b_
|
|
|
|
IF .t.
|
|
b_:= {}
|
|
|
|
/* Name Key Alt Ctrl Sh Menu Expr Icon */
|
|
//
|
|
aadd( b_, { "Help" , "F1" , "NO", "NO" , "NO" , "", '::help( "" )' , "help" , "", "" } )
|
|
aadd( b_, { "Exit" , "W" , "NO", "YES", "YES", "", '::exit( .f. )' , "exit" , "", "" } )
|
|
|
|
aadd( b_, { "Cut" , "X" , "NO", "YES", "NO" , "", '::cut()' , "cut" , "", "" } )
|
|
aadd( b_, { "Copy" , "C" , "NO", "YES", "NO" , "", '::copy()' , "copy" , "", "" } )
|
|
aadd( b_, { "Paste" , "V" , "NO", "YES", "NO" , "", '::paste()' , "paste" , "", "" } )
|
|
aadd( b_, { "Undo" , "Z" , "NO", "YES", "NO" , "", '::undo()' , "undo" , "", "" } )
|
|
aadd( b_, { "Redo" , "Y" , "NO", "YES", "NO" , "", '::redo()' , "redo" , "", "" } )
|
|
aadd( b_, { "SelectAll" , "A" , "NO", "YES", "NO" , "", '::selectAll()' , "selectall" , "", "" } )
|
|
|
|
aadd( b_, { "New Source" , "N" , "YES","NO" , "NO" , "", '::newSource( "" )' , "new" , "", "" } )
|
|
aadd( b_, { "Open" , "O" , "NO", "YES", "NO" , "", '::open()' , "open" , "", "" } )
|
|
aadd( b_, { "Save" , "S" , "NO", "YES", "NO" , "", '::save()' , "save" , "", "" } )
|
|
aadd( b_, { "Save All" , "S" , "NO", "YES", "YES", "", '::saveAll()' , "saveall" , "", "" } )
|
|
aadd( b_, { "Close" , "W" , "NO", "YES", "NO" , "", '::close()' , "close" , "", "" } )
|
|
aadd( b_, { "Print" , "P" , "NO", "YES", "NO" , "", '::print()' , "print" , "", "" } )
|
|
* aadd( b_, { "Revert to Saved" , "R" , "NO", "NO" , "YES", "", '::revertToSaved()' , "" , "", "" } )
|
|
|
|
aadd( b_, { "Find Dialog" , "F" , "NO", "YES", "NO" , "", '::findDlg()' , "find" , "", "" } )
|
|
aadd( b_, { "Find Again" , "N" , "NO", "YES", "NO" , "", '::findAgain()' , "" , "", "" } )
|
|
aadd( b_, { "Replace" , "R" , "NO", "YES", "NO" , "", '::replace()' , "" , "", "" } )
|
|
aadd( b_, { "Find Dialog Ex" , "F" , "NO", "YES", "YES", "", '::findDlgEx()' , "find" , "", "" } )
|
|
|
|
aadd( b_, { "Goto Line" , "G" , "NO", "YES", "NO" , "", '::gotoLine()' , "gotoline" , "", "" } )
|
|
aadd( b_, { "Duplicate Line" , "D" , "NO", "YES", "NO" , "", '::duplicateLine()' , "duplicateline" , "", "" } )
|
|
aadd( b_, { "Delete Line" , "Delete" , "NO", "YES", "NO" , "", '::deleteLine()' , "deleteline" , "", "" } )
|
|
aadd( b_, { "Line Up" , "Up" , "NO", "YES", "YES", "", '::moveLineUp()' , "movelineup" , "", "" } )
|
|
aadd( b_, { "Line Down" , "Down" , "NO", "YES", "YES", "", '::moveLineDown()' , "movelinedown" , "", "" } )
|
|
|
|
aadd( b_, { "Indent Right" , "Tab" , "NO", "YES", "NO" , "", '::indentRight()' , "blockindentr" , "", "" } )
|
|
aadd( b_, { "Indent Left" , "Tab" , "NO", "YES", "YES", "", '::indentLeft()' , "blockindentl" , "", "" } )
|
|
aadd( b_, { "Block Comment" , "Slash" , "NO", "YES", "YES", "", '::blockComment()' , "blockcomment" , "", "" } )
|
|
aadd( b_, { "Stream Comment" , "Q" , "NO", "YES", "YES", "", '::streamComment()' , "streamcomment" , "", "" } )
|
|
|
|
aadd( b_, { "Build Project" , "F9" , "NO", "YES", "NO" , "", '::build( "" )' , "build" , "", "" } )
|
|
aadd( b_, { "Build & Launch" , "F9" , "NO", "NO" , "NO" , "", '::buildLaunch( "" )' , "buildlaunch" , "", "" } )
|
|
aadd( b_, { "Launch Project" , "F10" , "NO", "YES", "NO" , "", '::launch( "" )' , "launch" , "", "" } )
|
|
|
|
aadd( b_, { "Insert Text" , "F7" , "NO", "YES", "NO" , "", '::insert( "" )' , "insert-external-file", "", "" } )
|
|
aadd( b_, { "Insert Separator", "F7" , "NO", "NO" , "NO" , "", '::separator( "" )' , "insert-separator", "", "" } )
|
|
|
|
aadd( b_, { "Toggle Line Selection Mode", "F11", "NO", "NO" , "NO" , "", '::toggleLineSelectionMode()', "" , "", "" } )
|
|
aadd( b_, { "Toggle Persistent Selection Mode", "F11", "NO", "YES" , "NO" , "", '::togglePersistentSelection()', "" , "", "" } )
|
|
aadd( b_, { "Clear Selection" , "F11" , "NO", "NO" , "YES", "", '::clearSelection()' , "" , "", "" } )
|
|
aadd( b_, { "Present Snippets", "K" , "NO", "YES", "NO" , "", '::presentSkeletons()' , "" , "", "" } )
|
|
aadd( b_, { "Goto Function" , "T" , "NO", "YES", "NO" , "", '::gotoFunction()' , "" , "", "" } )
|
|
aadd( b_, { "Next Function" , "PageDown", "YES", "NO", "NO", "", '::toNextFunction()' , "" , "", "" } )
|
|
aadd( b_, { "Prev Function" , "PageUp" , "YES", "NO", "NO" , "", '::toPrevFunction()' , "" , "", "" } )
|
|
|
|
::aDftSCuts := b_
|
|
ENDIF
|
|
|
|
IF !empty( a_:= hbide_loadShortcuts( ::oIde ) )
|
|
::mergeMacros( a_ )
|
|
ENDIF
|
|
|
|
RETURN Self
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
METHOD IdeShortcuts:mergeMacros( a_ )
|
|
LOCAL c_, n
|
|
|
|
FOR EACH c_ IN a_
|
|
IF ( n := ascan( ::aDftSCuts, {|e_| e_[ 2 ] == c_[ 2 ] .AND. e_[ 3 ] == c_[ 3 ] .AND. ;
|
|
e_[ 4 ] == c_[ 4 ] .AND. e_[ 5 ] == c_[ 5 ] } ) ) == 0
|
|
aadd( ::aDftSCuts, c_ )
|
|
ELSE
|
|
::aDftSCuts[ n ] := c_
|
|
ENDIF
|
|
NEXT
|
|
|
|
RETURN Self
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
#if 0
|
|
CASE "Environments"
|
|
::oEV:fetchNew()
|
|
EXIT
|
|
CASE "Animate"
|
|
::nAnimantionMode := iif( ::nAnimantionMode == HBIDE_ANIMATION_NONE, HBIDE_ANIMATION_GRADIENT, HBIDE_ANIMATION_NONE )
|
|
::oDK:animateComponents( ::nAnimantionMode )
|
|
EXIT
|
|
CASE "Help"
|
|
::oHelpDock:show()
|
|
EXIT
|
|
CASE "Goto"
|
|
::oEM:goTo()
|
|
EXIT
|
|
CASE "FormatBraces"
|
|
::oEM:formatBraces()
|
|
EXIT
|
|
CASE "SaveExit"
|
|
::oSM:saveAndExit()
|
|
EXIT
|
|
CASE "Revert"
|
|
::oSM:RevertSource()
|
|
EXIT
|
|
CASE "CloseAll"
|
|
::oSM:closeAllSources()
|
|
EXIT
|
|
CASE "CloseOther"
|
|
::oSM:closeAllOthers()
|
|
EXIT
|
|
CASE "NewProject"
|
|
::oPM:loadProperties( , .t., .t., .t. )
|
|
EXIT
|
|
CASE "Properties"
|
|
::oPM:getProperties()
|
|
EXIT
|
|
CASE "SelectProject"
|
|
::oPM:selectCurrentProject()
|
|
EXIT
|
|
CASE "CloseProject"
|
|
::oPM:closeProject()
|
|
EXIT
|
|
ENDSWITCH
|
|
#endif
|
|
/*----------------------------------------------------------------------*/
|