Win32-GUI
view release on metacpan or search on metacpan
* [Robert May] : 30 July 2007 - Bug Fixes
- build_tools/updateRC, Makefile - fix problem with GUI.rc being readonly
on cygwin, only re-write GUI.rc if it changes [Reini Urban]
- Makefile.PL - fix warnings from gcc 3.4 with
-Wdeclaration-after-statement [Reini Urban]
* [Robert May] : 16 July 2007 - Bug Fixes
- GUI.pm - fix Win32::GUI::Imagelist::AddMasked (Tracker: 1734697)
- GUI.pm - fix -prompt option to Textfield (Tracker: 1734697)
- GUI.pm - remove constants from AcceptFiles() [Joseph Cordero]
- Treeview.xs - fix GetParent() method to get the parent window, rather
than the parent node if called with no arguements. [Salvador Oritz]
- GUI.xs - modify Dialog() and DoEvents() to allow for dialog navigation
to work within MDI child windows. [Salvador Oritz]
--- Win32::GUI::ReleaseNotes ---
- RN_1_06.pod - bring up to date with new changes
* [Robert May] : 15 July 2007 - Bug Fixes
- GUI.pm - fix bltr direction in Animate Window [Tim Hansell]
- Comboxbox.xs, GUI.pm - fix options so use of -simple, -dropdown and
-dropdownlist together have a more predictable result.
- Makefile.pl, Makefile_m.pl :
+ Add MonthCall.xs
- Samples\MonthCal.pl : New file
- Docs\DoDoc.pl :
+ Add MonthCall.xs
* [Steven M. Martin] : Fix TextField -prompt option.
- GUI.pm :
+ Win32::GUI::Textfield new : Fix TextField -prompt option when prompt left was negative.
* [Jeremy White] : New Events for Treeview control
- TreeView.xs
+ Added BeginLabelEdit Event
+ Added EndLabelEdit Event
* [Laurent Rocher] : Fix IdFirstChild option for MDIClient.
- GUI.pm :
+ Remove registered class for MDIClient.
- GUI.xs :
+ RegisterClassEx : Remove MDIClient value for -widget option.
+ Create : SubClass MDIClient window.
Win32-GUI_AxWindow/demos/InfoControl.pl view on Meta::CPAN
$win->TV->Height($height-$win->TV->Top());
$win->BW->Width($width-$win->BW->Left());
$win->BW->Height($height-$win->BW->Top());
return 1;
}
sub loadInfo {
Update_Treeview($mw->TV);
return 1;
}
sub Update_Treeview {
my $tv = shift;
# reset information
%INFO = ();
$tv->DeleteAllItems();
Display("");
$INFO{progid} = $mw->PROGID->Text();
$INFO{progid} =~ s/\s.*$//;
Win32-GUI_Constants/Constants.PL view on Meta::CPAN
TTM_GETBUBBLESIZE 1054 #(WM_USER+30)
TTM_ADJUSTRECT 1055 #(WM_USER+31)
TTM_SETTITLE 1056 #(WM_USER+32)
# Tool tip notification messages
TTN_GETDISPINFO -520 #(TTN_FIRST - 0)
TTN_NEEDTEXT -520 #TTN_GETDISPINFOA
TTN_SHOW -521 #(TTN_FIRST-1)
TTN_POP -522 #(TTN_FIRST-2)
# Treeview Get Next types
TVGN_ROOT 0x0000
TVGN_NEXT 0x0001
TVGN_PREVIOUS 0x0002
TVGN_PARENT 0x0003
TVGN_CHILD 0x0004
TVGN_FIRSTVISIBLE 0x0005
TVGN_NEXTVISIBLE 0x0006
TVGN_PREVIOUSVISIBLE 0x0007
TVGN_DROPHILITE 0x0008
TVGN_CARET 0x0009
TVGN_LASTVISIBLE 0x000A
# Treeview hit test regions
TVHT_NOWHERE 0x0001
TVHT_ONITEMICON 0x0002
TVHT_ONITEMLABEL 0x0004
TVHT_ONITEM 0x0046 # (TVHT_ONITEMICON | TVHT_ONITEMLABEL | TVHT_ONITEMSTATEICON)
TVHT_ONITEMINDENT 0x0008
TVHT_ONITEMBUTTON 0x0010
TVHT_ONITEMRIGHT 0x0020
TVHT_ONITEMSTATEICON 0x0040
TVHT_ABOVE 0x0100
TVHT_BELOW 0x0200
Win32-GUI_ReleaseNotes/RN_0_99_1.pod view on Meta::CPAN
+ Add MonthCall.xs
- Samples\MonthCal.pl : New file
- Docs\DoDoc.pl :
+ Add MonthCall.xs
+ [Steven M. Martin] : Fix TextField -prompt option.
- GUI.pm :
+ Win32::GUI::Textfield new : Fix TextField -prompt option
when prompt left was negative.
+ [Jeremy White] : New Events for Treeview control
- TreeView.xs
+ Added BeginLabelEdit Event
+ Added EndLabelEdit Event
+ [Laurent Rocher] : Fix IdFirstChild option for MDIClient.
- GUI.pm :
+ Remove registered class for MDIClient.
- GUI.xs :
+ RegisterClassEx : Remove MDIClient value for -widget option.
+ Create : SubClass MDIClient window.
Win32-GUI_ReleaseNotes/RN_1_06.pod view on Meta::CPAN
=item Dialog navigation for MDI Windows
Salvadore Oritz submitted a patch to allow 'TAB' navigation
between controls of an MDI child window. The '-dialogui' is
now functional on MDI child windows.
=item Confusion with GetParent() and TreeView windows
The GetParent() method usually gets the parent window, but for
the Treeview class it gets the parent node:
$parent_node = $tree_view->GetParent($node);
This made it difficult to get the parent window. Now, if the
GetParent() method is called without an arguements it returns
the parent window:
$parent_window = $tree_view->GetParent();
=back
scripts/win32-gui-demos.pl view on Meta::CPAN
$mw->Hook(WM_MENUSELECT, \&showMenuHelp);
######################################################################
# Status bar
######################################################################
$mw->AddStatusBar(
-name => 'SB',
) or die "StatusBar";
######################################################################
# Treeview
######################################################################
$mw->AddTreeView(
-name => 'TV',
-pos => [0,0],
-width => 200,
-height => $mw->ScaleHeight() - $mw->SB->Height(),
-rootlines => 1,
-lines => 1,
-buttons => 1,
-onNodeClick => \&loadFile,
#-onMouseDown => \&tvClick,
-onMouseDblClick => \&tvDoubleClick,
-tabstop => 1,
) or die "Treeview";
## Hook for getting notification when <RETURN> key is pressed
$mw->TV->Hook(NM_RETURN, \&tvReturnHook);
######################################################################
# Splitter
######################################################################
$mw->AddSplitter(
-name => 'SP',
-top => 0,
-left => $mw->TV->Width(),
scripts/win32-gui-demos.pl view on Meta::CPAN
# should work with old and new builds
my $item = $wParam & 0xFF;
$item -= 100 if $item > 100;;
$win->SB->Text($menu_help[$item] || '');
}
return 1;
}
######################################################################
# Treeview <RETURN> pressed
######################################################################
sub tvReturnHook {
my ($win, $wParam, $lParam, $type, $msgcode) = @_;
return 1 unless $type == WM_NOTIFY;
return 1 unless $msgcode == NM_RETURN;
my $node = $win->GetSelection();
loadFile($win, $node);
# Force a non-zero return value to stop the beep that results
( run in 0.516 second using v1.01-cache-2.11-cpan-49f99fa48dc )