1*b1cdbd2cSJim Jagielski /**************************************************************
2*b1cdbd2cSJim Jagielski *
3*b1cdbd2cSJim Jagielski * Licensed to the Apache Software Foundation (ASF) under one
4*b1cdbd2cSJim Jagielski * or more contributor license agreements. See the NOTICE file
5*b1cdbd2cSJim Jagielski * distributed with this work for additional information
6*b1cdbd2cSJim Jagielski * regarding copyright ownership. The ASF licenses this file
7*b1cdbd2cSJim Jagielski * to you under the Apache License, Version 2.0 (the
8*b1cdbd2cSJim Jagielski * "License"); you may not use this file except in compliance
9*b1cdbd2cSJim Jagielski * with the License. You may obtain a copy of the License at
10*b1cdbd2cSJim Jagielski *
11*b1cdbd2cSJim Jagielski * http://www.apache.org/licenses/LICENSE-2.0
12*b1cdbd2cSJim Jagielski *
13*b1cdbd2cSJim Jagielski * Unless required by applicable law or agreed to in writing,
14*b1cdbd2cSJim Jagielski * software distributed under the License is distributed on an
15*b1cdbd2cSJim Jagielski * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
16*b1cdbd2cSJim Jagielski * KIND, either express or implied. See the License for the
17*b1cdbd2cSJim Jagielski * specific language governing permissions and limitations
18*b1cdbd2cSJim Jagielski * under the License.
19*b1cdbd2cSJim Jagielski *
20*b1cdbd2cSJim Jagielski *************************************************************/
21*b1cdbd2cSJim Jagielski
22*b1cdbd2cSJim Jagielski
23*b1cdbd2cSJim Jagielski
24*b1cdbd2cSJim Jagielski // MARKER(update_precomp.py): autogen include statement, do not remove
25*b1cdbd2cSJim Jagielski #include "precompiled_cui.hxx"
26*b1cdbd2cSJim Jagielski
27*b1cdbd2cSJim Jagielski #define ITEMID_MACRO 0
28*b1cdbd2cSJim Jagielski #include <svl/macitem.hxx>
29*b1cdbd2cSJim Jagielski #undef ITEMID_MACRO
30*b1cdbd2cSJim Jagielski
31*b1cdbd2cSJim Jagielski #include "macroass.hxx"
32*b1cdbd2cSJim Jagielski
33*b1cdbd2cSJim Jagielski #include <basic/basmgr.hxx>
34*b1cdbd2cSJim Jagielski #include <dialmgr.hxx>
35*b1cdbd2cSJim Jagielski #include <svx/dialogs.hrc>
36*b1cdbd2cSJim Jagielski #define _SVSTDARR_STRINGSDTOR
37*b1cdbd2cSJim Jagielski #include <svl/svstdarr.hxx>
38*b1cdbd2cSJim Jagielski
39*b1cdbd2cSJim Jagielski #include <svtools/svmedit.hxx>
40*b1cdbd2cSJim Jagielski #include "cfgutil.hxx"
41*b1cdbd2cSJim Jagielski #include <sfx2/app.hxx>
42*b1cdbd2cSJim Jagielski #include <sfx2/evntconf.hxx>
43*b1cdbd2cSJim Jagielski #include <sfx2/objsh.hxx>
44*b1cdbd2cSJim Jagielski #include "macroass.hrc"
45*b1cdbd2cSJim Jagielski #include "cuires.hrc"
46*b1cdbd2cSJim Jagielski #include <vcl/fixed.hxx>
47*b1cdbd2cSJim Jagielski #include "headertablistbox.hxx"
48*b1cdbd2cSJim Jagielski
49*b1cdbd2cSJim Jagielski using ::com::sun::star::uno::Reference;
50*b1cdbd2cSJim Jagielski using ::com::sun::star::frame::XFrame;
51*b1cdbd2cSJim Jagielski
52*b1cdbd2cSJim Jagielski class _SfxMacroTabPage_Impl
53*b1cdbd2cSJim Jagielski {
54*b1cdbd2cSJim Jagielski public:
55*b1cdbd2cSJim Jagielski _SfxMacroTabPage_Impl( void );
56*b1cdbd2cSJim Jagielski ~_SfxMacroTabPage_Impl();
57*b1cdbd2cSJim Jagielski
58*b1cdbd2cSJim Jagielski String maStaticMacroLBLabel;
59*b1cdbd2cSJim Jagielski PushButton* pAssignPB;
60*b1cdbd2cSJim Jagielski PushButton* pDeletePB;
61*b1cdbd2cSJim Jagielski String* pStrEvent;
62*b1cdbd2cSJim Jagielski String* pAssignedMacro;
63*b1cdbd2cSJim Jagielski _HeaderTabListBox* pEventLB;
64*b1cdbd2cSJim Jagielski SfxConfigGroupListBox_Impl* pGroupLB;
65*b1cdbd2cSJim Jagielski FixedText* pFT_MacroLBLabel;
66*b1cdbd2cSJim Jagielski SfxConfigFunctionListBox_Impl* pMacroLB;
67*b1cdbd2cSJim Jagielski
68*b1cdbd2cSJim Jagielski FixedText* pMacroFT;
69*b1cdbd2cSJim Jagielski String* pMacroStr;
70*b1cdbd2cSJim Jagielski
71*b1cdbd2cSJim Jagielski sal_Bool bReadOnly;
72*b1cdbd2cSJim Jagielski Timer maFillGroupTimer;
73*b1cdbd2cSJim Jagielski sal_Bool bGotEvents;
74*b1cdbd2cSJim Jagielski };
75*b1cdbd2cSJim Jagielski
_SfxMacroTabPage_Impl(void)76*b1cdbd2cSJim Jagielski _SfxMacroTabPage_Impl::_SfxMacroTabPage_Impl( void ) :
77*b1cdbd2cSJim Jagielski pAssignPB( NULL ),
78*b1cdbd2cSJim Jagielski pDeletePB( NULL ),
79*b1cdbd2cSJim Jagielski pStrEvent( NULL ),
80*b1cdbd2cSJim Jagielski pAssignedMacro( NULL ),
81*b1cdbd2cSJim Jagielski pEventLB( NULL ),
82*b1cdbd2cSJim Jagielski pGroupLB( NULL ),
83*b1cdbd2cSJim Jagielski pFT_MacroLBLabel( NULL ),
84*b1cdbd2cSJim Jagielski pMacroLB( NULL ),
85*b1cdbd2cSJim Jagielski pMacroFT( NULL ),
86*b1cdbd2cSJim Jagielski pMacroStr( NULL ),
87*b1cdbd2cSJim Jagielski bReadOnly( sal_False ),
88*b1cdbd2cSJim Jagielski bGotEvents( sal_False )
89*b1cdbd2cSJim Jagielski {
90*b1cdbd2cSJim Jagielski }
91*b1cdbd2cSJim Jagielski
~_SfxMacroTabPage_Impl()92*b1cdbd2cSJim Jagielski _SfxMacroTabPage_Impl::~_SfxMacroTabPage_Impl()
93*b1cdbd2cSJim Jagielski {
94*b1cdbd2cSJim Jagielski delete pAssignPB;
95*b1cdbd2cSJim Jagielski delete pDeletePB;
96*b1cdbd2cSJim Jagielski delete pStrEvent;
97*b1cdbd2cSJim Jagielski delete pAssignedMacro;
98*b1cdbd2cSJim Jagielski delete pEventLB;
99*b1cdbd2cSJim Jagielski delete pGroupLB;
100*b1cdbd2cSJim Jagielski delete pMacroLB;
101*b1cdbd2cSJim Jagielski delete pFT_MacroLBLabel;
102*b1cdbd2cSJim Jagielski delete pMacroFT;
103*b1cdbd2cSJim Jagielski delete pMacroStr;
104*b1cdbd2cSJim Jagielski }
105*b1cdbd2cSJim Jagielski
106*b1cdbd2cSJim Jagielski
107*b1cdbd2cSJim Jagielski static sal_uInt16 __FAR_DATA aPageRg[] = {
108*b1cdbd2cSJim Jagielski SID_ATTR_MACROITEM, SID_ATTR_MACROITEM,
109*b1cdbd2cSJim Jagielski 0
110*b1cdbd2cSJim Jagielski };
111*b1cdbd2cSJim Jagielski
112*b1cdbd2cSJim Jagielski // Achtung im Code wird dieses Array direkt (0, 1, ...) indiziert
113*b1cdbd2cSJim Jagielski static long nTabs[] =
114*b1cdbd2cSJim Jagielski {
115*b1cdbd2cSJim Jagielski 2, // Number of Tabs
116*b1cdbd2cSJim Jagielski 0, 90
117*b1cdbd2cSJim Jagielski };
118*b1cdbd2cSJim Jagielski
119*b1cdbd2cSJim Jagielski #define TAB_WIDTH_MIN 10
120*b1cdbd2cSJim Jagielski
121*b1cdbd2cSJim Jagielski // IDs for items in HeaderBar of EventLB
122*b1cdbd2cSJim Jagielski #define ITEMID_EVENT 1
123*b1cdbd2cSJim Jagielski #define ITMEID_ASSMACRO 2
124*b1cdbd2cSJim Jagielski
125*b1cdbd2cSJim Jagielski
126*b1cdbd2cSJim Jagielski #define LB_EVENTS_ITEMPOS 1
127*b1cdbd2cSJim Jagielski #define LB_MACROS_ITEMPOS 2
128*b1cdbd2cSJim Jagielski
ConvertToUIName_Impl(SvxMacro * pMacro)129*b1cdbd2cSJim Jagielski String ConvertToUIName_Impl( SvxMacro *pMacro )
130*b1cdbd2cSJim Jagielski {
131*b1cdbd2cSJim Jagielski String aName( pMacro->GetMacName() );
132*b1cdbd2cSJim Jagielski String aEntry;
133*b1cdbd2cSJim Jagielski if ( ! pMacro->GetLanguage().EqualsAscii("JavaScript") )
134*b1cdbd2cSJim Jagielski {
135*b1cdbd2cSJim Jagielski sal_uInt16 nCount = aName.GetTokenCount('.');
136*b1cdbd2cSJim Jagielski aEntry = aName.GetToken( nCount-1, '.' );
137*b1cdbd2cSJim Jagielski if ( nCount > 2 )
138*b1cdbd2cSJim Jagielski {
139*b1cdbd2cSJim Jagielski aEntry += '(';
140*b1cdbd2cSJim Jagielski aEntry += aName.GetToken( 0, '.' );
141*b1cdbd2cSJim Jagielski aEntry += '.';
142*b1cdbd2cSJim Jagielski aEntry += aName.GetToken( nCount-2, '.' );
143*b1cdbd2cSJim Jagielski aEntry += ')';
144*b1cdbd2cSJim Jagielski }
145*b1cdbd2cSJim Jagielski return aEntry;
146*b1cdbd2cSJim Jagielski }
147*b1cdbd2cSJim Jagielski else
148*b1cdbd2cSJim Jagielski return aName;
149*b1cdbd2cSJim Jagielski }
150*b1cdbd2cSJim Jagielski
EnableButtons()151*b1cdbd2cSJim Jagielski void _SfxMacroTabPage::EnableButtons()
152*b1cdbd2cSJim Jagielski {
153*b1cdbd2cSJim Jagielski // Solange die Eventbox leer ist, nichts tun
154*b1cdbd2cSJim Jagielski const SvLBoxEntry* pE = mpImpl->pEventLB->GetListBox().FirstSelected();
155*b1cdbd2cSJim Jagielski if ( pE )
156*b1cdbd2cSJim Jagielski {
157*b1cdbd2cSJim Jagielski // Gebundenes Macro holen
158*b1cdbd2cSJim Jagielski const SvxMacro* pM = aTbl.Get( (sal_uInt16)(sal_uLong) pE->GetUserData() );
159*b1cdbd2cSJim Jagielski mpImpl->pDeletePB->Enable( 0 != pM && !mpImpl->bReadOnly );
160*b1cdbd2cSJim Jagielski
161*b1cdbd2cSJim Jagielski String sEventMacro;
162*b1cdbd2cSJim Jagielski sEventMacro = ((SvLBoxString*)pE->GetItem( LB_MACROS_ITEMPOS ))->GetText();
163*b1cdbd2cSJim Jagielski
164*b1cdbd2cSJim Jagielski String sScriptURI = mpImpl->pMacroLB->GetSelectedScriptURI();
165*b1cdbd2cSJim Jagielski mpImpl->pAssignPB->Enable( !mpImpl->bReadOnly && !sScriptURI.EqualsIgnoreCaseAscii( sEventMacro ) );
166*b1cdbd2cSJim Jagielski }
167*b1cdbd2cSJim Jagielski else
168*b1cdbd2cSJim Jagielski mpImpl->pAssignPB->Enable( sal_False );
169*b1cdbd2cSJim Jagielski }
170*b1cdbd2cSJim Jagielski
_SfxMacroTabPage(Window * pParent,const ResId & rResId,const SfxItemSet & rAttrSet)171*b1cdbd2cSJim Jagielski _SfxMacroTabPage::_SfxMacroTabPage( Window* pParent, const ResId& rResId, const SfxItemSet& rAttrSet )
172*b1cdbd2cSJim Jagielski : SfxTabPage( pParent, rResId, rAttrSet )
173*b1cdbd2cSJim Jagielski
174*b1cdbd2cSJim Jagielski {
175*b1cdbd2cSJim Jagielski mpImpl = new _SfxMacroTabPage_Impl;
176*b1cdbd2cSJim Jagielski }
177*b1cdbd2cSJim Jagielski
~_SfxMacroTabPage()178*b1cdbd2cSJim Jagielski _SfxMacroTabPage::~_SfxMacroTabPage()
179*b1cdbd2cSJim Jagielski {
180*b1cdbd2cSJim Jagielski DELETEZ( mpImpl );
181*b1cdbd2cSJim Jagielski }
182*b1cdbd2cSJim Jagielski
AddEvent(const String & rEventName,sal_uInt16 nEventId)183*b1cdbd2cSJim Jagielski void _SfxMacroTabPage::AddEvent( const String & rEventName, sal_uInt16 nEventId )
184*b1cdbd2cSJim Jagielski {
185*b1cdbd2cSJim Jagielski String sTmp( rEventName );
186*b1cdbd2cSJim Jagielski sTmp += '\t';
187*b1cdbd2cSJim Jagielski
188*b1cdbd2cSJim Jagielski // falls die Tabelle schon gueltig ist
189*b1cdbd2cSJim Jagielski SvxMacro* pM = aTbl.Get( nEventId );
190*b1cdbd2cSJim Jagielski if( pM )
191*b1cdbd2cSJim Jagielski {
192*b1cdbd2cSJim Jagielski String sNew( ConvertToUIName_Impl( pM ) );
193*b1cdbd2cSJim Jagielski sTmp += sNew;
194*b1cdbd2cSJim Jagielski }
195*b1cdbd2cSJim Jagielski
196*b1cdbd2cSJim Jagielski SvLBoxEntry* pE = mpImpl->pEventLB->GetListBox().InsertEntry( sTmp );
197*b1cdbd2cSJim Jagielski pE->SetUserData( reinterpret_cast< void* >( sal::static_int_cast< sal_IntPtr >( nEventId )) );
198*b1cdbd2cSJim Jagielski }
199*b1cdbd2cSJim Jagielski
ScriptChanged()200*b1cdbd2cSJim Jagielski void _SfxMacroTabPage::ScriptChanged()
201*b1cdbd2cSJim Jagielski {
202*b1cdbd2cSJim Jagielski // neue Bereiche und deren Funktionen besorgen
203*b1cdbd2cSJim Jagielski {
204*b1cdbd2cSJim Jagielski mpImpl->pGroupLB->Show();
205*b1cdbd2cSJim Jagielski mpImpl->pMacroLB->Show();
206*b1cdbd2cSJim Jagielski mpImpl->pMacroFT->SetText( *mpImpl->pMacroStr );
207*b1cdbd2cSJim Jagielski }
208*b1cdbd2cSJim Jagielski
209*b1cdbd2cSJim Jagielski EnableButtons();
210*b1cdbd2cSJim Jagielski }
211*b1cdbd2cSJim Jagielski
FillItemSet(SfxItemSet & rSet)212*b1cdbd2cSJim Jagielski sal_Bool _SfxMacroTabPage::FillItemSet( SfxItemSet& rSet )
213*b1cdbd2cSJim Jagielski {
214*b1cdbd2cSJim Jagielski SvxMacroItem aItem( GetWhich( aPageRg[0] ) );
215*b1cdbd2cSJim Jagielski ((SvxMacroTableDtor&)aItem.GetMacroTable()) = aTbl;
216*b1cdbd2cSJim Jagielski
217*b1cdbd2cSJim Jagielski const SfxPoolItem* pItem;
218*b1cdbd2cSJim Jagielski if( SFX_ITEM_SET != GetItemSet().GetItemState( aItem.Which(), sal_True, &pItem )
219*b1cdbd2cSJim Jagielski || aItem != *(SvxMacroItem*)pItem )
220*b1cdbd2cSJim Jagielski {
221*b1cdbd2cSJim Jagielski rSet.Put( aItem );
222*b1cdbd2cSJim Jagielski return sal_True;
223*b1cdbd2cSJim Jagielski }
224*b1cdbd2cSJim Jagielski return sal_False;
225*b1cdbd2cSJim Jagielski }
226*b1cdbd2cSJim Jagielski
PageCreated(SfxAllItemSet aSet)227*b1cdbd2cSJim Jagielski void _SfxMacroTabPage::PageCreated (SfxAllItemSet aSet)
228*b1cdbd2cSJim Jagielski {
229*b1cdbd2cSJim Jagielski const SfxPoolItem* pEventsItem;
230*b1cdbd2cSJim Jagielski if( !mpImpl->bGotEvents && SFX_ITEM_SET == aSet.GetItemState( SID_EVENTCONFIG, sal_True, &pEventsItem ) )
231*b1cdbd2cSJim Jagielski {
232*b1cdbd2cSJim Jagielski mpImpl->bGotEvents = sal_True;
233*b1cdbd2cSJim Jagielski const SfxEventNamesList& rList = ((SfxEventNamesItem*)pEventsItem)->GetEvents();
234*b1cdbd2cSJim Jagielski for ( sal_uInt16 nNo = 0; nNo < rList.Count(); ++nNo )
235*b1cdbd2cSJim Jagielski {
236*b1cdbd2cSJim Jagielski const SfxEventName *pOwn = rList.GetObject(nNo);
237*b1cdbd2cSJim Jagielski AddEvent( pOwn->maUIName, pOwn->mnId );
238*b1cdbd2cSJim Jagielski }
239*b1cdbd2cSJim Jagielski }
240*b1cdbd2cSJim Jagielski }
241*b1cdbd2cSJim Jagielski
Reset(const SfxItemSet & rSet)242*b1cdbd2cSJim Jagielski void _SfxMacroTabPage::Reset( const SfxItemSet& rSet )
243*b1cdbd2cSJim Jagielski {
244*b1cdbd2cSJim Jagielski const SfxPoolItem* pItem;
245*b1cdbd2cSJim Jagielski if( SFX_ITEM_SET == rSet.GetItemState( GetWhich( aPageRg[0] ), sal_True, &pItem ))
246*b1cdbd2cSJim Jagielski aTbl = ((SvxMacroItem*)pItem)->GetMacroTable();
247*b1cdbd2cSJim Jagielski
248*b1cdbd2cSJim Jagielski const SfxPoolItem* pEventsItem;
249*b1cdbd2cSJim Jagielski if( !mpImpl->bGotEvents && SFX_ITEM_SET == rSet.GetItemState( SID_EVENTCONFIG, sal_True, &pEventsItem ) )
250*b1cdbd2cSJim Jagielski {
251*b1cdbd2cSJim Jagielski mpImpl->bGotEvents = sal_True;
252*b1cdbd2cSJim Jagielski const SfxEventNamesList& rList = ((SfxEventNamesItem*)pEventsItem)->GetEvents();
253*b1cdbd2cSJim Jagielski for ( sal_uInt16 nNo = 0; nNo < rList.Count(); ++nNo )
254*b1cdbd2cSJim Jagielski {
255*b1cdbd2cSJim Jagielski const SfxEventName *pOwn = rList.GetObject(nNo);
256*b1cdbd2cSJim Jagielski AddEvent( pOwn->maUIName, pOwn->mnId );
257*b1cdbd2cSJim Jagielski }
258*b1cdbd2cSJim Jagielski }
259*b1cdbd2cSJim Jagielski
260*b1cdbd2cSJim Jagielski FillEvents();
261*b1cdbd2cSJim Jagielski
262*b1cdbd2cSJim Jagielski SvHeaderTabListBox& rListBox = mpImpl->pEventLB->GetListBox();
263*b1cdbd2cSJim Jagielski SvLBoxEntry* pE = rListBox.GetEntry( 0 );
264*b1cdbd2cSJim Jagielski if( pE )
265*b1cdbd2cSJim Jagielski rListBox.SetCurEntry( pE );
266*b1cdbd2cSJim Jagielski }
267*b1cdbd2cSJim Jagielski
IsReadOnly() const268*b1cdbd2cSJim Jagielski sal_Bool _SfxMacroTabPage::IsReadOnly() const
269*b1cdbd2cSJim Jagielski {
270*b1cdbd2cSJim Jagielski return mpImpl->bReadOnly;
271*b1cdbd2cSJim Jagielski }
272*b1cdbd2cSJim Jagielski
IMPL_STATIC_LINK(_SfxMacroTabPage,SelectEvent_Impl,SvTabListBox *,EMPTYARG)273*b1cdbd2cSJim Jagielski IMPL_STATIC_LINK( _SfxMacroTabPage, SelectEvent_Impl, SvTabListBox*, EMPTYARG )
274*b1cdbd2cSJim Jagielski {
275*b1cdbd2cSJim Jagielski _SfxMacroTabPage_Impl* pImpl = pThis->mpImpl;
276*b1cdbd2cSJim Jagielski SvHeaderTabListBox& rListBox = pImpl->pEventLB->GetListBox();
277*b1cdbd2cSJim Jagielski SvLBoxEntry* pE = rListBox.FirstSelected();
278*b1cdbd2cSJim Jagielski sal_uLong nPos;
279*b1cdbd2cSJim Jagielski if( !pE || LISTBOX_ENTRY_NOTFOUND ==
280*b1cdbd2cSJim Jagielski ( nPos = rListBox.GetModel()->GetAbsPos( pE ) ) )
281*b1cdbd2cSJim Jagielski {
282*b1cdbd2cSJim Jagielski DBG_ASSERT( pE, "wo kommt der leere Eintrag her?" );
283*b1cdbd2cSJim Jagielski return 0;
284*b1cdbd2cSJim Jagielski }
285*b1cdbd2cSJim Jagielski
286*b1cdbd2cSJim Jagielski pThis->ScriptChanged();
287*b1cdbd2cSJim Jagielski pThis->EnableButtons();
288*b1cdbd2cSJim Jagielski return 0;
289*b1cdbd2cSJim Jagielski }
290*b1cdbd2cSJim Jagielski
IMPL_STATIC_LINK(_SfxMacroTabPage,SelectGroup_Impl,ListBox *,EMPTYARG)291*b1cdbd2cSJim Jagielski IMPL_STATIC_LINK( _SfxMacroTabPage, SelectGroup_Impl, ListBox*, EMPTYARG )
292*b1cdbd2cSJim Jagielski {
293*b1cdbd2cSJim Jagielski _SfxMacroTabPage_Impl* pImpl = pThis->mpImpl;
294*b1cdbd2cSJim Jagielski String sSel( pImpl->pGroupLB->GetGroup() );
295*b1cdbd2cSJim Jagielski pImpl->pGroupLB->GroupSelected();
296*b1cdbd2cSJim Jagielski const String sScriptURI = pImpl->pMacroLB->GetSelectedScriptURI();
297*b1cdbd2cSJim Jagielski String aLabelText;
298*b1cdbd2cSJim Jagielski if( sScriptURI.Len() > 0 )
299*b1cdbd2cSJim Jagielski aLabelText = pImpl->maStaticMacroLBLabel;
300*b1cdbd2cSJim Jagielski pImpl->pFT_MacroLBLabel->SetText( aLabelText );
301*b1cdbd2cSJim Jagielski
302*b1cdbd2cSJim Jagielski pThis->EnableButtons();
303*b1cdbd2cSJim Jagielski return 0;
304*b1cdbd2cSJim Jagielski }
305*b1cdbd2cSJim Jagielski
IMPL_STATIC_LINK(_SfxMacroTabPage,SelectMacro_Impl,ListBox *,EMPTYARG)306*b1cdbd2cSJim Jagielski IMPL_STATIC_LINK( _SfxMacroTabPage, SelectMacro_Impl, ListBox*, EMPTYARG )
307*b1cdbd2cSJim Jagielski {
308*b1cdbd2cSJim Jagielski _SfxMacroTabPage_Impl* pImpl = pThis->mpImpl;
309*b1cdbd2cSJim Jagielski pImpl->pMacroLB->FunctionSelected();
310*b1cdbd2cSJim Jagielski pThis->EnableButtons();
311*b1cdbd2cSJim Jagielski return 0;
312*b1cdbd2cSJim Jagielski }
313*b1cdbd2cSJim Jagielski
IMPL_STATIC_LINK(_SfxMacroTabPage,AssignDeleteHdl_Impl,PushButton *,pBtn)314*b1cdbd2cSJim Jagielski IMPL_STATIC_LINK( _SfxMacroTabPage, AssignDeleteHdl_Impl, PushButton*, pBtn )
315*b1cdbd2cSJim Jagielski {
316*b1cdbd2cSJim Jagielski _SfxMacroTabPage_Impl* pImpl = pThis->mpImpl;
317*b1cdbd2cSJim Jagielski SvHeaderTabListBox& rListBox = pImpl->pEventLB->GetListBox();
318*b1cdbd2cSJim Jagielski SvLBoxEntry* pE = rListBox.FirstSelected();
319*b1cdbd2cSJim Jagielski sal_uLong nPos;
320*b1cdbd2cSJim Jagielski if( !pE || LISTBOX_ENTRY_NOTFOUND ==
321*b1cdbd2cSJim Jagielski ( nPos = rListBox.GetModel()->GetAbsPos( pE ) ) )
322*b1cdbd2cSJim Jagielski {
323*b1cdbd2cSJim Jagielski DBG_ASSERT( pE, "wo kommt der leere Eintrag her?" );
324*b1cdbd2cSJim Jagielski return 0;
325*b1cdbd2cSJim Jagielski }
326*b1cdbd2cSJim Jagielski
327*b1cdbd2cSJim Jagielski const sal_Bool bAssEnabled = pBtn != pImpl->pDeletePB && pImpl->pAssignPB->IsEnabled();
328*b1cdbd2cSJim Jagielski
329*b1cdbd2cSJim Jagielski // aus der Tabelle entfernen
330*b1cdbd2cSJim Jagielski sal_uInt16 nEvent = (sal_uInt16)(sal_uLong)pE->GetUserData();
331*b1cdbd2cSJim Jagielski SvxMacro *pRemoveMacro = pThis->aTbl.Remove( nEvent );
332*b1cdbd2cSJim Jagielski delete pRemoveMacro;
333*b1cdbd2cSJim Jagielski
334*b1cdbd2cSJim Jagielski String sScriptURI;
335*b1cdbd2cSJim Jagielski if( bAssEnabled )
336*b1cdbd2cSJim Jagielski {
337*b1cdbd2cSJim Jagielski sScriptURI = pImpl->pMacroLB->GetSelectedScriptURI();
338*b1cdbd2cSJim Jagielski if( sScriptURI.CompareToAscii( "vnd.sun.star.script:", 20 ) == COMPARE_EQUAL )
339*b1cdbd2cSJim Jagielski {
340*b1cdbd2cSJim Jagielski pThis->aTbl.Insert(
341*b1cdbd2cSJim Jagielski nEvent, new SvxMacro( sScriptURI, String::CreateFromAscii( SVX_MACRO_LANGUAGE_SF ) ) );
342*b1cdbd2cSJim Jagielski }
343*b1cdbd2cSJim Jagielski else
344*b1cdbd2cSJim Jagielski {
345*b1cdbd2cSJim Jagielski OSL_ENSURE( false, "_SfxMacroTabPage::AssignDeleteHdl_Impl: this branch is *not* dead? (out of interest: tell fs, please!)" );
346*b1cdbd2cSJim Jagielski pThis->aTbl.Insert(
347*b1cdbd2cSJim Jagielski nEvent, new SvxMacro( sScriptURI, String::CreateFromAscii( SVX_MACRO_LANGUAGE_STARBASIC ) ) );
348*b1cdbd2cSJim Jagielski }
349*b1cdbd2cSJim Jagielski }
350*b1cdbd2cSJim Jagielski
351*b1cdbd2cSJim Jagielski pImpl->pEventLB->SetUpdateMode( sal_False );
352*b1cdbd2cSJim Jagielski pE->ReplaceItem( new SvLBoxString( pE, 0, sScriptURI ), LB_MACROS_ITEMPOS );
353*b1cdbd2cSJim Jagielski rListBox.GetModel()->InvalidateEntry( pE );
354*b1cdbd2cSJim Jagielski rListBox.Select( pE );
355*b1cdbd2cSJim Jagielski rListBox.MakeVisible( pE );
356*b1cdbd2cSJim Jagielski rListBox.SetUpdateMode( sal_True );
357*b1cdbd2cSJim Jagielski
358*b1cdbd2cSJim Jagielski pThis->EnableButtons();
359*b1cdbd2cSJim Jagielski return 0;
360*b1cdbd2cSJim Jagielski }
361*b1cdbd2cSJim Jagielski
IMPL_STATIC_LINK(_SfxMacroTabPage,TimeOut_Impl,Timer *,EMPTYARG)362*b1cdbd2cSJim Jagielski IMPL_STATIC_LINK( _SfxMacroTabPage, TimeOut_Impl, Timer*, EMPTYARG )
363*b1cdbd2cSJim Jagielski {
364*b1cdbd2cSJim Jagielski // FillMacroList() can take a long time -> show wait cursor and disable input
365*b1cdbd2cSJim Jagielski SfxTabDialog* pTabDlg = pThis->GetTabDialog();
366*b1cdbd2cSJim Jagielski // perhaps the tabpage is part of a SingleTabDialog then pTabDlg == NULL
367*b1cdbd2cSJim Jagielski if ( pTabDlg )
368*b1cdbd2cSJim Jagielski {
369*b1cdbd2cSJim Jagielski pTabDlg->EnterWait();
370*b1cdbd2cSJim Jagielski pTabDlg->EnableInput( sal_False );
371*b1cdbd2cSJim Jagielski }
372*b1cdbd2cSJim Jagielski pThis->FillMacroList();
373*b1cdbd2cSJim Jagielski if ( pTabDlg )
374*b1cdbd2cSJim Jagielski {
375*b1cdbd2cSJim Jagielski pTabDlg->EnableInput( sal_True );
376*b1cdbd2cSJim Jagielski pTabDlg->LeaveWait();
377*b1cdbd2cSJim Jagielski }
378*b1cdbd2cSJim Jagielski return 0;
379*b1cdbd2cSJim Jagielski }
380*b1cdbd2cSJim Jagielski
InitAndSetHandler()381*b1cdbd2cSJim Jagielski void _SfxMacroTabPage::InitAndSetHandler()
382*b1cdbd2cSJim Jagielski {
383*b1cdbd2cSJim Jagielski // Handler installieren
384*b1cdbd2cSJim Jagielski SvHeaderTabListBox& rListBox = mpImpl->pEventLB->GetListBox();
385*b1cdbd2cSJim Jagielski HeaderBar& rHeaderBar = mpImpl->pEventLB->GetHeaderBar();
386*b1cdbd2cSJim Jagielski Link aLnk(STATIC_LINK(this, _SfxMacroTabPage, AssignDeleteHdl_Impl ));
387*b1cdbd2cSJim Jagielski mpImpl->pMacroLB->SetDoubleClickHdl( aLnk );
388*b1cdbd2cSJim Jagielski mpImpl->pDeletePB->SetClickHdl( aLnk );
389*b1cdbd2cSJim Jagielski mpImpl->pAssignPB->SetClickHdl( aLnk );
390*b1cdbd2cSJim Jagielski rListBox.SetDoubleClickHdl( aLnk );
391*b1cdbd2cSJim Jagielski
392*b1cdbd2cSJim Jagielski rListBox.SetSelectHdl( STATIC_LINK( this, _SfxMacroTabPage, SelectEvent_Impl ));
393*b1cdbd2cSJim Jagielski mpImpl->pGroupLB->SetSelectHdl( STATIC_LINK( this, _SfxMacroTabPage, SelectGroup_Impl ));
394*b1cdbd2cSJim Jagielski mpImpl->pMacroLB->SetSelectHdl( STATIC_LINK( this, _SfxMacroTabPage, SelectMacro_Impl ));
395*b1cdbd2cSJim Jagielski
396*b1cdbd2cSJim Jagielski rListBox.SetSelectionMode( SINGLE_SELECTION );
397*b1cdbd2cSJim Jagielski rListBox.SetTabs( &nTabs[0], MAP_APPFONT );
398*b1cdbd2cSJim Jagielski Size aSize( nTabs[ 2 ], 0 );
399*b1cdbd2cSJim Jagielski rHeaderBar.InsertItem( ITEMID_EVENT, *mpImpl->pStrEvent, LogicToPixel( aSize, MapMode( MAP_APPFONT ) ).Width() );
400*b1cdbd2cSJim Jagielski aSize.Width() = 1764; // don't know what, so 42^2 is best to use...
401*b1cdbd2cSJim Jagielski rHeaderBar.InsertItem( ITMEID_ASSMACRO, *mpImpl->pAssignedMacro, LogicToPixel( aSize, MapMode( MAP_APPFONT ) ).Width() );
402*b1cdbd2cSJim Jagielski rListBox.SetSpaceBetweenEntries( 0 );
403*b1cdbd2cSJim Jagielski
404*b1cdbd2cSJim Jagielski mpImpl->pEventLB->Show();
405*b1cdbd2cSJim Jagielski mpImpl->pEventLB->ConnectElements();
406*b1cdbd2cSJim Jagielski
407*b1cdbd2cSJim Jagielski mpImpl->pEventLB->Enable( sal_True );
408*b1cdbd2cSJim Jagielski mpImpl->pGroupLB->Enable( sal_True );
409*b1cdbd2cSJim Jagielski mpImpl->pMacroLB->Enable( sal_True );
410*b1cdbd2cSJim Jagielski
411*b1cdbd2cSJim Jagielski mpImpl->pGroupLB->SetFunctionListBox( mpImpl->pMacroLB );
412*b1cdbd2cSJim Jagielski
413*b1cdbd2cSJim Jagielski mpImpl->maFillGroupTimer.SetTimeoutHdl( STATIC_LINK( this, _SfxMacroTabPage, TimeOut_Impl ) );
414*b1cdbd2cSJim Jagielski mpImpl->maFillGroupTimer.SetTimeout( 0 );
415*b1cdbd2cSJim Jagielski mpImpl->maFillGroupTimer.Start();
416*b1cdbd2cSJim Jagielski }
417*b1cdbd2cSJim Jagielski
FillMacroList()418*b1cdbd2cSJim Jagielski void _SfxMacroTabPage::FillMacroList()
419*b1cdbd2cSJim Jagielski {
420*b1cdbd2cSJim Jagielski mpImpl->pGroupLB->Init(
421*b1cdbd2cSJim Jagielski ::com::sun::star::uno::Reference<
422*b1cdbd2cSJim Jagielski ::com::sun::star::lang::XMultiServiceFactory >(),
423*b1cdbd2cSJim Jagielski GetFrame(),
424*b1cdbd2cSJim Jagielski ::rtl::OUString() );
425*b1cdbd2cSJim Jagielski }
426*b1cdbd2cSJim Jagielski
FillEvents()427*b1cdbd2cSJim Jagielski void _SfxMacroTabPage::FillEvents()
428*b1cdbd2cSJim Jagielski {
429*b1cdbd2cSJim Jagielski SvHeaderTabListBox& rListBox = mpImpl->pEventLB->GetListBox();
430*b1cdbd2cSJim Jagielski
431*b1cdbd2cSJim Jagielski sal_uLong nEntryCnt = rListBox.GetEntryCount();
432*b1cdbd2cSJim Jagielski
433*b1cdbd2cSJim Jagielski // Events aus der Tabelle holen und die EventListBox entsprechen fuellen
434*b1cdbd2cSJim Jagielski for( sal_uLong n = 0 ; n < nEntryCnt ; ++n )
435*b1cdbd2cSJim Jagielski {
436*b1cdbd2cSJim Jagielski SvLBoxEntry* pE = rListBox.GetEntry( n );
437*b1cdbd2cSJim Jagielski if( pE )
438*b1cdbd2cSJim Jagielski {
439*b1cdbd2cSJim Jagielski SvLBoxString* pLItem = ( SvLBoxString* ) pE->GetItem( LB_MACROS_ITEMPOS );
440*b1cdbd2cSJim Jagielski DBG_ASSERT( pLItem && SV_ITEM_ID_LBOXSTRING == pLItem->IsA(), "_SfxMacroTabPage::FillEvents(): no LBoxString" );
441*b1cdbd2cSJim Jagielski
442*b1cdbd2cSJim Jagielski String sOld( pLItem->GetText() );
443*b1cdbd2cSJim Jagielski String sNew;
444*b1cdbd2cSJim Jagielski sal_uInt16 nEventId = ( sal_uInt16 ) ( sal_uLong ) pE->GetUserData();
445*b1cdbd2cSJim Jagielski if( aTbl.IsKeyValid( nEventId ) )
446*b1cdbd2cSJim Jagielski sNew = ConvertToUIName_Impl( aTbl.Get( nEventId ) );
447*b1cdbd2cSJim Jagielski
448*b1cdbd2cSJim Jagielski if( sOld != sNew )
449*b1cdbd2cSJim Jagielski {
450*b1cdbd2cSJim Jagielski pE->ReplaceItem( new SvLBoxString( pE, 0, sNew ), LB_MACROS_ITEMPOS );
451*b1cdbd2cSJim Jagielski rListBox.GetModel()->InvalidateEntry( pE );
452*b1cdbd2cSJim Jagielski }
453*b1cdbd2cSJim Jagielski }
454*b1cdbd2cSJim Jagielski }
455*b1cdbd2cSJim Jagielski }
456*b1cdbd2cSJim Jagielski
SfxMacroTabPage(Window * pParent,const ResId & rResId,const Reference<XFrame> & rxDocumentFrame,const SfxItemSet & rSet)457*b1cdbd2cSJim Jagielski SfxMacroTabPage::SfxMacroTabPage( Window* pParent, const ResId& rResId, const Reference< XFrame >& rxDocumentFrame, const SfxItemSet& rSet )
458*b1cdbd2cSJim Jagielski : _SfxMacroTabPage( pParent, rResId, rSet )
459*b1cdbd2cSJim Jagielski {
460*b1cdbd2cSJim Jagielski mpImpl->pStrEvent = new String( CUI_RES( STR_EVENT ) );
461*b1cdbd2cSJim Jagielski mpImpl->pAssignedMacro = new String( CUI_RES( STR_ASSMACRO ) );
462*b1cdbd2cSJim Jagielski mpImpl->pEventLB = new _HeaderTabListBox( this, CUI_RES( LB_EVENT ) );
463*b1cdbd2cSJim Jagielski mpImpl->pAssignPB = new PushButton( this, CUI_RES( PB_ASSIGN ) );
464*b1cdbd2cSJim Jagielski mpImpl->pDeletePB = new PushButton( this, CUI_RES( PB_DELETE ) );
465*b1cdbd2cSJim Jagielski mpImpl->pMacroFT = new FixedText( this, CUI_RES( FT_MACRO ) );
466*b1cdbd2cSJim Jagielski mpImpl->pGroupLB = new SfxConfigGroupListBox_Impl( this, CUI_RES( LB_GROUP ) );
467*b1cdbd2cSJim Jagielski mpImpl->pFT_MacroLBLabel = new FixedText( this, CUI_RES( FT_LABEL4LB_MACROS ) );
468*b1cdbd2cSJim Jagielski mpImpl->maStaticMacroLBLabel= mpImpl->pFT_MacroLBLabel->GetText();
469*b1cdbd2cSJim Jagielski mpImpl->pMacroLB = new SfxConfigFunctionListBox_Impl( this, CUI_RES( LB_MACROS ) );
470*b1cdbd2cSJim Jagielski mpImpl->pMacroStr = new String( CUI_RES( STR_MACROS ) );
471*b1cdbd2cSJim Jagielski
472*b1cdbd2cSJim Jagielski FreeResource();
473*b1cdbd2cSJim Jagielski
474*b1cdbd2cSJim Jagielski SetFrame( rxDocumentFrame );
475*b1cdbd2cSJim Jagielski
476*b1cdbd2cSJim Jagielski InitAndSetHandler();
477*b1cdbd2cSJim Jagielski
478*b1cdbd2cSJim Jagielski ScriptChanged();
479*b1cdbd2cSJim Jagielski }
480*b1cdbd2cSJim Jagielski
Create(Window * pParent,const SfxItemSet & rAttrSet)481*b1cdbd2cSJim Jagielski SfxTabPage* SfxMacroTabPage::Create( Window* pParent, const SfxItemSet& rAttrSet )
482*b1cdbd2cSJim Jagielski {
483*b1cdbd2cSJim Jagielski return new SfxMacroTabPage( pParent, CUI_RES( RID_SVXPAGE_EVENTASSIGN ), NULL, rAttrSet );
484*b1cdbd2cSJim Jagielski }
485*b1cdbd2cSJim Jagielski
SfxMacroAssignDlg(Window * pParent,const Reference<XFrame> & rxDocumentFrame,const SfxItemSet & rSet)486*b1cdbd2cSJim Jagielski SfxMacroAssignDlg::SfxMacroAssignDlg( Window* pParent, const Reference< XFrame >& rxDocumentFrame, const SfxItemSet& rSet )
487*b1cdbd2cSJim Jagielski : SfxSingleTabDialog( pParent, rSet, 0 )
488*b1cdbd2cSJim Jagielski {
489*b1cdbd2cSJim Jagielski SfxTabPage* pPage = SfxMacroTabPage::Create( this, rSet );
490*b1cdbd2cSJim Jagielski pPage->SetFrame( rxDocumentFrame );
491*b1cdbd2cSJim Jagielski SetTabPage( pPage );
492*b1cdbd2cSJim Jagielski }
493*b1cdbd2cSJim Jagielski
~SfxMacroAssignDlg()494*b1cdbd2cSJim Jagielski SfxMacroAssignDlg::~SfxMacroAssignDlg()
495*b1cdbd2cSJim Jagielski {
496*b1cdbd2cSJim Jagielski }
497*b1cdbd2cSJim Jagielski
498*b1cdbd2cSJim Jagielski
499