// Created: 27.03.01
// Id: $Id$
// Copyright: (c) 2001 Vadim Zeitlin
-// License: wxWindows license
+// Licence: wxWindows licence
/////////////////////////////////////////////////////////////////////////////
// ============================================================================
#include "wx/textdlg.h"
#include "wx/imaglist.h"
#include "wx/wupdlock.h"
+#include "wx/textcompleter.h"
#include "wx/persist/toplevel.h"
#include "wx/persist/treebook.h"
#endif // wxUSE_TOOLTIPS
Widgets_SetFgColour,
Widgets_SetBgColour,
+ Widgets_SetPageBg,
Widgets_SetFont,
Widgets_Enable,
TextEntry_DisableAutoComplete = TextEntry_Begin,
TextEntry_AutoCompleteFixed,
TextEntry_AutoCompleteFilenames,
+ TextEntry_AutoCompleteDirectories,
+ TextEntry_AutoCompleteCustom,
TextEntry_SetHint,
TextEntry_End
#endif // wxUSE_TOOLTIPS
void OnSetFgCol(wxCommandEvent& event);
void OnSetBgCol(wxCommandEvent& event);
+ void OnSetPageBg(wxCommandEvent& event);
void OnSetFont(wxCommandEvent& event);
void OnEnable(wxCommandEvent& event);
void OnSetBorder(wxCommandEvent& event);
void OnDisableAutoComplete(wxCommandEvent& event);
void OnAutoCompleteFixed(wxCommandEvent& event);
void OnAutoCompleteFilenames(wxCommandEvent& event);
+ void OnAutoCompleteDirectories(wxCommandEvent& event);
+ void OnAutoCompleteCustom(wxCommandEvent& event);
void OnSetHint(wxCommandEvent& event);
}
private:
- wxSUPPRESS_DOLOG_HIDE_WARNING()
- wxSUPPRESS_DOLOGSTRING_HIDE_WARNING()
-
// implement sink functions
- virtual void DoLog(wxLogLevel level, const wxString& str, time_t t)
+ virtual void DoLogTextAtLevel(wxLogLevel level, const wxString& msg)
{
- // don't put trace messages into listbox or we can get into infinite
- // recursion
if ( level == wxLOG_Trace )
{
if ( m_logOld )
- m_logOld->Log(level, str, t);
- }
- else
- {
- wxLog::DoLog(level, str, t);
+ m_logOld->LogTextAtLevel(level, msg);
+ return;
}
- }
-
- virtual void DoLogString(const wxString& str, time_t WXUNUSED(t))
- {
- wxString msg;
- TimeStamp(&msg);
- msg += str;
#ifdef __WXUNIVERSAL__
m_lbox->AppendAndEnsureVisible(msg);
EVT_MENU(Widgets_SetFgColour, WidgetsFrame::OnSetFgCol)
EVT_MENU(Widgets_SetBgColour, WidgetsFrame::OnSetBgCol)
+ EVT_MENU(Widgets_SetPageBg, WidgetsFrame::OnSetPageBg)
EVT_MENU(Widgets_SetFont, WidgetsFrame::OnSetFont)
EVT_MENU(Widgets_Enable, WidgetsFrame::OnEnable)
EVT_MENU(TextEntry_DisableAutoComplete, WidgetsFrame::OnDisableAutoComplete)
EVT_MENU(TextEntry_AutoCompleteFixed, WidgetsFrame::OnAutoCompleteFixed)
EVT_MENU(TextEntry_AutoCompleteFilenames, WidgetsFrame::OnAutoCompleteFilenames)
+ EVT_MENU(TextEntry_AutoCompleteDirectories, WidgetsFrame::OnAutoCompleteDirectories)
+ EVT_MENU(TextEntry_AutoCompleteCustom, WidgetsFrame::OnAutoCompleteCustom)
EVT_MENU(TextEntry_SetHint, WidgetsFrame::OnSetHint)
// this sample side by side and it is useful to see which one is which
wxString title;
#if defined(__WXUNIVERSAL__)
- title = _T("wxUniv/");
+ title = wxT("wxUniv/");
#endif
#if defined(__WXMSW__)
- title += _T("wxMSW");
+ title += wxT("wxMSW");
#elif defined(__WXGTK__)
- title += _T("wxGTK");
+ title += wxT("wxGTK");
#elif defined(__WXMAC__)
- title += _T("wxMAC");
+ title += wxT("wxMAC");
#elif defined(__WXMOTIF__)
- title += _T("wxMOTIF");
-#elif __WXPALMOS5__
- title += _T("wxPALMOS5");
-#elif __WXPALMOS6__
- title += _T("wxPALMOS6");
+ title += wxT("wxMOTIF");
#else
- title += _T("wxWidgets");
+ title += wxT("wxWidgets");
#endif
- wxFrame *frame = new WidgetsFrame(title + _T(" widgets demo"));
+ wxFrame *frame = new WidgetsFrame(title + wxT(" widgets demo"));
frame->Show();
return true;
WidgetsFrame::WidgetsFrame(const wxString& title)
: wxFrame(NULL, wxID_ANY, title)
{
- SetName("Main");
- const bool sizeSet = wxPersistentRegisterAndRestore(this);
+ const bool sizeSet = wxPersistentRegisterAndRestore(this, "Main");
// set the frame icon
SetIcon(wxICON(sample));
wxMenuBar *mbar = new wxMenuBar;
wxMenu *menuWidget = new wxMenu;
#if wxUSE_TOOLTIPS
- menuWidget->Append(Widgets_SetTooltip, _T("Set &tooltip...\tCtrl-T"));
+ menuWidget->Append(Widgets_SetTooltip, wxT("Set &tooltip...\tCtrl-T"));
menuWidget->AppendSeparator();
#endif // wxUSE_TOOLTIPS
- menuWidget->Append(Widgets_SetFgColour, _T("Set &foreground...\tCtrl-F"));
- menuWidget->Append(Widgets_SetBgColour, _T("Set &background...\tCtrl-B"));
- menuWidget->Append(Widgets_SetFont, _T("Set f&ont...\tCtrl-O"));
- menuWidget->AppendCheckItem(Widgets_Enable, _T("&Enable/disable\tCtrl-E"));
+ menuWidget->Append(Widgets_SetFgColour, wxT("Set &foreground...\tCtrl-F"));
+ menuWidget->Append(Widgets_SetBgColour, wxT("Set &background...\tCtrl-B"));
+ menuWidget->Append(Widgets_SetPageBg, wxT("Set &page background...\tShift-Ctrl-B"));
+ menuWidget->Append(Widgets_SetFont, wxT("Set f&ont...\tCtrl-O"));
+ menuWidget->AppendCheckItem(Widgets_Enable, wxT("&Enable/disable\tCtrl-E"));
wxMenu *menuBorders = new wxMenu;
- menuBorders->AppendRadioItem(Widgets_BorderDefault, _T("De&fault\tCtrl-Shift-9"));
- menuBorders->AppendRadioItem(Widgets_BorderNone, _T("&None\tCtrl-Shift-0"));
- menuBorders->AppendRadioItem(Widgets_BorderSimple, _T("&Simple\tCtrl-Shift-1"));
- menuBorders->AppendRadioItem(Widgets_BorderDouble, _T("&Double\tCtrl-Shift-2"));
- menuBorders->AppendRadioItem(Widgets_BorderStatic, _T("Stati&c\tCtrl-Shift-3"));
- menuBorders->AppendRadioItem(Widgets_BorderRaised, _T("&Raised\tCtrl-Shift-4"));
- menuBorders->AppendRadioItem(Widgets_BorderSunken, _T("S&unken\tCtrl-Shift-5"));
- menuWidget->AppendSubMenu(menuBorders, _T("Set &border"));
+ menuBorders->AppendRadioItem(Widgets_BorderDefault, wxT("De&fault\tCtrl-Shift-9"));
+ menuBorders->AppendRadioItem(Widgets_BorderNone, wxT("&None\tCtrl-Shift-0"));
+ menuBorders->AppendRadioItem(Widgets_BorderSimple, wxT("&Simple\tCtrl-Shift-1"));
+ menuBorders->AppendRadioItem(Widgets_BorderDouble, wxT("&Double\tCtrl-Shift-2"));
+ menuBorders->AppendRadioItem(Widgets_BorderStatic, wxT("Stati&c\tCtrl-Shift-3"));
+ menuBorders->AppendRadioItem(Widgets_BorderRaised, wxT("&Raised\tCtrl-Shift-4"));
+ menuBorders->AppendRadioItem(Widgets_BorderSunken, wxT("S&unken\tCtrl-Shift-5"));
+ menuWidget->AppendSubMenu(menuBorders, wxT("Set &border"));
menuWidget->AppendSeparator();
menuWidget->AppendCheckItem(Widgets_GlobalBusyCursor,
- _T("Toggle &global busy cursor\tCtrl-Shift-U"));
+ wxT("Toggle &global busy cursor\tCtrl-Shift-U"));
menuWidget->AppendCheckItem(Widgets_BusyCursor,
- _T("Toggle b&usy cursor\tCtrl-U"));
+ wxT("Toggle b&usy cursor\tCtrl-U"));
menuWidget->AppendSeparator();
- menuWidget->Append(wxID_EXIT, _T("&Quit\tCtrl-Q"));
- mbar->Append(menuWidget, _T("&Widget"));
+ menuWidget->Append(wxID_EXIT, wxT("&Quit\tCtrl-Q"));
+ mbar->Append(menuWidget, wxT("&Widget"));
wxMenu *menuTextEntry = new wxMenu;
menuTextEntry->AppendRadioItem(TextEntry_DisableAutoComplete,
- _T("&Disable auto-completion"));
+ wxT("&Disable auto-completion"));
menuTextEntry->AppendRadioItem(TextEntry_AutoCompleteFixed,
- _T("Fixed-&list auto-completion"));
+ wxT("Fixed-&list auto-completion"));
menuTextEntry->AppendRadioItem(TextEntry_AutoCompleteFilenames,
- _T("&Files names auto-completion"));
+ wxT("&Files names auto-completion"));
+ menuTextEntry->AppendRadioItem(TextEntry_AutoCompleteDirectories,
+ wxT("&Directories names auto-completion"));
+ menuTextEntry->AppendRadioItem(TextEntry_AutoCompleteCustom,
+ wxT("&Custom auto-completion"));
menuTextEntry->AppendSeparator();
menuTextEntry->Append(TextEntry_SetHint, "Set help &hint");
- mbar->Append(menuTextEntry, _T("&Text"));
+ mbar->Append(menuTextEntry, wxT("&Text"));
SetMenuBar(mbar);
// the lower one only has the log listbox and a button to clear it
#if USE_LOG
wxSizer *sizerDown = new wxStaticBoxSizer(
- new wxStaticBox( m_panel, wxID_ANY, _T("&Log window") ),
+ new wxStaticBox( m_panel, wxID_ANY, wxT("&Log window") ),
wxVERTICAL);
m_lboxLog = new wxListBox(m_panel, wxID_ANY);
wxBoxSizer *sizerBtns = new wxBoxSizer(wxHORIZONTAL);
wxButton *btn;
#if USE_LOG
- btn = new wxButton(m_panel, Widgets_ClearLog, _T("Clear &log"));
+ btn = new wxButton(m_panel, Widgets_ClearLog, wxT("Clear &log"));
sizerBtns->Add(btn);
sizerBtns->Add(10, 0); // spacer
#endif // USE_LOG
- btn = new wxButton(m_panel, Widgets_Quit, _T("E&xit"));
+ btn = new wxButton(m_panel, Widgets_Quit, wxT("E&xit"));
sizerBtns->Add(btn);
sizerDown->Add(sizerBtns, 0, wxALL | wxALIGN_RIGHT, 5);
}
}
- GetMenuBar()->Append(menuPages, _T("&Page"));
+ GetMenuBar()->Append(menuPages, wxT("&Page"));
#if USE_ICONS_IN_BOOK
m_book->AssignImageList(imageList);
#if !USE_TREEBOOK
WidgetsBookCtrl *subBook = wxStaticCast(page, WidgetsBookCtrl);
- wxCHECK_MSG( subBook, NULL, _T("no WidgetsBookCtrl?") );
+ wxCHECK_MSG( subBook, NULL, wxT("no WidgetsBookCtrl?") );
page = subBook->GetCurrentPage();
#endif // !USE_TREEBOOK
void WidgetsFrame::OnSetTooltip(wxCommandEvent& WXUNUSED(event))
{
- static wxString s_tip = _T("This is a tooltip");
+ static wxString s_tip = wxT("This is a tooltip");
wxTextEntryDialog dialog
(
this,
- _T("Tooltip text (may use \\n, leave empty to remove): "),
- _T("Widgets sample"),
+ wxT("Tooltip text (may use \\n, leave empty to remove): "),
+ wxT("Widgets sample"),
s_tip
);
return;
s_tip = dialog.GetValue();
- s_tip.Replace(_T("\\n"), _T("\n"));
+ s_tip.Replace(wxT("\\n"), wxT("\n"));
WidgetsPage *page = CurrentPage();
- page->GetWidget()->SetToolTip(s_tip);
-
- wxControl *ctrl2 = page->GetWidget2();
- if ( ctrl2 )
- ctrl2->SetToolTip(s_tip);
+ const Widgets widgets = page->GetWidgets();
+ for ( Widgets::const_iterator it = widgets.begin();
+ it != widgets.end();
+ ++it )
+ {
+ (*it)->SetToolTip(s_tip);
+ }
}
#endif // wxUSE_TOOLTIPS
-void WidgetsFrame::OnSetFgCol(wxCommandEvent& WXUNUSED(event))
+namespace
+{
+
+// Trivial wrapper for wxGetColourFromUser() which also does something even if
+// the colour dialog is not available in the current build (which may happen
+// for the ports in development and it is still useful to see how colours work)
+wxColour GetColourFromUser(wxWindow *parent, const wxColour& colDefault)
{
#if wxUSE_COLOURDLG
+ return wxGetColourFromUser(parent, colDefault);
+#else // !wxUSE_COLOURDLG
+ if ( colDefault == *wxBLACK )
+ return *wxWHITE;
+ else
+ return *wxBLACK;
+#endif // wxUSE_COLOURDLG/!wxUSE_COLOURDLG
+}
+
+} // anonymous namespace
+
+void WidgetsFrame::OnSetFgCol(wxCommandEvent& WXUNUSED(event))
+{
// allow for debugging the default colour the first time this is called
WidgetsPage *page = CurrentPage();
- if (!m_colFg.Ok())
+ if (!m_colFg.IsOk())
m_colFg = page->GetForegroundColour();
- wxColour col = wxGetColourFromUser(this, m_colFg);
- if ( !col.Ok() )
+ wxColour col = GetColourFromUser(this, m_colFg);
+ if ( !col.IsOk() )
return;
m_colFg = col;
- page->GetWidget()->SetForegroundColour(m_colFg);
- page->GetWidget()->Refresh();
-
- wxControl *ctrl2 = page->GetWidget2();
- if ( ctrl2 )
+ const Widgets widgets = page->GetWidgets();
+ for ( Widgets::const_iterator it = widgets.begin();
+ it != widgets.end();
+ ++it )
{
- ctrl2->SetForegroundColour(m_colFg);
- ctrl2->Refresh();
+ (*it)->SetForegroundColour(m_colFg);
+ (*it)->Refresh();
}
-#else
- wxLogMessage(_T("Colour selection dialog not available in current build."));
-#endif
}
void WidgetsFrame::OnSetBgCol(wxCommandEvent& WXUNUSED(event))
{
-#if wxUSE_COLOURDLG
WidgetsPage *page = CurrentPage();
- if ( !m_colBg.Ok() )
+ if ( !m_colBg.IsOk() )
m_colBg = page->GetBackgroundColour();
- wxColour col = wxGetColourFromUser(this, m_colBg);
- if ( !col.Ok() )
+ wxColour col = GetColourFromUser(this, m_colBg);
+ if ( !col.IsOk() )
return;
m_colBg = col;
- page->GetWidget()->SetBackgroundColour(m_colBg);
- page->GetWidget()->Refresh();
-
- wxControl *ctrl2 = page->GetWidget2();
- if ( ctrl2 )
+ const Widgets widgets = page->GetWidgets();
+ for ( Widgets::const_iterator it = widgets.begin();
+ it != widgets.end();
+ ++it )
{
- ctrl2->SetBackgroundColour(m_colFg);
- ctrl2->Refresh();
+ (*it)->SetBackgroundColour(m_colBg);
+ (*it)->Refresh();
}
-#else
- wxLogMessage(_T("Colour selection dialog not available in current build."));
-#endif
+}
+
+void WidgetsFrame::OnSetPageBg(wxCommandEvent& WXUNUSED(event))
+{
+ wxColour col = GetColourFromUser(this, GetBackgroundColour());
+ if ( !col.IsOk() )
+ return;
+
+ CurrentPage()->SetBackgroundColour(col);
+ CurrentPage()->Refresh();
}
void WidgetsFrame::OnSetFont(wxCommandEvent& WXUNUSED(event))
#if wxUSE_FONTDLG
WidgetsPage *page = CurrentPage();
- if (!m_font.Ok())
+ if (!m_font.IsOk())
m_font = page->GetFont();
wxFont font = wxGetFontFromUser(this, m_font);
- if ( !font.Ok() )
+ if ( !font.IsOk() )
return;
m_font = font;
- page->GetWidget()->SetFont(m_font);
- page->GetWidget()->Refresh();
-
- wxControl *ctrl2 = page->GetWidget2();
- if ( ctrl2 )
+ const Widgets widgets = page->GetWidgets();
+ for ( Widgets::const_iterator it = widgets.begin();
+ it != widgets.end();
+ ++it )
{
- ctrl2->SetFont(m_font);
- ctrl2->Refresh();
+ (*it)->SetFont(m_font);
+ (*it)->Refresh();
}
+
+ // The best size of the widget could have changed after changing its font,
+ // so re-layout to show it correctly.
+ page->Layout();
#else
- wxLogMessage(_T("Font selection dialog not available in current build."));
+ wxLogMessage(wxT("Font selection dialog not available in current build."));
#endif
}
void WidgetsFrame::OnEnable(wxCommandEvent& event)
{
- CurrentPage()->GetWidget()->Enable(event.IsChecked());
- if (CurrentPage()->GetWidget2())
- CurrentPage()->GetWidget2()->Enable(event.IsChecked());
+ const Widgets widgets = CurrentPage()->GetWidgets();
+ for ( Widgets::const_iterator it = widgets.begin();
+ it != widgets.end();
+ ++it )
+ {
+ (*it)->Enable(event.IsChecked());
+ }
}
void WidgetsFrame::OnSetBorder(wxCommandEvent& event)
case Widgets_BorderDouble: border = wxBORDER_DOUBLE; break;
default:
- wxFAIL_MSG( _T("unknown border style") );
+ wxFAIL_MSG( wxT("unknown border style") );
// fall through
case Widgets_BorderDefault: border = wxBORDER_DEFAULT; break;
void WidgetsFrame::OnToggleBusyCursor(wxCommandEvent& event)
{
- CurrentPage()->GetWidget()->SetCursor(*(event.IsChecked()
- ? wxHOURGLASS_CURSOR
- : wxSTANDARD_CURSOR));
+ wxCursor cursor(*(event.IsChecked() ? wxHOURGLASS_CURSOR
+ : wxSTANDARD_CURSOR));
+
+ const Widgets widgets = CurrentPage()->GetWidgets();
+ for ( Widgets::const_iterator it = widgets.begin();
+ it != widgets.end();
+ ++it )
+ {
+ (*it)->SetCursor(cursor);
+ }
}
void WidgetsFrame::OnDisableAutoComplete(wxCommandEvent& WXUNUSED(event))
wxCHECK_RET( entry, "menu item should be disabled" );
if ( entry->AutoComplete(wxArrayString()) )
+ {
wxLogMessage("Disabled auto completion.");
+ }
else
+ {
wxLogMessage("AutoComplete() failed.");
+ }
}
void WidgetsFrame::OnAutoCompleteFixed(wxCommandEvent& WXUNUSED(event))
completion_choices.push_back("this string is for test");
if ( entry->AutoComplete(completion_choices) )
+ {
wxLogMessage("Enabled auto completion of a set of fixed strings.");
+ }
else
+ {
wxLogMessage("AutoComplete() failed.");
+ }
}
void WidgetsFrame::OnAutoCompleteFilenames(wxCommandEvent& WXUNUSED(event))
wxCHECK_RET( entry, "menu item should be disabled" );
if ( entry->AutoCompleteFileNames() )
- wxLogMessage("Enable auto completion of file names.");
+ {
+ wxLogMessage("Enabled auto completion of file names.");
+ }
else
+ {
wxLogMessage("AutoCompleteFileNames() failed.");
+ }
+}
+
+void WidgetsFrame::OnAutoCompleteDirectories(wxCommandEvent& WXUNUSED(event))
+{
+ wxTextEntryBase *entry = CurrentPage()->GetTextEntry();
+ wxCHECK_RET( entry, "menu item should be disabled" );
+
+ if ( entry->AutoCompleteDirectories() )
+ {
+ wxLogMessage("Enabled auto completion of directories.");
+ }
+ else
+ {
+ wxLogMessage("AutoCompleteDirectories() failed.");
+ }
+}
+
+void WidgetsFrame::OnAutoCompleteCustom(wxCommandEvent& WXUNUSED(event))
+{
+ wxTextEntryBase *entry = CurrentPage()->GetTextEntry();
+ wxCHECK_RET( entry, "menu item should be disabled" );
+
+ // This is a simple (and hence rather useless) example of a custom
+ // completer class that completes the first word (only) initially and only
+ // build the list of the possible second words once the first word is
+ // known. This allows to avoid building the full 676000 item list of
+ // possible strings all at once as the we have 1000 possibilities for the
+ // first word (000..999) and 676 (aa..zz) for the second one.
+ class CustomTextCompleter : public wxTextCompleterSimple
+ {
+ public:
+ virtual void GetCompletions(const wxString& prefix, wxArrayString& res)
+ {
+ // This is used for illustrative purposes only and shows how many
+ // completions we return every time when we're called.
+ class LogCompletions
+ {
+ public:
+ LogCompletions(const wxString& prefix, const wxArrayString& res)
+ : m_prefix(prefix),
+ m_res(res)
+ {
+ }
+
+ ~LogCompletions()
+ {
+ wxLogMessage("Returning %lu possible completions for "
+ "prefix \"%s\"",
+ m_res.size(), m_prefix);
+ }
+
+ private:
+ const wxString& m_prefix;
+ const wxArrayString& m_res;
+ } logCompletions(prefix, res);
+
+
+ // Normally it doesn't make sense to complete empty control, there
+ // are too many choices and listing them all wouldn't be helpful.
+ if ( prefix.empty() )
+ return;
+
+ // The only valid strings start with 3 digits so check for their
+ // presence proposing to complete the remaining ones.
+ if ( !wxIsdigit(prefix[0]) )
+ return;
+
+ if ( prefix.length() == 1 )
+ {
+ for ( int i = 0; i < 10; i++ )
+ for ( int j = 0; j < 10; j++ )
+ res.push_back(wxString::Format("%s%02d",
+ prefix, 10*i + j));
+ return;
+ }
+ else if ( !wxIsdigit(prefix[1]) )
+ return;
+
+ if ( prefix.length() == 2 )
+ {
+ for ( int i = 0; i < 10; i++ )
+ res.push_back(wxString::Format("%s%d", prefix, i));
+ return;
+ }
+ else if ( !wxIsdigit(prefix[2]) )
+ return;
+
+ // Next we must have a space and two letters.
+ wxString prefix2(prefix);
+ if ( prefix.length() == 3 )
+ prefix2 += ' ';
+ else if ( prefix[3] != ' ' )
+ return;
+
+ if ( prefix2.length() == 4 )
+ {
+ for ( char c = 'a'; c <= 'z'; c++ )
+ for ( char d = 'a'; d <= 'z'; d++ )
+ res.push_back(wxString::Format("%s%c%c", prefix2, c, d));
+ return;
+ }
+ else if ( !wxIslower(prefix[4]) )
+ return;
+
+ if ( prefix.length() == 5 )
+ {
+ for ( char c = 'a'; c <= 'z'; c++ )
+ res.push_back(prefix + c);
+ }
+ }
+ };
+
+ if ( entry->AutoComplete(new CustomTextCompleter) )
+ {
+ wxLogMessage("Enabled custom auto completer for \"NNN XX\" items "
+ "(where N is a digit and X is a letter).");
+ }
+ else
+ {
+ wxLogMessage("AutoComplete() failed.");
+ }
}
void WidgetsFrame::OnSetHint(wxCommandEvent& WXUNUSED(event))
s_hint = hint;
if ( entry->SetHint(hint) )
+ {
wxLogMessage("Set hint to \"%s\".", hint);
+ }
else
+ {
wxLogMessage("Text hints not supported.");
+ }
}
#endif // wxUSE_MENUS