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

2012-09-07 18:24 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)

Browse Source 
* contrib/gtwvg/crt.prg
    ! A Nasty Fix. Was not releasing children snd hence the memory.

  * contrib/hbide/actions.prg
  * contrib/hbide/docks.prg
    + Added: separate toolbar for "Files" actions.
This commit is contained in:
Pritpal Bedi
2012-09-08 01:29:16 +00:00
parent b55e77a8da
commit a0b380fb84
4 changed files with 43 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
harbour/ChangeLog
View File

@@ -16,6 +16,14 @@
The license applies to all entries newer than 2009-04-28.
*/
2012-09-07 18:24 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
* contrib/gtwvg/crt.prg
! A Nasty Fix. Was not releasing children snd hence the memory.
* contrib/hbide/actions.prg
* contrib/hbide/docks.prg
+ Added: separate toolbar for "Files" actions.
2012-09-07 09:24 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
* contrib/hbide/docks.prg
* contrib/hbide/stylesheets.prg

3
harbour/contrib/gtwvg/crt.prg
View File

@@ -391,6 +391,7 @@ METHOD WvgCrt:destroy()
IF Len( ::aChildren ) > 0
aeval( ::aChildren, {|o| o:destroy() } )
::aChildren := {}
ENDIF
IF ! ::isGT
@@ -403,6 +404,8 @@ METHOD WvgCrt:destroy()
::pGTp := NIL
ENDIF
::WvgWindow:destroy()
RETURN Self
/*----------------------------------------------------------------------*/

39
harbour/contrib/hbide/actions.prg
View File

@@ -94,6 +94,7 @@ CLASS IdeActions INHERIT IdeObject
DATA oActToolsBtn
DATA qMainToolbar
DATA qFilesToolbar
DATA qPartsToolbar
DATA qProjectToolbar
DATA qTBarDocks
@@ -113,6 +114,7 @@ CLASS IdeActions INHERIT IdeObject
METHOD buildToolBars()
METHOD buildToolbarMain()
METHOD buildToolbarFiles()
METHOD buildToolbarParts()
METHOD buildToolbarProject()
METHOD buildToolbarDocks()
@@ -526,6 +528,7 @@ METHOD IdeActions:buildMainMenu()
oSubMenu:addItem( { oSubMenu2, "Toolbars" } )
oSubMenu2:oWidget:addAction( ::oIde:oMainToolbar:oWidget:toggleViewAction() )
oSubMenu2:oWidget:addAction( ::qFilesToolbar:toggleViewAction() )
oSubMenu2:oWidget:addAction( ::qPartsToolbar:toggleViewAction() )
oSubMenu2:oWidget:addAction( ::qProjectToolbar:toggleViewAction() )
oSubMenu2:oWidget:addAction( ::qTBarDocks:toggleViewAction() )
@@ -966,6 +969,7 @@ STATIC FUNCTION hbide_buildCodecMenu( oIde, oMenu )
METHOD IdeActions:buildToolBars()
::buildToolbarMain()
::buildToolbarFiles()
::buildToolbarParts()
::buildToolbarProject()
::buildToolBarDocks()
@@ -1000,13 +1004,6 @@ METHOD IdeActions:buildToolbarMain()
::oActToolsBtn := oTBar:oWidget:addWidget( ::oIde:oTM:buildToolsButton() )
oTBar:addItem( , , , , , nSep )
::oActToolsBtn := oTBar:oWidget:addWidget( ::oIde:oTM:buildViewsButton() )
oTBar:addItem( , , , , , nSep )
oTBar:addItem( ::getAction( "TB_New" ), , , , , , "New" )
oTBar:addItem( ::getAction( "TB_Open" ), , , , , , "Open" )
oTBar:addItem( ::getAction( "TB_Save" ), , , , , , "Save" )
oTBar:addItem( ::getAction( "TB_Close" ), , , , , , "Close" )
oTBar:addItem( ::getAction( "TB_Print" ), , , , , , "Print" )
::oIde:oMainToolbar := oTBar
@@ -1014,9 +1011,35 @@ METHOD IdeActions:buildToolbarMain()
/*----------------------------------------------------------------------*/
METHOD IdeActions:buildToolbarFiles()
::qFilesToolbar := HBQToolBar():new( "ToolBar_Files" )
::qFilesToolbar:cName := "ToolBar_Files"
::qFilesToolbar:allowedAreas := Qt_LeftToolBarArea + Qt_RightToolBarArea + Qt_TopToolBarArea + Qt_BottomToolBarArea
::qFilesToolbar:size := QSize( 12, 12 )
::qFilesToolbar:create()
::qFilesToolbar:setStyleSheet( GetStyleSheet( "QToolBarLR5", ::nAnimantionMode ) )
::qFilesToolbar:setWindowTitle( "Ide Files" )
::qFilesToolbar:setToolButtonStyle( Qt_ToolButtonIconOnly )
::qFilesToolbar:addAction( "IdeNew" , ::getAction( "TB_New" ), {|| ::oIde:execAction( "new" ) } )
::qFilesToolbar:addAction( "IdeOpen", ::getAction( "TB_Open" ), {|| ::oIde:execAction( "Open" ) } )
::qFilesToolbar:addAction( "IdeOpen", ::getAction( "TB_Save" ), {|| ::oIde:execAction( "Save" ) } )
::qFilesToolbar:addAction( "IdeOpen", ::getAction( "TB_Close" ), {|| ::oIde:execAction( "Close" ) } )
::qFilesToolbar:addAction( "IdeOpen", ::getAction( "TB_Print" ), {|| ::oIde:execAction( "Print" ) } )
::oDlg:oWidget:addToolBar( Qt_TopToolBarArea, ::qFilesToolbar:oWidget )
RETURN Self
/*----------------------------------------------------------------------*/
METHOD IdeActions:buildToolbarParts()
::qPartsToolbar := HBQToolBar():new( "ToolBar_Docks" )
::qPartsToolbar := HBQToolBar():new( "ToolBar_Parts" )
::qPartsToolbar:cName := "ToolBar_Parts"
::qPartsToolbar:allowedAreas := Qt_LeftToolBarArea + Qt_RightToolBarArea + Qt_TopToolBarArea + Qt_BottomToolBarArea

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

@@ -1655,6 +1655,7 @@ METHOD IdeDocks:animateComponents( nMode )
/* Toolbars */
::oMainToolbar:oWidget:setStyleSheet( GetStyleSheet( iif( ::oMainToolbar : oWidget:orientation() == Qt_Horizontal, "QToolBar", "QToolBarLR5" ), nMode ) )
::oAC:qFilesToolbar :setStyleSheet( GetStyleSheet( iif( ::oAC:qFilesToolbar : oWidget:orientation() == Qt_Horizontal, "QToolBar", "QToolBarLR5" ), nMode ) )
::oAC:qTBarDocks :setStyleSheet( GetStyleSheet( iif( ::oAC:qTBarDocks : oWidget:orientation() == Qt_Horizontal, "QToolBar", "QToolBarLR5" ), nMode ) )
::oAC:qPartsToolbar :setStyleSheet( GetStyleSheet( iif( ::oAC:qPartsToolbar : oWidget:orientation() == Qt_Horizontal, "QToolBar", "QToolBarLR5" ), nMode ) )
::oAC:qProjectToolbar :setStyleSheet( GetStyleSheet( iif( ::oAC:qProjectToolbar: oWidget:orientation() == Qt_Horizontal, "QToolBar", "QToolBarLR5" ), nMode ) )