Code: Select all
clauses
new(Parent):-
formWindow::new(Parent),
generatedInitialize(),
addNativeMessageHandler(nativeMessageHandler).
predicates
nativeMessageHandler : window::nativeMessageHandler.
clauses
nativeMessageHandler(_Source, gui_native::wm_size, _WParam, 47908248)= defaultNativeHandling :-!,
vpiCommonDialogs::note("Maximized"),
nativeMessageHandler(_Source, gui_native::wm_size, _WParam, 12779880)= defaultNativeHandling :-!,
vpiCommonDialogs::note("Restored").
nativeMessageHandler(_Source, gui_native::wm_size, _WParam, 0)= defaultNativeHandling :-!,
vpiCommonDialogs::note("minimized").
nativeMessageHandler(_Source, _Message, _WParam, _LParam)= defaultNativeHandling .
steve