fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2012-07-15 00:57 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)

Browse Source 
* contrib/hbide/idetools.prg
    * Minor.
  * contrib/hbide/hbide.hbp
  * contrib/hbide/ideactions.prg
  * contrib/hbide/idemain.prg
  * contrib/hbide/ideobject.prg
  + contrib/hbide/ideprojectwizard.prg
  + contrib/hbide/projectwizard.ui
    + Added: .ui and class to offer the facility to create a project 
        with minimum of efforts. It is just the begining, only user
        interface is available currently, a work-in-progress. This 
        can be accessed via <Main Menu><Project><New Project Wizard>.
        Do have a look and let me know if more can be added...
This commit is contained in:
Pritpal Bedi
2012-07-15 08:13:53 +00:00
parent 90ed61138f
commit 2e0ac6cd88
8 changed files with 1289 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
harbour/ChangeLog
View File

@@ -16,6 +16,21 @@
The license applies to all entries newer than 2009-04-28.
*/
2012-07-15 00:57 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
* contrib/hbide/idetools.prg
* Minor.
* contrib/hbide/hbide.hbp
* contrib/hbide/ideactions.prg
* contrib/hbide/idemain.prg
* contrib/hbide/ideobject.prg
+ contrib/hbide/ideprojectwizard.prg
+ contrib/hbide/projectwizard.ui
+ Added: .ui and class to offer the facility to create a project
with minimum of efforts. It is just the begining, only user
interface is available currently, a work-in-progress. This
can be accessed via <Main Menu><Project><New Project Wizard>.
Do have a look and let me know if more can be added...
2012-07-14 13:50 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
* contrib/hbide/ideedit.prg
* contrib/hbide/ideeditor.prg

2
harbour/contrib/hbide/hbide.hbp
View File

@@ -59,6 +59,7 @@ idechangelog.prg
ideconsole.prg
ideparseexpr.c
ideuisrcmanager.prg
ideprojectwizard.prg
docviewgenerator.ui
docwriter.ui
@@ -89,6 +90,7 @@ tables.ui
updown_v.ui
format.ui
changelog.ui
projectwizard.ui
hbide.qrc

5
harbour/contrib/hbide/ideactions.prg
View File

@@ -80,7 +80,7 @@ CLASS IdeActions INHERIT IdeObject
DATA hActions INIT { => }
DATA oActToolsBtn
METHOD new( oIde )
METHOD create( oIde )
METHOD destroy()
@@ -577,7 +577,8 @@ METHOD IdeActions:buildMainMenu()
oSubMenu:addItem( { ::getAction( "SelectProject" ), {|| oIde:execAction( "SelectProject" ) } } )
oSubMenu:addItem( { ::getAction( "CloseProject" ), {|| oIde:execAction( "CloseProject" ) } } )
hbide_menuAddSep( oSubMenu )
oSubMenu:addItem( { ::getAction( "Environments" ), {|| oIde:execAction( "Environments" ) } } )
// oSubMenu:addItem( { ::getAction( "Environments" ), {|| oIde:execAction( "Environments" ) } } )
oSubMenu:addItem( { "New Project Wizard" , {|| oIde:oPWZ:show() } } )
oMenuBar:addItem( { oSubMenu, NIL } )
/*----------------------------------------------------------------------------*/

4
harbour/contrib/hbide/idemain.prg
View File

@@ -171,6 +171,7 @@ CLASS HbIde
DATA oCL /* ChangeLog Manager */
DATA oCUI /* CUI Screen Designer Console */
DATA oUiS /* UI Source Writer */
DATA oPWZ /* Project Wizard */
DATA nRunMode INIT HBIDE_RUN_MODE_INI
DATA nAnimantionMode INIT HBIDE_ANIMATION_NONE
@@ -572,6 +573,9 @@ METHOD HbIde:create( aParams )
/* Initiate UI Source Manager */
::oUiS := IdeUISrcManager():new( Self ):create()
/* Initiate Project Wizard */
::oPWZ := IdeProjectWizard():new( Self ):create()
/* Initialte Project Manager */
::oPM := IdeProjManager():new( Self ):create()

