Alien-wxWidgets
view release on metacpan or search on metacpan
0.42 Sat Nov 8 00:51:18 CET 2008
- Add an option for building with Unicode support in interactive
configuration (defaults to yes).
- Use ExtUtils::CBuilder to try to detect non-working
(or non-installed) compilers.
0.41 Mon Oct 27 22:22:25 CET 2008
- Rewrite show_configurations to display a pretty-printed version of
the available wxWidgets builds.
- When load() fails to find a compatible configuration, display a
the selection criteria and a list of available configurations.
0.40 Wed Oct 15 20:23:15 CEST 2008
- Always use Archive::Extract to extract the wxWidgets archive
since it now handles .bz2 files correctly on all platforms.
- Add a manifest to the bundled patch.exe to avoid triggering
an UAC prompt under Windows Vista.
0.39 Mon Sep 8 20:56:44 CEST 2008
- Add missing file to MANIFEST.
inc/bin/patch view on Meta::CPAN
tie *NULL, 'Dev::Null';
# Open output file.
if ($self->{check}) {
$self->{o_fh} = \*NULL; # output filehandle
$self->{d_fh} = \*NULL; # ifdef filehandle
} else {
local *OUT;
open OUT, "+> $out" or $self->skip("Couldn't open OUTFILE: $!\n");
binmode OUT;
$|++, select $_ for select OUT;
$self->{o_fh} = *OUT;
$self->{o_file} = $out;
$self->{d_fh} = length $self->{ifdef} ? *OUT : \*NULL;
}
$self->{'reject-file'} = "$out.rej" unless defined $self->{'reject-file'};
# Check for 'Prereq:' line.
unless ($self->{force}) {
my $prereq = (map /^Prereq:\s*(\S+)/, @$garbage)[-1];
inc/inc_IPC-Cmd/IPC/Cmd.pm view on Meta::CPAN
my $pid = IPC::Open3::open3(
'<&STDIN',
(IS_WIN32 ? '>&STDOUT' : $kidout),
(IS_WIN32 ? '>&STDERR' : $kiderror),
$cmd
);
### use OUR stdin, not $kidin. Somehow,
### we never get the input.. so jump through
### some hoops to do it :(
my $selector = IO::Select->new(
(IS_WIN32 ? \*STDERR : $kiderror),
\*STDIN,
(IS_WIN32 ? \*STDOUT : $kidout)
);
STDOUT->autoflush(1); STDERR->autoflush(1); STDIN->autoflush(1);
$kidout->autoflush(1) if UNIVERSAL::can($kidout, 'autoflush');
$kiderror->autoflush(1) if UNIVERSAL::can($kiderror, 'autoflush');
### add an epxlicit break statement
### code courtesy of theorbtwo from #london.pm
OUTER: while ( my @ready = $selector->can_read ) {
for my $h ( @ready ) {
my $buf;
### $len is the amount of bytes read
my $len = sysread( $h, $buf, 4096 ); # try to read 4096 bytes
### see perldoc -f sysread: it returns undef on error,
### so bail out.
if( not defined $len ) {
lib/Alien/wxWidgets.pm view on Meta::CPAN
debug => 0 | 1,
unicode => 0 | 1,
mslu => 0 | 1,
key => $key,
;
Alien::wxWidgets->load( <same as the above> );
Using C<Alien::wxWidgets> without parameters will load a default
configuration (for most people this will be the only installed
confiuration). Additional parameters allow to be more selective.
If there is no matching configuration the method will C<die()>.
In case no arguments are passed in the C<use>, C<Alien::wxWidgets>
will try to find a reasonable default configuration.
Please note that when the version is pecified as C<version => 2.004>
it means "any version >= 2.004" while when specified as
C<version => [ 2.004, 2.005 ]> it means "any version => 2.004 and < 2.005".
patches/wxGTK-2.8.12-dirdialog.patch view on Meta::CPAN
Index: /wxWidgets/branches/WX_2_8_BRANCH/src/gtk/dirdlg.cpp
===================================================================
--- /wxWidgets/branches/WX_2_8_BRANCH/src/gtk/dirdlg.cpp (revision 63600)
+++ /wxWidgets/branches/WX_2_8_BRANCH/src/gtk/dirdlg.cpp (revision 72781)
@@ -96,4 +96,5 @@
const wxPoint& pos, const wxSize& sz,
const wxString& name)
+ : m_selectedDirectory(defaultPath)
{
if (!gtk_check_version(2,4,0))
@@ -153,5 +154,9 @@
{
if (!gtk_check_version(2,4,0))
+ {
+ wxGtkString str(gtk_file_chooser_get_filename(GTK_FILE_CHOOSER(m_widget)));
+ m_selectedDirectory = wxString::FromUTF8(str);
EndDialog(wxID_OK);
+ }
else
wxGenericDirDialog::OnOK( event );
@@ -200,6 +205,5 @@
if (!gtk_check_version(2,4,0))
{
- wxGtkString str(gtk_file_chooser_get_filename(GTK_FILE_CHOOSER(m_widget)));
- return wxString::FromUTF8(str);
+ return m_selectedDirectory;
}
Index: /wxWidgets/branches/WX_2_8_BRANCH/include/wx/gtk/dirdlg.h
===================================================================
--- /wxWidgets/branches/WX_2_8_BRANCH/include/wx/gtk/dirdlg.h (revision 39402)
+++ /wxWidgets/branches/WX_2_8_BRANCH/include/wx/gtk/dirdlg.h (revision 72781)
@@ -51,4 +51,6 @@
private:
+ wxString m_selectedDirectory;
+
DECLARE_DYNAMIC_CLASS(wxDirDialog)
DECLARE_EVENT_TABLE()
patches/wxGTK-2.9.4-dirdialog.patch view on Meta::CPAN
- wxGTK_CONV_FN(defaultPath) );
+ SetPath(defaultPath);
return true;
}
-void wxDirDialog::OnFakeOk(wxCommandEvent& WXUNUSED(event))
+void wxDirDialog::GTKOnAccept()
{
+ wxGtkString str(gtk_file_chooser_get_filename(GTK_FILE_CHOOSER(m_widget)));
+ m_selectedDirectory = wxString::FromUTF8(str);
+
+ // change to the directory where the user went if asked
+ if (HasFlag(wxDD_CHANGE_DIR))
+ {
+ chdir(m_selectedDirectory);
+ }
+
EndDialog(wxID_OK);
+}
+
+void wxDirDialog::GTKOnCancel()
+{
+ EndDialog(wxID_CANCEL);
}
@@ -187,6 +162,5 @@
wxString wxDirDialog::GetPath() const
{
- wxGtkString str(gtk_file_chooser_get_filename(GTK_FILE_CHOOSER(m_widget)));
- return wxString::FromUTF8(str);
+ return m_selectedDirectory;
}
Index: /wxWidgets/trunk/include/wx/gtk/dirdlg.h
===================================================================
--- /wxWidgets/trunk/include/wx/gtk/dirdlg.h (revision 70898)
+++ /wxWidgets/trunk/include/wx/gtk/dirdlg.h (revision 72779)
@@ -43,4 +43,9 @@
+ // Implementation only.
+
+ void GTKOnAccept();
+ void GTKOnCancel();
+
protected:
// override this from wxTLW since the native
@@ -52,8 +57,7 @@
private:
- void OnFakeOk( wxCommandEvent &event );
+ wxString m_selectedDirectory;
DECLARE_DYNAMIC_CLASS(wxDirDialog)
- DECLARE_EVENT_TABLE()
};
patches/wxMSW-2.8.10-w64-stc.patch view on Meta::CPAN
@@ -682,7 +682,7 @@
// Set the styles for a segment of the document.
void wxStyledTextCtrl::SetStyleBytes(int length, char* styleBytes) {
- SendMsg(2073, length, (long)styleBytes);
+ SendMsg(2073, length, (sptr_t)styleBytes);
}
// Set a style to be visible or not.
@@ -703,7 +703,7 @@
// Set the set of characters making up words for when moving or selecting by word.
// First sets deaults like SetCharsDefault.
void wxStyledTextCtrl::SetWordChars(const wxString& characters) {
- SendMsg(2077, 0, (long)(const char*)wx2stc(characters));
+ SendMsg(2077, 0, (wxIntPtr)(const char*)wx2stc(characters));
}
// Start a sequence of actions that is undone and redone as a unit.
@@ -806,7 +806,7 @@
// The lenEntered parameter indicates how many characters before
// the caret should be used to provide context.
patches/wxMSW-2.8.10-w64-stc.patch view on Meta::CPAN
// Select the item in the auto-completion list that starts with a string.
void wxStyledTextCtrl::AutoCompSelect(const wxString& text) {
- SendMsg(2108, 0, (long)(const char*)wx2stc(text));
+ SendMsg(2108, 0, (wxIntPtr)(const char*)wx2stc(text));
}
// Should the auto-completion list be cancelled if the user backspaces to a
@@ -864,7 +864,7 @@
// Define a set of characters that when typed will cause the autocompletion to
// choose the selected item.
void wxStyledTextCtrl::AutoCompSetFillUps(const wxString& characterSet) {
- SendMsg(2112, 0, (long)(const char*)wx2stc(characterSet));
+ SendMsg(2112, 0, (wxIntPtr)(const char*)wx2stc(characterSet));
}
// Should a single item auto-completion list automatically choose the item.
@@ -889,7 +889,7 @@
// Display a list of strings and send notification when user chooses one.
void wxStyledTextCtrl::UserListShow(int listType, const wxString& itemList) {
patches/wxMSW-2.8.10-w64-stc.patch view on Meta::CPAN
tr.lpstrText = buf;
tr.chrg.cpMin = startPos;
tr.chrg.cpMax = endPos;
- SendMsg(2162, 0, (long)&tr);
+ SendMsg(2162, 0, (sptr_t)&tr);
mbuf.UngetWriteBuf(len);
mbuf.AppendByte(0);
return stc2wx(buf);
@@ -1269,7 +1269,7 @@
// Replace the selected text with the argument text.
void wxStyledTextCtrl::ReplaceSelection(const wxString& text) {
- SendMsg(2170, 0, (long)(const char*)wx2stc(text));
+ SendMsg(2170, 0, (wxIntPtr)(const char*)wx2stc(text));
}
// Set to read only or read write.
@@ -1319,7 +1319,7 @@
// Replace the contents of the document with the argument text.
void wxStyledTextCtrl::SetText(const wxString& text) {
patches/wxMSW-2.8.10-w64-stc.patch view on Meta::CPAN
@@ -1652,7 +1652,7 @@
// NUL terminated text argument.
// Does not handle tab or control characters.
int wxStyledTextCtrl::TextWidth(int style, const wxString& text) {
- return SendMsg(2276, style, (long)(const char*)wx2stc(text));
+ return SendMsg(2276, style, (wxIntPtr)(const char*)wx2stc(text));
}
// Sets the scroll range so that maximum scroll position has
@@ -1686,7 +1686,7 @@
// Append a string to the end of the document without changing the selection.
void wxStyledTextCtrl::AppendText(const wxString& text) {
wxWX2MBbuf buf = (wxWX2MBbuf)wx2stc(text);
- SendMsg(2282, strlen(buf), (long)(const char*)buf);
+ SendMsg(2282, strlen(buf), (sptr_t)(const char*)buf);
}
// Is drawing done in two phases with backgrounds drawn before foregrounds?
@@ -2050,7 +2050,7 @@
// Change the document object used.
void wxStyledTextCtrl::SetDocPointer(void* docPointer) {
- SendMsg(2358, 0, (long)docPointer);
+ SendMsg(2358, 0, (sptr_t)docPointer);
}
// Set which document modification events are sent to the container.
@@ -2099,13 +2099,13 @@
// Find some text starting at the search anchor.
// Does not ensure the selection is visible.
int wxStyledTextCtrl::SearchNext(int flags, const wxString& text) {
- return SendMsg(2367, flags, (long)(const char*)wx2stc(text));
+ return SendMsg(2367, flags, (wxIntPtr)(const char*)wx2stc(text));
}
// Find some text starting at the search anchor and moving backwards.
// Does not ensure the selection is visible.
int wxStyledTextCtrl::SearchPrev(int flags, const wxString& text) {
- return SendMsg(2368, flags, (long)(const char*)wx2stc(text));
+ return SendMsg(2368, flags, (wxIntPtr)(const char*)wx2stc(text));
}
// Retrieves the number of lines completely visible.
@@ -2143,12 +2143,12 @@
// Extend life of document.
void wxStyledTextCtrl::AddRefDocument(void* docPointer) {
patches/wxMSW-2.8.10-w64-stc.patch view on Meta::CPAN
// Get which document modification events are sent to the container.
@@ -2333,7 +2333,7 @@
// Copy argument text to the clipboard.
void wxStyledTextCtrl::CopyText(int length, const wxString& text) {
- SendMsg(2420, length, (long)(const char*)wx2stc(text));
+ SendMsg(2420, length, (wxIntPtr)(const char*)wx2stc(text));
}
// Set the selection mode to stream (SC_SEL_STREAM) or rectangular (SC_SEL_RECTANGLE) or
@@ -2447,7 +2447,7 @@
// Set the set of characters making up whitespace for when moving or selecting by word.
// Should be called after SetWordChars.
void wxStyledTextCtrl::SetWhitespaceChars(const wxString& characters) {
- SendMsg(2443, 0, (long)(const char*)wx2stc(characters));
+ SendMsg(2443, 0, (wxIntPtr)(const char*)wx2stc(characters));
}
// Reset the set of characters for whitespace and word characters to the defaults.
@@ -2538,27 +2538,27 @@
// Set up a value that may be used by a lexer for some optional feature.
( run in 0.633 second using v1.01-cache-2.11-cpan-49f99fa48dc )