diff options
| author | Björn Gustavsson <[email protected]> | 2011-08-25 12:08:29 +0200 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2011-10-26 15:44:01 +0200 |
| commit | 9e034e51ca0f051b62e389545b3f5a56b9cec393 (patch) | |
| tree | 1ad14bcbffcf9f9bbec5a12a4b64b01fe440b536 /lib/gs/src/gstk_generic.erl | |
| parent | fe084d5d867de8839385c3652a0f727f97500a0a (diff) | |
| download | otp-9e034e51ca0f051b62e389545b3f5a56b9cec393.tar.gz otp-9e034e51ca0f051b62e389545b3f5a56b9cec393.tar.bz2 otp-9e034e51ca0f051b62e389545b3f5a56b9cec393.zip | |
gs: Eliminate use of deprecated regexp module
Diffstat (limited to 'lib/gs/src/gstk_generic.erl')
| -rw-r--r-- | lib/gs/src/gstk_generic.erl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/gs/src/gstk_generic.erl b/lib/gs/src/gstk_generic.erl index 3ddb69efc5..2cc6c4c2d3 100644 --- a/lib/gs/src/gstk_generic.erl +++ b/lib/gs/src/gstk_generic.erl @@ -414,7 +414,7 @@ gen_font(_Opt,Gstkid,_TkW,DB,_ExtraArg) -> gen_label({text,Text},Opts,Gstkid,TkW,DB,ExtraArg,S,P,C) -> out_opts(Opts,Gstkid,TkW,DB,ExtraArg,[" -text ", gstk:to_ascii(Text), " -bi {}"|S],P,C); gen_label({image,Img},Opts,Gstkid,TkW,DB,ExtraArg,S,P,C) -> - {ok, I2,_} = regexp:gsub(Img, [92,92], "/"), + I2 = re:replace(Img, [92,92], "/", [global,{return,list}]), out_opts(Opts,Gstkid,TkW,DB,ExtraArg,[" -bi \"@", I2, "\" -text {}"|S],P,C). gen_label(_Opt,_Gstkid,TkW,_DB,_ExtraArg) -> case gstk:call([TkW, " cg -bit"]) of |