1
harbour/contrib/hbide/ideobject.prg
View File

@@ -104,6 +104,7 @@ CLASS IdeObject
ACCESS oCL INLINE ::oIde:oCL
ACCESS oCUI INLINE ::oIde:oCUI
ACCESS oUiS INLINE ::oIde:oUiS
ACCESS oPWZ INLINE ::oIde:oPWZ
ACCESS aMeta INLINE ::oIde:aMeta
ACCESS aTags INLINE ::oIde:aTags

154
harbour/contrib/hbide/ideprojectwizard.prg Normal file
View File

@@ -0,0 +1,154 @@
/*
* $Id$
*/
/*
* Harbour Project source code:
*
* Copyright 2009-2012 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-Qt IDE
*
* Pritpal Bedi <pritpal@vouchcac.com>
* 14Jul2012
*/
/*----------------------------------------------------------------------*/
/*----------------------------------------------------------------------*/
/*----------------------------------------------------------------------*/
#include "hbide.ch"
#include "hbqtgui.ch"
#include "common.ch"
#include "hbclass.ch"
/*----------------------------------------------------------------------*/
//
// Class IdeProjectWizard
//
/*----------------------------------------------------------------------*/
CREATE CLASS IdeProjectWizard INHERIT IdeObject
METHOD new( oIde )
METHOD create( oIde )
METHOD destroy()
METHOD show()
METHOD execEvent( xEvent, p, p1 )
ENDCLASS
/*----------------------------------------------------------------------*/
METHOD IdeProjectWizard:new( oIde )
DEFAULT oIde TO ::oIde
::oIde := oIde
RETURN Self
/*----------------------------------------------------------------------*/
METHOD IdeProjectWizard:create( oIde )
DEFAULT oIde TO ::oIde
::oIde := oIde
RETURN Self
/*----------------------------------------------------------------------*/
METHOD IdeProjectWizard:destroy()
RETURN Self
/*----------------------------------------------------------------------*/
METHOD IdeProjectWizard:show()
IF empty( ::oUI )
::oUI := ui_projectWizard():new()
::oUI:oWidget:connect( QEvent_Close, {|| ::oUI:oWidget:done( 0 ) } )
::oUI:setWindowFlags( Qt_Sheet )
::oUI:setWindowIcon( QIcon( hbide_image( "hbide" ) ) )
::oUI:btnNext:connect( "clicked()", {|| ::execEvent( "btnNext_clicked" ) } )
::oUI:btnBack:connect( "clicked()", {|| ::execEvent( "btnBack_clicked" ) } )
ENDIF
::oUI:exec()
::oUI:oWidget:hide()
RETURN Self
/*----------------------------------------------------------------------*/
METHOD IdeProjectWizard:execEvent( xEvent, p, p1 )
HB_SYMBOL_UNUSED( p )
HB_SYMBOL_UNUSED( p1 )
SWITCH xEvent
CASE "btnNext_clicked"
IF ::oUI:stackedWidget:currentIndex() == 0
::oUI:stackedWidget:setcurrentIndex( 1 )
ENDIF
EXIT
CASE "btnBack_clicked"
IF ::oUI:stackedWidget:currentIndex() == 1
::oUI:stackedWidget:setcurrentIndex( 0 )
ENDIF
EXIT
ENDSWITCH
RETURN NIL
/*----------------------------------------------------------------------*/

2
harbour/contrib/hbide/idetools.prg
View File

@@ -172,7 +172,7 @@ METHOD IdeToolsManager:destroy()
::qToolsButton := NIL
::clearList()
::qPanelsButton :disconnect( "clicked()" )
::qPanelsButton :disconnect( "clicked()" )
::oUI:buttonAdd :disconnect( "clicked()" )
::oUI:buttonDelete :disconnect( "clicked()" )
::oUI:buttonUp :disconnect( "clicked()" )

1109
harbour/contrib/hbide/projectwizard.ui Normal file
View File

File diff suppressed because it is too large Load Diff