[oodisc] native OO vs. ALT OO

[Aleksey Novodvorsky]

"Peter V. Saveliev" wrote:

> On Thu, 11 Apr 2002 14:23:57 +0400
> "Aleksey Novodvorsky" <aen на altlinux.ru> wrote:
>
> > "Peter V. Saveliev" wrote:
> <skip>
> > > идет не задумываясь. Не может это быть связано с переводом? Вдруг,
> > > название библиотек тоже перевели :)
> > >
> >
> > Очень похоже на то. Попробуйте русские переводы.
> > В этой части кода мы ничего не меняли.
> <skip>
>
> Интересно, что этот код никак не заставить работать. А вот этот -
>
> 8<------------------------------------------------------------------------
> Sub Main
> DialogLibraries.LoadLibrary( "Standard" )
> oDialog1 = CreateUnoDialog( DialogLibraries.Standard.Dialog1 )
> oDialog1.Execute()
> End Sub
> 8<------------------------------------------------------------------------
>
> Работает вполне. Какой-то в этом есть подвох: есть ли вероятность, что
> версия 641D на OO.org _сейчас_ и та версия, из которой собран релиз ALT -
> не одна и та же?

Наша версия собрана на основе официальных исходников OO641D.
Мы не можем, конечно, гарантировать, что команда OOo не собрала свой тарбол из
немного другого текста, -- не из вредности, а по недоразумению.

>
>
> Такое ощущение, что макрос LoadDialog из .Tools.ModuleControls не
> вызывается (но и не выдает ошибки), так как перенос его в локальный модуль
> нормально работает:
>
> 8<------------------------------------------------------------------------
> Sub Main
> oDialog1 = MyDialog("Standard", "Dialog1")
> oDialog1.Execute()
> End Sub
>
> rem MyDialog - точная копия LoadDialog из [soffice].Tools.ModuleControls
>
> Function MyDialog(Libname as String, DialogName as String, Optional oLibContainer)
> Dim oLib as Object
> Dim oLibDialog as Object
> Dim oRuntimeDialog as Object
>         If IsMissing(oLibContainer ) then
>                 oLibContainer = DialogLibraries
>         End If
>         oLibContainer.LoadLibrary(LibName)
>         oLib = oLibContainer.GetByName(Libname)
>         oLibDialog = oLib.GetByName(DialogName)
>         oRuntimeDialog = CreateUnoDialog(oLibDialog)
>         MyDialog() = oRuntimeDialog
> End Function
> 8<------------------------------------------------------------------------

Да, я так и проверял.

>
>

Будем смотреть.

Rgrds, AEN